none
Importar arquivos txt de uma pasta RRS feed

  • Pergunta

  • Pessoal eu sou novo aqui e gostaria de ajuda. olhei o quase todos os tópicos e não achei.

    quero importar arquivos txt(36 arquivos) para o Excel.

    cada arquivo txt tem no máximo 500.000 linhas, sendo que eu vou usar uma condição para colocar as que eu quero no excel.

    minha dificuldade é de ler o arquivo "01" ate o fim e depois abrir o "02" e por ai vai....

    aguardando ajudas pfvr

    quarta-feira, 25 de fevereiro de 2015 18:56

Respostas

  • Leandro, vou considerar que você conhece o VBA....

    primeiramente cria um método para ler um arquivo

    voidLerArquivo(strNomeArquivo as string)

    ok, feito isso basta fazer um laço que leia quais arquivos serão importados...

    Quando preciso fazer esses tipos de procedimento, crio uma pasta e jogo todos os arquivos lá dentro.

    No VBA crio um objeto FileSystem para ler quais arquivos estão nessa pasta e faço um loop ...

      Dim FileSystem As Object
      Dim Folder As Object
      Set FileSystem = CreateObject("Scripting.FileSystemObject")
      Set Folder = FileSystem.GetFolder(CaminhoDaPasta)

    For Each File In Folder.Files voidLerArquivo File.path next





    Natan


    quarta-feira, 25 de fevereiro de 2015 20:34

Todas as Respostas

  • Leandro, vou considerar que você conhece o VBA....

    primeiramente cria um método para ler um arquivo

    voidLerArquivo(strNomeArquivo as string)

    ok, feito isso basta fazer um laço que leia quais arquivos serão importados...

    Quando preciso fazer esses tipos de procedimento, crio uma pasta e jogo todos os arquivos lá dentro.

    No VBA crio um objeto FileSystem para ler quais arquivos estão nessa pasta e faço um loop ...

      Dim FileSystem As Object
      Dim Folder As Object
      Set FileSystem = CreateObject("Scripting.FileSystemObject")
      Set Folder = FileSystem.GetFolder(CaminhoDaPasta)

    For Each File In Folder.Files voidLerArquivo File.path next





    Natan


    quarta-feira, 25 de fevereiro de 2015 20:34
  • Pra cer sincero eu sou iniciante, conheço outra linguagem que é muito diferente rsrsr.

    mas eu vou tentar executar como vc explicou. Qualquer duvida volto aqui. Mas obrigado pela ajuda.

    quarta-feira, 25 de fevereiro de 2015 22:27
  • blz....

    abraço!


    Natan

    quarta-feira, 25 de fevereiro de 2015 23:37
  • vlw pela ajuda meu amigo.. deu tudo certinho... adiantou meu trabalho pacas

    abraço!!!

    sexta-feira, 27 de fevereiro de 2015 12:02