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

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  giba_ 24/9/2013, 19:29

    Quando realizamos a importação de um arquivo/obter dados externos/ importar o proprio access sugere um nome, teria como uma rotina em vba pegar o nome do arquivo e gravar como uma nova tabela com esse nome?

    atualmente utilizo a seguinte rotina para importar arquivos txt

    Dim File As String
    File = ShowFileDialog
    If File = vbNullString Then
    Exit Sub
    End If
    DoCmd.TransferText acImportDelim, "cust_esp", "FileName", File, False, ""

    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  CrisMaleta 24/9/2013, 21:48

    Fala Giba....

    Dá uma olhada neste tópico e vê se ajuda em alguma coisa.....

    A princípio, você precisaria guardar o nome do arquivo em uma variável e colocar essa variável no lugar do nome que você vai colocar para a tabela....

    Vai importar o arquivo e nomear a tabela com o nome do TXT.....

    Manda noticia da evolução.....

    Desde já agradeço....

    Abraço a todos!!!!
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  giba_ 25/9/2013, 02:41

    como vai? valeu pela força mas acho que faltou o link hehehehehe
    agradeço a ajuda
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  CrisMaleta 25/9/2013, 13:46

    Fala Giba!!!!

    Mil perdões pela mancada cara!!!!!

    Total falta de atenção!!!!affraid affraid affraid affraid affraid affraid 

    Seguinte, fiz um botão com o procedimento que eu acho q vc precisa.....

    Acabei fazendo completo.....

    Ao clicar no botão, abre uma janela no padrão Windows pra selecionar o arquivo a ser importado....
    Após selecionar, trato o endereço completo e retiro o nome do arquivo....
    Após o tratamento, importo o arquivo selecionado e a tabela de importação fica com o nome do arquivo....

    Acho que entra na sua dúvida....
    Dá uma adaptada para o seu código vai informando o andamento!!!!


    Desde já agradeço...

    Abraço a todos!!!!
    Anexos
    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 208 vez(es)
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  giba_ 25/9/2013, 14:01

    a ideia ficou bacana, estamos quase lá

    no entanto apareceu o seguinte erro

    Erro de compilação

    É impossivel localizar o projeto ou a biblioteca

    verifiquei nas referencias e notei que estava como : AUSENTE: Microsoft Office 14.0 Access database engine Object Library
    acredito que seja em relação a versão utilizo office 2003

    apenas complementando o codigo parou na seguinte linha

    NomeArquivo = Mid(EndArquivo, Posicao + 1, Len(Mid(EndArquivo, Posicao + 1)) - 4)

    no segundo Mid

    valeu!
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  giba_ 25/9/2013, 14:18

    Grande CrisMaleta
    a curiosade faz o homem, desabilitei a rotina e alterei na linha

    alterei "NomeArquivo"
    para [NomeArquivo]

    DoCmd.TransferText acImportDelim, "cust_esp", [NomeArquivo], EndArquivo, False, ""

    ai funcionou perfeitamente, valeu muito e aprendi bastante

    obrigado ! sucesso pra todos
    avatar
    CrisMaleta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 20/08/2013

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  CrisMaleta 25/9/2013, 17:20

    Fala Giba....

    Ainda bem que tudo funcionou blz.....

    Acho que mais uma vez pisei na bola... na verdade, como estou direcionando uma variável para o comando de importação, esta variável não pode estar entre aspas.......

    Mas, depois dos ajustes, tudo ficou legal!!!!!

    Bora pro próximo problema!!!!
    bounce bounce bounce bounce bounce bounce bounce 


    Desde já agradeço....

    Abraço a todos!!!!
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  giba_ 25/9/2013, 17:55

    sem problemas! o importante é aprender e divulgar o que sabe
    valeu e até a proxima.
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  giba_ 25/9/2013, 20:43

    apenas completando o codigo caso o usuario cancele a importação


    Private Sub btn_importar1_Click()
    On Error GoTo Err_btn_importar1_Click

    Me.importar1 = "PROCESSANDO ....."

    Dim EndArquivo As String
    Dim NomeArquivo As String
    Dim Posicao As Integer
    Dim ProxPosicao As Integer
    Dim Encontrou As Boolean

    EndArquivo = EscolheArquivo

    ProxPosicao = 1
    Do While Encontrou = 0
    If InStr(ProxPosicao, EndArquivo, "\") > 0 Then
    Posicao = InStr(ProxPosicao, EndArquivo, "\")
    ProxPosicao = Posicao + 1
    Else
    Encontrou = 1
    End If
    Loop

    NomeArquivo = Mid(EndArquivo, Posicao + 1, Len(Mid(EndArquivo, Posicao + 1)) - 4)

    DoCmd.TransferText acImportDelim, "cust_esp", [NomeArquivo], EndArquivo, False, ""

    Me.importar1 = "FIM PROCESSAMENTO"

    Exit_btn_importar1_Click:
    Exit Sub

    Err_btn_importar1_Click:
    MsgBox "Cancelando importação ....", vbExclamation, "Operação de importação cancelada pelo usuário"
    Me.importar1 = ""
    Resume Exit_btn_importar1_Click

    End Sub

    Conteúdo patrocinado


    [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela Empty Re: [Resolvido]importar txt via vba pegando o nome do arquivo como o nome da tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:40