Requiere código fuente completo escrito en VBA

Nombre de archivo atenuado, la cadena de entrada es una cadena

Marcar I como un número entero

Datos difusos

i = 1

Nombre de archivo = "d:\textDocument.txt"

El nombre del archivo abierto para el acceso de entrada se lee como #1

Hacer mientras no sea EOF(1 )

Entrada de línea #1, cadena de entrada 'Leer una línea.

datos = Split(cadena de entrada, " ")

Para j = 1 a 100

ActiveSheet. Celdas (i, j) = datos (j) 'más la condición, es decir, las filas que se importarán.

Siguiente j

i = i 1

Lazo

Cerrar #1

Conector final

p>