Mit dem Code
Workbooks.Open Filename:= _
"K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\erstes Halbjahr_2008\burausgabedateiMitTraeger20081114_07_24_59.csv"
Application.Run "checkname"
wird eine csv in einer neuen Arbeitsmappe ohne Semikolon geöffnet.
Ich möchte jedoch mit dem Getopen Befehl meine Dateien zum Öffnen selber aussuchen:
Mit folgendem Code wird die CSV datei jedoch nur in der gleichen Datei mit Semikolon geöffnet:
Sub KonvertErsatz()
Dim Textfile As String
Const Textfile_Pfad As String = "K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\erstes _
Halbjahr_2008\"
Const Textfile_Laufwerk As String = "K:"
ChDrive Textfile_Laufwerk
ChDir Textfile_Pfad
Textfile = Application.GetOpenFilename("Textdateien (*.*), *.csv", , "Textdateien")
Workbooks.OpenText Filename:=Textfile
Application.Run "checkname"
End Sub
Wo habe ich hier bitte den Fehler gemacht bzw. wie würde der richtige code bitte lauten?
Danke
Josef