Función Input [VBA]

Devuelve el flujo abierto de un archivo de entrada o binario (cadena).

Icono de advertencia

Esta función o constante se activa por medio de la instrucción Option VBASupport 1, colocada antes del código del programa ejecutable de algún módulo.


Sintaxis:

Input( Number as Integer, [# ] FileNumber as Integer)

Valor de retorno:

String

Parámetros:

Number: Required. Numeric expression specifying the number of characters to return.

#: opcional.

FileNumber: Required. Any valid file number.

Códigos de error:

6 Desbordamiento

52 Nombre de archivo o número incorrectos

62 Demasiados archivos

Ejemplo:

REM ***** BASIC *****

Option VBASupport 1

Sub Example_Input

 Dim MyData

 Open "MyDataFile.txt" For Input As #1

 Do While Not EOF(1)

  MyData = Input(1, #1)

  Print MyData

 Loop

 Close #1

End Sub