Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

DRIMI

Importar vários arquivos txt para mdb

Recommended Posts

Bom dia!

 

Olá possuo vários arquivos em txt e vou demorar muito importando um por um para dentro do Access, eu quero saber se existe alguma forma de importar todos estes arquivos de uma só vez? Se sim como fazer?

 

Desde já agradeço!

 

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

 

Imagino que este problema já tenha sido resolvido, mas segue, assim mesmo, uma rotina feita em VBA...

 

*Necessário ao menos um form com um TextBox - txtDir...

 

Sub modImportTxt()
Dim strArquivo As String, SQL As String, strTable As String
Dim numCount As Integer

On Error GoTo Err_Import

With Form_ifrmExplorer 'ifrmExplorer: formulário utilizado

If Not IsNull(.txtDir) Then 'txtDir: TextBox onde será informado o diretório dos arquivos

DoCmd.Hourglass True 'Ampulheta

'Declaração do diretório dos arquivos
strArquivo = Dir(.txtDir & "\*.txt") 'Listagem apenas de arquivos .txt

'Atribuição do nome da tabela de destino
strTable = "tmpTemp"

'Copia os nomes dos arquivos do diretório
Do Until strArquivo = ""
.lstArquivo.AddItem strArquivo 'Inclui os nomes dos arquivos txt à variável
DoCmd.TransferText acImportDelim, "ImportSpecification", strTable, strArquivo, False 'Rotina para importar os arquivos txt
strArquivo = Dir 'Atribuição do próximo .txt
Loop
.txtDir = Null 'Limpa as caixa de texto

'Finalização do processo
MsgBox "Processo finalizado com sucesso!", vbInformation, "iMasters - Access"
DoCmd.Hourglass False 'Ampulheta

Else

'Solicitação de preenchimento do campo txtDir
MsgBox "Informe o folder onde se encontram os arquivos!", vbCritical, "iMasters - Access"

End If

End With


Exit_Import:
Exit Sub

Err_Import:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "iMasters - Access"
DoCmd.Hourglass False 'Ampulheta

Resume Exit_Import

End Sub[/Code]

 

 

 

Abaixo está um tutorial, BEM LEGAL, mostrando como criar um "SpecificationName" - leia apenas "Importing from a text document (.txt)"...

 

http://www.databasedev.co.uk/text-import-macro.html

 

 

 

 

PS: "Não existe pergunta idiota; Idiota é não perguntar..."

 

 

 

 

Sem mais,

 

Julien Sorel

Compartilhar este post


Link para o post
Compartilhar em outros sites

Julien,

 

Boa tarde!!

 

Sou novo no fórum e também no VBA do Access, e estou tendo um pouco de dificuldade na macro acima.

 

No comando .lstArquivo.AddItem strArquivo o VBA não reconhece o objeto .lstArquivo, eu deveria alterar esse objeto para algum nome do meu formulário?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Doutor, faça a copia dos varios arquivos para um só (no prompt de comando >> copy *.txt arquivo_unico.txt)

 

Após isto faça a importação.

 

Em migrações de banco de dados, sempre geramos arquivos em TXT e quando são muitos, fazemos a junção deles e depois importação para o ACCESS manualmente (serviço que é feito apenas algumas vezes). Após isto manipulamos as informações e importamos para uma tabela padrão para fazermos importação para o Postgres através de aplicação.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.