CSV Datei in Excel 97
17.06.2005 14:08:30
Peter
Hier mal der Code zum Prooblem
Sub Makro1()
' Makro zum einlesen, bearbeiten und abspeichern *
' von Übergabedateien ins CSV-Format *
'## Ausschalten der Meldungen (Gewährleistet Durchlauf des Makro)
Application.DisplayAlerts = False
'## Suchen und öffnen von xls File aus bestimmten Ordner
'## Trennzeichen Semicolon gesetzt
Workbooks.OpenText Filename:="C:\temp\*.xls", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False
'## Anlegen einer Sicherungsdatei
Dim sichFileName As String
sichFileName = Format(Now, "yyyymmdd")
ActiveWorkbook.SaveCopyAs "C:\Temp\sich\" + sichFileName + "sicherung.xls"
'## Bearbeitung der File (Zeile löschen ect.)
'## Speichern der Datei im Datumsformat mit anhang "_uebergabe"
'## als CSV in bestimmten Ordner
Dim sFileName As String
sFileName = Format(Now, "yyyymmdd_hhmmss") + "_uebergabe"
ActiveWorkbook.SaveAs "C:\temp\" + sFileName, _
FileFormat:=xlCSV, CreateBackup:=False
'## Schließen von Excel
Application.Quit
'## Löschen der Eingabe xls
Kill "C:\Temp\*.xls"
End Sub
- - - - - - - - - - - - - - - - - - - - -
Das Problem ist nun, da er ja im Comma Seperated Value mode speichert, dass er auch geldbeträge in denen das comma vorhanden ist trennt. Wie kann ich ihm direkt im Makro sagen, dass er im Excel-97 Format speichern soll, welches ja mit Semicolons trennt. Hab es bei SaveAs schon mit Local:= true versucht damit er sich das trennzeichen aus der Länderkennung holt, aber ohne erfolg.
Bitte um Hilfe
DANKE!
Gruß