VBA – Criar arquivo de texto com CreateTextFile

Este tutorial demonstrará como criar um arquivo de texto com o VBA.

Criar um Arquivo de Texto

Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência à biblioteca de tempo de execução do script VB.

Para criar um arquivo de texto, você pode usar o código abaixo com o método CreateTextFile.

Sub FSOCriarArquivoTexto()
 Dim FSO As Object
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Dim ArquivoTexto As Object

 Set ArquivoTexto = FSO.CreateTextFile("C:\Teste\ArquivoTeste.txt")

End Sub

Você pode passar argumentos opcionais para o método CreateTextFile

• Se você definir o argumento “overwrite” como true, um arquivo já existente também poderá ser substituído.
• Se você definir o argumento “unicode” como verdadeiro, será criado um arquivo unicode; caso contrário (ou se o argumento for omitido), o resultado será um arquivo ASCII.

No exemplo a seguir, um ArquivoTeste.txt existente será substituído por um arquivo unicode

Set ArquivoTexto = FSO.CreateTextFile("C:\Teste\ArquivoTeste.txt", True, True)

Gravação em Arquivo de Texto

Depois de criar um arquivo de texto, você pode gravar texto no arquivo usando uma única linha de código

ArquivoTexto.Write "conteúdo"

Clique no link para saber mais sobre como gravar em arquivos de texto usando os métodos Write, WriteLine e WriteBlankLines.