none
Criar nome de arquivo a partir de uma célula RRS feed

  • Pergunta

  • boa tarde,

    por gentileza, como crio um arquivo txt, sendo que seu nome é definido por uma célula?

    exemplo: na célula A1 da aba "menu", consta o nome "formulario", ou seja, deve criar um arquivo de nome formulario.txt

    Muito obrigado

    sábado, 12 de novembro de 2016 16:28

Todas as Respostas

  • Altere "c:\temp\" para o diretório que deseja salvar o arquivo. Não se esqueça do último \ ao especificar esse caminho.

    Sub Main()
        Dim FileNumber As Integer
        
        FileNumber = FreeFile
        
        Open "c:\temp\" & Range("A1") & ".txt" For Output As FileNumber
        Print #FileNumber, "Linha 1"
        Print #FileNumber, "Olá mundo! Linha 2!"
        Close #FileNumber
    End Sub


    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    sábado, 12 de novembro de 2016 17:18
    Moderador