¿Cómo leer datos de un archivo de texto en Excel VBA?

Programa VBA para leer un archivo de Texto línea por línea (Datos de Ventas) y lugares en una hoja de trabajo.

Datos de ventas en archivo de texto: 5 campos [Producto, trimestre 1, trimestre 2, trimestre 3 y trimestre 4] y 25 registros (encabezado incluido)

Los datos de ventas

El código VBA leerá un archivo de texto y lo colocará en las celdas de la hoja de trabajo como se muestra a continuación

Código VBA:

Declarando variables:

Variables	Tipo de datos	Comentarios
línea	Cuerda	Leer archivo de texto línea por línea
Nombre del archivo	Cuerda	Nombre del archivo de entrada (ruta completa)
i	Entero	iterador
valorarr()	Cuerda	divida la oración por coma y guárdela en una variable de array de tipo String

    'Variable declarations
    Dim line As String, Filename As String, i As Integer, valuesArr() As String

Inicialice la variable «Nombre de archivo» con la ruta completa y el nombre de archivo

    'Text file fullPath
    Filename = "D:\Excel\ReadTextFile\sales.txt" 'update your full file path
    i = 1

Abrir archivo de entrada para leer texto

    'Open file
    Open Filename For Input As #2

Leer archivo de entrada línea por línea

    'Read line by line - text file
    While Not EOF(2)
        Line Input #2, line

Dividir por coma y almacenarlo en valueArr(). En nuestro ejemplo, cada línea tiene 5 valores concatenados con coma.

        'split the line by comma separated, assigned in an array
        valuesArr() = Split(line, ",")

Agregue texto a las celdas respectivas desde valuesArr(). Lea cada elemento en una array por su valor de índice

        Cells(i, "A").Value = valuesArr(0)
        Cells(i, "B").Value = valuesArr(1)
        Cells(i, "C").Value = valuesArr(2)
        Cells(i, "D").Value = valuesArr(3)
        Cells(i, "E").Value = valuesArr(4)