Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV Datei speichern mit europäischen Trennzeichen

CSV Datei speichern mit europäischen Trennzeichen
12.10.2006 10:40:15
michael
Ich versuche über ein Makro eine CSV Datei zu speichern. Obwohl Excel deutsch eingestellt ist wird die CSV Datei in amerikanischem Format mit "," als Trennzeichen gespeichert.
ActiveWorkbook.SaveAs Filename:="L:\x\y\order" & orderzahl & ".csv" _
, FileFormat:=xlCSV, CreateBackup:=False
Kann ich im Makro hinterlegen, dass eine deutsche CSV erzeugt und gespeichert wird ?
Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV Datei speichern mit europäischen Trennzeichen
12.10.2006 12:04:33
Rudi
Hallo,
das ght nur auf einem Umweg.
Public

Sub prcCreateCSV()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Const strPre As String = ";"
Reset
intFileNumber = FreeFile
With ThisWorkbook
.Save
Open .Path & "\" & Left$(.Name, Len(.Name) - 4) & _
".csv" For Output As #intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
vntArray = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, strPre)
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
End Sub

Gruß
Rudi
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige