Cómo utilizar el método OpenText en Excel

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" .