none
Criar arquivos a partir de uma lista RRS feed

  • Pergunta

  • Olá,

    Preciso criar vários arquivos do Excel, um arquivo para cada nome de creche que eu tenho na lista, porém, são
    120 nomes na lista, ou seja, preciso criar 120 arquivos baseados na lista que eu tenho.

    Preciso saber como fazer isso via código VBA.

    Eu peguei no site da Microsoft o seguinte código, mas não sei como fazer para ele puxar os nomes da lista.


    Dim fso, MyFile
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set MyFile = fso.CreateTextFile("C:\Documents and Settings\All Users\Documentos\Empenhos\testfile.xls", True)
       MyFile.WriteLine ("This is a test.")
       MyFile.Close

    Se alguém puder me ajudar.

    Vlw :)
    Leandro Sarno
    segunda-feira, 18 de janeiro de 2010 12:56

Respostas

  • Como respondi no Excel

    Crie uma variável para o nome dos arquivos
    e faça um loop para ler a lista em uma planilha
    ex.
        A
    1  Creche1
    2  Creche2
    3 ...
    4 ...


    Dim sArquivo as string
    Dim ilin,icol as long

    Dim fso, MyFile
       Set fso = CreateObject("Scripting.FileSystemObject")
    ilin = 1

    icol =1

    While Cells(ilin,icol).text <> ""
       sArquivo = Cells(ilin,icol).text
       Set MyFile = fso.CreateTextFile("C:\Documents and Settings\All Users\Documentos\Empenhos\" & sArquivo & ".xls", True)
       MyFile.WriteLine ("This is a test.")
       MyFile.Close

       ilin = ilin +1

    wend

    Ok

     


    Wesley
    Wesley
    • Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:34
    segunda-feira, 18 de janeiro de 2010 15:57

Todas as Respostas

  • Como respondi no Excel

    Crie uma variável para o nome dos arquivos
    e faça um loop para ler a lista em uma planilha
    ex.
        A
    1  Creche1
    2  Creche2
    3 ...
    4 ...


    Dim sArquivo as string
    Dim ilin,icol as long

    Dim fso, MyFile
       Set fso = CreateObject("Scripting.FileSystemObject")
    ilin = 1

    icol =1

    While Cells(ilin,icol).text <> ""
       sArquivo = Cells(ilin,icol).text
       Set MyFile = fso.CreateTextFile("C:\Documents and Settings\All Users\Documentos\Empenhos\" & sArquivo & ".xls", True)
       MyFile.WriteLine ("This is a test.")
       MyFile.Close

       ilin = ilin +1

    wend

    Ok

     


    Wesley
    Wesley
    • Marcado como Resposta LeandroSarno terça-feira, 26 de janeiro de 2010 11:34
    segunda-feira, 18 de janeiro de 2010 15:57
  • Como respondi no Excel

    Crie uma variável para o nome dos arquivos
    e faça um loop para ler a lista em uma planilha
    ex.
        A
    1  Creche1
    2  Creche2
    3 ...
    4 ...


    Dim sArquivo as string
    Dim ilin,icol as long

    Dim fso, MyFile
       Set fso = CreateObject("Scripting.FileSystemObject")
    ilin = 1

    icol =1

    While Cells(ilin,icol).text <> ""
       sArquivo = Cells(ilin,icol).text
       Set MyFile = fso.CreateTextFile("C:\Documents and Settings\All Users\Documentos\Empenhos\" & sArquivo & ".xls", True)
       MyFile.WriteLine ("This is a test.")
       MyFile.Close

       ilin = ilin +1

    wend

    Ok

     


    Wesley
    Wesley

    :) Vlw - vou testar ! Deus seja convosco
    Leandro Sarno
    segunda-feira, 18 de janeiro de 2010 17:53