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