XL lädt unter Daten > Aus Text/CSV zum sehr hübsch gemachten Import von Daten ein, die dann auch gleich in PowerQuery präsentiert werden. Problem dabei: Um z.B. Kommata in den Daten zu behalten, braucht es einigen Aufwand. Gesehen habe ich dazu schon dreizeilige Formeln ...
Einfacher geht es hiermit (Code in eine Tabelle):
Code: Alles auswählen
Option Explicit
Sub DirectImport()
Dim sFile As String, sFilter As String, sLine As String
Dim iFile As Integer, i As Integer
sFilter = "CSV-Dateien(*.csv), *.csv" 'ANPASSEN
ChDir "X:\" 'ANPASSEN - ggf. Ordnernamen ergänzen
sFile = Application.GetOpenFilename(sFilter)
iFile = FreeFile
Cells.Clear
Open sFile For Input As #iFile
Do While Not EOF(iFile)
i = i + 1
Line Input #iFile, sLine
Cells(i, 1) = sLine
Loop
Close #iFile
MsgBox "Done: " & i & " lines imported"
End Sub
lg