Cómo copiar el contenido de un archivo de texto a una hoja de cálculo que utiliza VBA

macros de Microsoft Excel pueden ayudar a automatizar casi cualquier tipo de tarea, el aumento de su productividad y la mejora de su eficiencia. Escrito en VBA, macros pueden crear, manipular y eliminar los datos dentro de cualquier hoja de cálculo. Además, puede utilizar macros para tomar información de una base de datos externa o archivo. Para importar datos desde un archivo de texto de forma manual, usted tendría que abrir el archivo en un procesador de texto, copiar su contenido y el les pega en Excel. Si se trata de varios archivos de texto, este método puede parecer desalentador y tedioso. Una simple función de VBA puede ayudar a automatizar la misma.

Instrucciones

1 Iniciar Microsoft Excel. Pulse la tecla "Ctrl + N" para crear un nuevo libro. Para utilizar uno de los libros en cambio, pulse la tecla "Ctrl + O", seleccione el archivo y haga clic en "Abrir".

2 Pulse la tecla "Alt + F8" para abrir el cuadro de diálogo Macros. Tipo "GetFromTextFile" en el cuadro Nombre de la macro y haga clic en "Crear".

3 Introduzca el código siguiente en el editor de VBA. Reemplazar "C: \ YOURTEXTFILE.txt" con la ubicación exacta del archivo de texto que desea importar.

Sub GetFromTextFile ()

Dim sFile, WholeLine As String

Dim StartCell como gama

Dim c As Integer

Sep = Chr (13)

Application.ScreenUpdating = False

sFile = "C: \ YOURTEXTFILE.txt"

sFile abiertas de acceso de entrada que se lea como # 1

Aunque no es EOF (1)

Line Input #1, WholeLine

Si Derecha (WholeLine, 1) & lt;> Luego septiembre

WholeLine = WholeLine y septiembre

Terminara si

ActiveCell.NumberFormat = "@"

ActiveCell.Value = WholeLine

ActiveCell.Offset (1, 0) .Seleccionar

Encaminarse a

Close # 1

End Sub

4 Pulse la tecla "Alt + Q" para cerrar el editor de VBA y volver a su libro.

5 Pulse la tecla "Shift + F11" para crear una hoja en blanco.

6 Pulse la tecla "Alt + F8" para abrir el cuadro de diálogo Macros de nuevo. Seleccione "Obtener FromTextFile" y haga clic en "Ejecutar". Esto copia el contenido de su archivo de texto a la hoja en blanco.

Consejos y advertencias

• Para obtener la ubicación exacta de cualquier archivo en su computadora, mantenga presionada la tecla "Shift" y haga clic en el icono del archivo. Seleccione la opción "Copiar como ruta de acceso" en el menú contextual. Esto envía la ubicación del archivo (entre comillas) en el portapapeles.
• De forma predeterminada, puede que no sea capaz de crear o ejecutar macros en Microsoft Excel. Para habilitar las macros, haga clic en el botón de Microsoft Office y luego ir a "Opciones de Excel". En "populares", asegúrese de que "Mostrar ficha Programador" está marcada. Después, vaya a "Centro de confianza" y haga clic en "Configuración del Centro de confianza." Haga clic en "Configuración de macros" y luego seleccione "Habilitar todas las macros". Haga clic en "OK" en ambos cuadros de diálogo para guardar los cambios. En algunos casos, es posible que tenga que reiniciar Excel para que los cambios surtan efecto.