Mit folgendem Code (Ein Danke an ChrisL) kann ich eine CSV Dateien öffnen:
Sub Import()
Workbooks.OpenText "c:\Download\Ak.csv", _
DataType:=xlDelimited, Semicolon:=True
End Sub
In diesem Beispiel muß ich jedoch bereits im Code angeben, welche CSV Datei ich öffnen möchte.
Ich möchte jedoch eine CSV Datei meiner Wahl öffnen.
Hierzu bekam ich ebenfalls von ChrisL folgenden Code:
Dim fFile
ChDir "G:\Dok\Excel\Ak"
fFile = Application.GetOpenFilename("CSV-Dateien (*.csv), *.csv")
If fFile = False Then Exit Sub
Workbooks.Open FileName:=fFile
End Sub
Wo müßte ich bitte im ersten Code eine Änderung vornehmen, damit dies funktioniert?
Im ersten Code müßte in jedem Fall zumindest
DataType:=xlDelimited, Semicolon:=True
erhalten bleiben.
Danke
Josef