Hent eksterndata

Her er et eksempel, som åbner en fil og indlæser hver linie i kolonne A:

Sub Macro1()
   
    ' Sæt standardsti
    Const path = "c:\"
   
    ' Indtast filnavn
    filename = InputBox("Indtast venligst et filnavn", "Indtast i stien " & filename, "", 100, 100)

    If Len(filename) > 0 Then
        ' Hvis brugeren har indtastes et filnavn, checkes om det eksisterer
        Set fs = CreateObject("Scripting.FileSystemObject")
        if f.fileexists(path & filename) = true then
            ' Filen eksisterer og indlæser alle linier i kolonne A
            Set f = fs.OpenTextFile(path & filename)
            linienr = 1
            Do While Not f.atendofstream
                Cells(linienr, 1) = f.readline
                linienr = linienr + 1
            Loop
        End If
        f.Close
        Set fs = Nothing

End Sub