MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Selecionar varios arquivos .dat e mudar para txt

    avatar
    rm1622
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Selecionar varios arquivos .dat e mudar para txt Empty Selecionar varios arquivos .dat e mudar para txt

    Mensagem  rm1622 16/2/2018, 10: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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Selecionar varios arquivos .dat e mudar para txt Empty Re: Selecionar varios arquivos .dat e mudar para txt

    Mensagem  Avelino Sampaio 20/2/2018, 13: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!
    avatar
    rm1622
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Selecionar varios arquivos .dat e mudar para txt Empty Re: Selecionar varios arquivos .dat e mudar para txt

    Mensagem  rm1622 21/2/2018, 10:24

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

    Conteúdo patrocinado


    Selecionar varios arquivos .dat e mudar para txt Empty Re: Selecionar varios arquivos .dat e mudar para txt

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:41