VBA från gul fil

Sub OpenTextFile()

Dim FilePath As String

FilePath = "C:\Users\999liso\Documents\Projekt_SvH\Attribut\Färg\Färg_gulCSV.csv"

Open FilePath For Input As #1

row_number = 0

Do Until EOF(1)

    Line Input #1, LineFromFile

    If (row_number > 0) Then

    LineItems = Split(LineFromFile, ";")

    ActiveCell.Offset(row_number, 1).Value = LineItems(0)

    End If


    row_number = row_number + 1

Loop

Close #1


End Sub