Ir para conteúdo
Fórum Script Brasil
  • 0

Importar Vários arquivos txt para uma tabela


RICARDO BARBOSA machado

Pergunta

Sou novo no VB e estou tentando utilizar um código retirado de um forum e não estou conseguindo fazer com que funcione para a minha necessidade. Quero realizar uma importação de vários arquivos txt de uma pasta para o meu banco de dados. Utilizei um código, mas não está funcionando. Os dados são os seguintes: nome da tabela: "BASE TOTAL"; endereço onde se encontram os arquivos a serem importados: "F:\PROGRAMA INFORMATIVO"; especificação criada para a importação: "informativo base total";

Código que estou utilizando e não está dando certo:

Private Sub Comando3_Click()
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 = "BASE TOTAL"

'Copia os nomes dos arquivos do diretório
Do Until strArquivo = "F:\PROGRAMA INFORMATIVO"
.lstArquivo.AddItem strArquivo 'Inclui os nomes dos arquivos txt à variável
DoCmd.TransferText acImportDelim, "informativo base total", 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

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...