Compartilhar via


Redefinir instrução

Fecha todos os arquivos de disco abertos usando a instrução Abrir .

Sintaxe

Reset

Comentários

A instrução Redefinir fecha todos os arquivos ativos abertos pela instrução Open e grava o conteúdo de todos os buffers de arquivo em disco.

Exemplo

Este exemplo usa a instrução Redefinir para fechar todos os arquivos abertos e gravar o conteúdo de todos os buffers de arquivo em disco. Observe o uso da variável Variant como uma cadeia de caracteres e um número.

Dim FileNumber 
For FileNumber = 1 To 5 ' Loop 5 times. 
 ' Open file for output. FileNumber is concatenated into the string 
 ' TEST for the file name, but is a number following a #. 
 Open "TEST" & FileNumber For Output As #FileNumber 
 Write #FileNumber, "Hello World" ' Write data to file. 
Next FileNumber 
Reset ' Close files and write contents 
 ' to disk. 

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.