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

macros de Microsoft Excel puede ayudarle a automatizar casi cualquier tipo de tarea , el aumento de su productividad y mejorar su eficiencia. Escrito en VBA , las 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 manualmente , usted tendría que abrir el archivo en un procesador de texto , copiar su contenido y la pasta en Excel. Si se trata de muchos archivos de texto , este método puede parecer desalentador y aburrido . Una función VBA simple puede ayudar a automatizar ella. Instrucciones
1

Inicie Microsoft Excel. Presione " Ctrl + N " para crear un nuevo libro. Para utilizar uno de los libros en su lugar , presione "Ctrl + O ", seleccione el archivo y haga clic en " Abrir".
2

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

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

Sub GetFromTextFile ()

sFile Dim , WholeLine Como
secuencia

startCell As Range

c As Integer

septiembre = Chr ( 13 )

Application.ScreenUpdating = False

sFile = "C : \\ YOURTEXTFILE.txt "

sFile abierto para acceso de entrada de Lee como # 1

While Not EOF ( 1 )

entrada de línea # 1 , WholeLine

Si Derecha ( WholeLine , 1 ) < > septiembre Entonces

WholeLine = WholeLine y septiembre

End If

ActiveCell.NumberFormat = " @"

ActiveCell.Value = WholeLine

ActiveCell.Offset ( 1 , 0). Seleccione

Wend

Close # 1 End Sub

4

Pulse " Alt + Q " para cerrar el editor de VBA y vuelva a su libro.
5

Presione " Shift + F11 " para crear una hoja en blanco .
6

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