Listentrennzeichen unter VBA
Volker Warbende
ich hätte da mal gern 'nen Problem!
Ich habe mit VBA eine Routine geschrieben, die abschliessend die Daten als
CSV-Datei ablegt.
Auf meinem Endwicklungs-System (Windows 2000 Professionel, Office 2000 und
Listentrennzeichen ";" in den Ländereinstellungen) werden die Daten
Semikolon-getrennt abgelegt.
Auf dem Zielsystem (Windows 2000 Professionel, Office 2002 und
Listentrennzeichen ";" in den Ländereinstellungen) werden die Daten
Komma-getrennt abgelegt???!!!
hier der Code
ActiveWorkbook.SaveAs Filename:= _
"C:\Daten.csv", FileFormat:= _
xlCSVWindows, CreateBackup:=False
Hat jemand 'ne Idee, kann jemand helfen ??
Danke
Volker
Monika Weber
vielleicht hilft Dir folgender Lösungsansatz
weiter:
Sub ExportToCSV()
Dim objFSO As Object
Dim objTXT As Object
Dim intRow As Integer
Dim strDummy As String
Dim i As Integer
' Objekte für den Export referenzieren
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTXT = objFSO.CreateTextFile("C:\test.csv")
With Worksheets(1)
' Anzahl Zeilen
For intRow = 2 To .Cells(.Rows.Count, 1).End _
(xlUp).Row
' Anzahl Spalten
For i = 1 To 11
strDummy = strDummy & .Cells(intRow, i) & "|"
Next i
' letztes Pipe abtrennen
strDummy = Left(strDummy, Len(strDummy) - 1)
' Zeile in *.txt-File schreiben
objTXT.WriteLine strDummy
' Inhalt der Variablen zurücksetzen
strDummy = ""
Next intRow
End With
Set objFSO = Nothing
Set objTXT = Nothing
End Sub
Ich verwende den Code jeweils für den Datenaustausch
zwischen unserem Grosssystem und Excel. Du kannst
das Trennzeichen selbst definieren (ersetze das "|"
durch jenes, welches Du benötigst).
Die Anzahl der Spalten musst Du unter Umständen auch
noch anpassen.
--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)
>.
>
Volker Warbende
der workaround ist ok, aber ich suche eigentlich das Einstellungsproblem
oder ist das einfach so?!
Gruß
Volker
"Monika Weber" <Monika...@MVPs.org> schrieb im Newsbeitrag
news:067501c33556$23847a10$a501...@phx.gbl...
Monika Weber
beim Import kannst Du es einstellen, meines
Wissens jedoch nicht beim Export.
--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)
>-----Originalnachricht-----
>.
>
Volker Warbende
d.h. die Versionen Office 2000 und Office 2002 verhalten sich hier
unterschiedlich ?
Gruß
Volker
"Monika Weber" <Monika...@MVPs.org> schrieb im Newsbeitrag
news:079901c33572$a9668d00$a601...@phx.gbl...