Hallo zusammen,
ich versuche ein Makro zu basteln, welches mir eine CSV-Datei in einer Excel-Tabelle öffnet. Leider erkennt er die Komma-Trennung der Datei nicht und öffnet deshalb alle Daten in der ersten Spalte. Selbst der Local:= True Parameter hat mir nicht geholfen. Nun bin ich leider mit meinem Latein am Ende...
Ich hoffe jemand hat einen Tipp für mich.
Vielen Dank
Felix
Sub OpenCSV()
Dim ZielDatei As Object 'Input Workbook
Dim ZielDatei_Pfad As String 'Pfad Input Workbook
Dim sht As Worksheet
MsgBox ("Wählen Sie bitte nun die Datei aus, welche alle Kunden beinhaltet") 'Input Workbook abfragen
ZielDatei_Pfad = Application.GetOpenFilename()
If ZielDatei_Pfad = "Falsch" Then Exit Sub
Set ZielDatei = Workbooks.Open(ZielDatei_Pfad, Local:=True)
Set sht = ZielDatei.ActiveSheet
End Sub()
|