VBA se utiliza en Excel para crear macros que automatizan las tareas que normalmente se realizan manualmente. La realización de estas tareas de forma manual puede ser lento y engorroso. Muchas veces los usuarios necesitan para copiar y pegar datos en Excel a partir de archivos de texto. Basta con copiar y pegar los datos desde un archivo de texto en Excel no dará lugar a los datos con el formato correcto . El método OpenText se utiliza para cargar un archivo de texto y analizarlo . Una hoja de cálculo se crea con los datos analizados . Este método elimina la necesidad de que el usuario pueda importar manualmente el archivo de texto y pasar por el " Asistente para importar texto " . Instrucciones
1

Abra un libro nuevo. Pulse Alt y F11 en su teclado para abrir el editor de VBA. Haga clic en el menú Archivo y seleccione " Nuevo". Doble click en la hoja ( Hoja1 ) en Objetos de Microsoft Excel en el cristal de la ventana Project- VBAProject .
2

subtipo , seguido por el nombre de la macro en la primera línea , como Sub Open () . Usted puede dar a la macro el nombre que desea
3

Añada el método OpenText , especificando la información siguiente: .

1 . Directorio del archivo se encuentra pulg2 . El número de fila que le gustaría comenzar a importar los datos in El origen del archivo es 437 : OEM Estados Unidos por defecto si usted está en los Estados Unidos.3 . Elija si desea analizar el archivo en un delimitado frente ancho fijo. Con delimitado , debe especificar cuál es el delimitador es analizar el archivo , como el tabulador , punto y coma , coma, espacio , o un delimitador personalizado. Ajuste el delimitador que desea utilizar para TRUE, y el resto de los delimitadores en false.

Por ejemplo , si queremos analizar un archivo de texto que se encuentra en el escritorio de John Smith , separados por tabs , usaríamos el siguiente código:

Workbooks.OpenText fichero: = _ " C: \\ Documents and Settings \\ Jsmith \\ Desktop \\ info.txt " , Origen: = 437, StartRow _: = 1 , Tipo de datos: = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = True , Punto y coma : = False , Comma : = False _ , espacio : = False , Other : = False , FieldInfo : = Array ( 1 , 1 ) , _TrailingMinusNumbers : = True
4

final de la macro , escriba "End Sub " . Guarde la macro haciendo clic en el botón Guardar en la barra de herramientas. Cierre la ventana de Visual Basic .
5

Ejecute la macro haciendo clic en la pestaña Ver en la barra de herramientas . Haga clic en Macros y seleccione la macro. Haz clic en el botón " Ejecutar" .