Microsoft Excel

Herbers Excel/VBA-Archiv

CSV-Datei in Unicode speichern | Herbers Excel-Forum


Betrifft: CSV-Datei in Unicode speichern von: Bertram
Geschrieben am: 22.01.2010 10:09:06

Hallo zusammen,

ich speichere ein Tabellenblatt als CSV-Datei mit folgendem Code(ausschnitt):

Open strPfadCSVUser & DateiName & ".csv" For Output As #intFileNumber
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, ";")
Print #intFileNumber, strText
Next
End With
Close #intFileNumber

Das klappt auch super, allerdings wird die Datei als "Text document" gespeichert. Nun wurde unser SAP auf Unicode umgestellt und die CSV-Datei brauche ich jetzt auch als "Unicode Text Document". Ich habe das hier zum Umwandeln in Unicode gefunden.

http://www.excel-center.de/foren/read.php?2,16097,16105

Meine Frage ist, geht das auch einfacher? Falls sein muss ich mir den Code mal genauer ansehen, um zu kapieren, was er macht.

Danke für Tips.

Gruß
Bertram

  

Betrifft: CSV-Datei in Unicode speichern von: Anton
Geschrieben am: 22.01.2010 11:21:37

Hallo Bertram,

so vllt:

Code:

  Set fso = CreateObject("Scripting.FileSystemObject")  
  Set csv = fso.CreateTextFile("e:\test.csv", True, True)  
  csv.Write (strText)
  csv.Close



mfg Anton


Beiträge aus den Excel-Beispielen zum Thema "CSV-Datei in Unicode speichern"