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

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, ""

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!!!!

como vai? valeu pela força mas acho que faltou o link hehehehehe
agradeço a ajuda

Fala Giba!!!!

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

Total falta de atenção!!!!      

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!!!!

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!

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

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!!!!
       


Desde já agradeço....

Abraço a todos!!!!

sem problemas! o importante é aprender e divulgar o que sabe
valeu e até a proxima.

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