Excel SaveAs Makro, Trennzeichen=';' , aber wie?

Computer: Software & Programmierung Visual Basic
#1

Hallo an Alle,

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

Grüße aus dem verschneiten Süden

Silke

#2

Hi Silke,

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

Gruß
Reinhard

#3

Grüezi Silke

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.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#4

Vielen vielen vielen Dank!!!
Es funktioniert!!!
Ihr seit einfach die Besten :smiley:

Noch eine schöne Woche

Grüße

Silke