Importar vários arquivos txt para mdb

[DRIMI 0]

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

[Douglas Fabiano 0]

Fácil

 

no 2007:

 

Dados externos => aba "Importar" => Arquivo de texto

 

Escolha o arquivo .txt e especifique como quer armazenar seus dados.

 

Abraço!

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Daniel LM Costa 2]

Pergunta idiota..

 

 

você quer fazer isso de forma automática ????

[Julien.Sorel 0]

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

[Jrwolf 0]

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?

[antonio_gyn 0]

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.