Descrição de entrada
Retorna o fluxo aberto de um arquivo de entrada ou binário (String).
Sintaxe de entrada
| 1 | Entrada (número, [#] FileNumber) |
A instrução de entrada contém 2 argumentos:
Número: O número de caracteres a serem retornados.
Número do arquivo:Número de arquivo válido.
Exemplos de declaração de entrada VBA do Excel
Para testar a instrução de entrada, crie um arquivo de texto “test.txt” na unidade D. (D: \ test.txt) Suponha que o conteúdo do arquivo seja o seguinte.
| 123 | abc1 2 3xy z |
Execute o seguinte código.
| 1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharAbra "D: \ test.txt" para Input As # 1 'Abra o arquivo.Do While Not EOF (1) 'Loop até o final do arquivo.MyChar = Input (1, # 1) 'Pegue um caractere.strContent = strContent & MyChar 'CicloMsgBox strContentFechar # 1 'Fechar arquivo.End Sub |
Então, o resultado será o seguinte.
