Criar nome de arquivo a partir de uma célula

Question

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

Answer 1

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