MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Selecionar varios arquivos .dat e mudar para txt

    Compartilhe

    rm1622
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 15/10/2013

    Selecionar varios arquivos .dat e mudar para txt

    Mensagem  rm1622 em 16/2/2018, 12:47

    Olá amigos!
    Preciso de uma ajuda com um código em vba access. Tenho uma função que abre uma caixa de diálogo onde posso selecionar arquivos que preciso importar.
    funcionou bem até agora com arquivos txt, mas agora preciso importar arquivos .dat.
    Serei possível criar uma algorítimo mudasse o arquivo selecionado de dat para txt antes da  importação, já que não consigo importar arquivos Dat?

    Access 2016

    Código:

    Function EscolhaArquivo(Optional strTitulo As String) As String

    On Error GoTo TrataErro
    2:
    Dim Dlg As FileDialog
    Dim txtFilePath As String
    Dim varFile As Variant

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Selecione o(s) arquivo(s) de Leitura"
    .AllowMultiSelect = False
    If .Show = True Then

    For Each varFile In .SelectedItems
    txtFilePath = varFile
    Next

    DoCmd.TransferText acImportDelim, ";", "leitura", txtFilePath


    Exit Function

    End If
    End With

    TrataErro:



    End Function
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3468
    Registrado : 04/04/2010

    Re: Selecionar varios arquivos .dat e mudar para txt

    Mensagem  Avelino Sampaio em 20/2/2018, 16:36

    Olá!

    veja neste meu artigo como renomear (copie e cole o endereço abaixo no seu navegador):

    usandoaccess.com.br/dicas/renomear-arquivos-no-access.asp?id=1&idlista=162

    Sucesso!

    rm1622
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 15/10/2013

    Re: Selecionar varios arquivos .dat e mudar para txt

    Mensagem  rm1622 em 21/2/2018, 13:24

    vou tentar adaptar. Assim que eu conseguir eu dou uma resposta.
    Muito obrigado por enquanto.

      Data/hora atual: 21/11/2018, 02:22