Excel-Datei per LS als CSV speichern

[Kiezkicker]

Hallo,

ich nutze die Excel-Export-Agenten der Schablone Super NTF (OpenNTF.org). Nun wollte ich den Agenten gerne dahingehend erweitern, dass die Datei nicht nur angezeigt, sondern als CSV-Datei abgespeichert wird.

Leider hat das mit meinemsehr beschränktem LS-Wissen nicht ganz geklappt...

Ich habe an der Stelle, an der die Excel-Datei angezeigt wird folgende Zeile ergänzt:

xlApp.ActiveWorkbook.SaveAs "U:\test.csv"

Damit wird die Datei gespeichert, allerdings im Excel-Format. Was mir auch einleuchtet, da ja nirgends das Format festgelegt wird. Alelrdings habe ich genau das bisher auch nicht geschafft. Der Makro-Editor in Excel zeigt folgendes zum Speichern als CSV an:

ActiveWorkbook.SaveAs Filename:="U:\test.csv", FileFormat:=xlCSV, _

Leider ist es mit bisher nicht gelungen in LS das Format festzulegen. Hat jemand eine Idee, wie das funktionieren könnte?

MfG
Jens

[Peter Klett]

xlApp.ActiveWorkbook.SaveAs ("U:\test.csv", xlcsv)

würde ich probieren. Dazu musst Du noch wissen, welchen Wert xlcsv in Excel hat. Dazu erstellst Du Dir ein Macro in Excel

Msgbox xlCSV

und führst das aus.

Den Wert, den die Box ausgibt, trägst Du anstelle von xlcsv in das LotusScript ein.

[Kiezkicker]

Vielen Dank für die schnelle Antwort.

Das hat geklappt! Der richtige Wert war übrigens 6.

[Patrick Schneider]

Das hat geklappt! Der richtige Wert war übrigens 6.

Ich hätte jetzt auf 42 als Ergebnis getippt...