Ich möchte eine CSV Datei öffnen mit nem Semikolon als Delimiter, das funkt aber nicht, die MsgBox zeigt die gesamte 1. Zeile an, was ist daran falsch? Gilt das nur für XLS Dateien? Gibt es da noch nen anderen Weg die CSV Datei auszulesen, ohne SQL?
Private Sub Form_Initialize()
Const xlDatei As String = "daten.csv"
Const xlWS1_Name As String = "daten"
Set xlAppl = CreateObject("Excel.Application")
xlAppl.Workbooks.open FileName:="c:\" & xlDatei, format:=6, delimiter:=";"
Set xlWb = xlAppl.Workbooks(xlDatei)
Set xlWS1 = xlWb.Worksheets(xlWS1_Name)
MsgBox (xlWS1.Cells(9, 1))
End Sub
Danke für die Hilfe!