Índice
Este tutorial demonstrará como criar um arquivo de texto com VBA.
Crie um arquivo de texto
Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência para a biblioteca de tempo de execução de script VB.
Para criar um arquivo de texto, você pode usar este código abaixo com Método CreateTextFile.
| 12345678 | Sub FSOCreateTextFile ()Dim FSO como objetoDefina FSO = CreateObject ("Scripting.FileSystemObject")Dim TextFile As ObjectDefinir TextFile = FSO.CreateTextFile ("C: \ Test \ TestFile.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 pode ser substituído.
- Definindo o argumento “unicode” como verdadeiro, um arquivo unicode é criado, caso contrário (ou se o argumento for omitido) o resultado será um arquivo ASCII.
No exemplo a seguir, um TestFile.txt existente será substituído por um arquivo Unicode:
| 1 | Set TextFile = FSO.CreateTextFile ("C: \ Test \ TestFile.txt", True, True) |
Gravando em arquivo de texto
Depois de criar um arquivo de texto, você pode escrever o texto no arquivo usando uma única linha de código:
| 1 | TextFile.Write "conteúdo" |
Clique no link para saber mais sobre como gravar em arquivos de texto usando os métodos Write, WriteLine, WriteBlankLines.
