ich muss euch mal wieder um Hilfe bitten. Habe ein schönes keiner Makro mit Excel2003 geschrieben, das mir ne Tabelle in .csv speichern soll.
Sheets(„Tabelle1“).Select
ActiveWorkbook.SaveAs Filename:= _
„C:…\Import.xls“, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets(„Tabelle3“).Select
ActiveWorkbook.SaveAs Filename:= _
„C:…“ & Format(Date, „yyyymmdd“) & „.csv“, FileFormat _
=xlCSV, CreateBackup:=False
Soweit sogut… Nun muss ich die .csv Datei in ein anderes Programm importieren, das aber als Trennzeichen nur Semikolon";" erkennt.
Habe es:
a. Mit der Ländereinstellung versucht, war vergeblich
b. Mit FileFormat _:=xlCSVWindows, FileFormat _
=xlCSVMSDOS und was ich sonnst noch gefunden habe. Nichts
e. Mit ein paar hier im Forum gefundenen Lösungsmakros aufgenommen, welche die soeben gespeicherte Nachricht wieder öffnen läst u die , in ; umwandelt. Da ich die Datei jedesmal nach aktuellem Datum speichere ( „C:…“ & Format(Date, „yyyymmdd“) & „.csv“), weis ich jetzt als Leie nicht, wie ich dem Ding sagen soll, dass er genau diese Datei wieder öffnen muss.
Also, ich bin um jede Hilfe dankbar,
wünsche allen ein bald eintreffendes und tolles WE
Sub tt()
Dim Datei As String, Satz As String
Sheets("Tabelle3").Select
Datei = "C:\test\" & Format(Date, "yyyymmdd")
ActiveWorkbook.SaveAs FileName:=Datei & ".txt", FileFormat:=xlCSV, CreateBackup:=False
Close
Open Datei & ".txt" For Input As #1
Open Datei & ".csv" For Output As #2
While Not EOF(1)
Input #1, Satz
Print #2, Replace(Satz, ",", ";")
Wend
Close
Kill Datei & ".txt"
End Sub
ich muss euch mal wieder um Hilfe bitten. Habe ein schönes
keiner Makro mit Excel2003 geschrieben, das mir ne Tabelle in
.csv speichern soll.
Sheets(„Tabelle1“).Select
ActiveWorkbook.SaveAs Filename:= _
„C:…\Import.xls“, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets(„Tabelle3“).Select
ActiveWorkbook.SaveAs Filename:= _
„C:…“ & Format(Date, „yyyymmdd“) & „.csv“, FileFormat _
=xlCSV, CreateBackup:=False
Soweit sogut… Nun muss ich die .csv Datei in ein anderes
Programm importieren, das aber als Trennzeichen nur
Semikolon";" erkennt.
Excel esportiert per VBA mit Kommas als Trennzeichen.
Wenn Du die Option ‚Local=True‘ an den Speicher-Befehl anhängst (näheres dazu findest Du auch in der Online-Hilfe) wird bei Deutscher Ländereinstellung dann das Semikolon verwendet.
