ich arbeite an einer xls Datei, benötige aber für die Anwendung eine CSV Datei.
Wie kann ich denn eine CSV Datei abspeichern, ohne dass ich die XLS danach wieder öffnen muss? Denn ich habe danach immer die CSV offen.
Grüße udn Danke
Sub export_CSV()
Dim fileSaveName As String
Dim Trennzeichen As String, Text As String
Dim ZeileMax As Long, SpalteMax As Long, Zeile As Long, Spalte As Long
Close #1
fileSaveName = "J:\Test.csv"
Open fileSaveName For Output As #1
Trennzeichen = ","
ZeileMax = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
SpalteMax = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
For Zeile = 1 To ZeileMax
Text = ""
For Spalte = 1 To SpalteMax
Text = Text & ActiveSheet.Cells(Zeile, Spalte).Value & Trennzeichen
Next Spalte
Print #1, Text = Left(Text, Len(Text) - 1)
Next Zeile
Close #1
End Sub
Gruß Jürgen