Openoffice Calc V. 5.1.5.2 - Makro zum Speichern Unter mit Dateinamen aus Zelle?

Hallo Zusammen,

ich bin was Makros angeht ziemlich unerfahren. Dennoch möchte ich es gerne mit eurer Hilfe angehen! Was machen brauche ist ein Makro, dass beim klicken eines Buttons folgende Funktion durchführt.

  1. Wechsel auf "Tabellenblatt 2" (in meiner Datei "Vorlage CSV"
  2. Zelle "B2" kopieren
  3. Speichern Unter -> Dateiname "Roh_[Inhalt Zelle B2]"
  4. Dateiformat .CSV
  5. Dateipfad indem gespeichert werden soll (M:\Abrechnung..Funk- und MBus-Ablesungen..Versandlisten Funkzähler parametriert)

*Das habe ich bisher:

sub csvexp rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "Nr" args1(0).Value = 3

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ---------------------------------------------------------------------- dim args4(2) as new com.sun.star.beans.PropertyValue args4(0).Name = "URL" args4(0).Value = "file:///M:/Abrechnung/..Funk-%20und%20MBus-Ablesungen/..Versandlisten%20Funkz%C3%A4hler%20parametriert/Roh_Fe12-11111,%20Kupferstr.%2040-46,%2070565%20Stuttgart.csv" args4(1).Name = "FilterName" args4(1).Value = "Text - txt - csv (StarCalc)" args4(2).Name = "FilterOptions" args4(2).Value = "59,34,22,1,,0,false,true,true,false"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args4())

end sub *

Das Problem ist nun, dass er immer unter dem Namen "Fe12-11111, Kupferstr. 40-46, 70565 Stuttgart" speichert, egal welcher inhalt in der Zelle B2 steht.

Habt ihr Ideen, woran das liegt?

Vorab vielen Dank für Eure Hilfe!

Bild zu Frage
Microsoft Excel, speichern, Makro, OpenOffice, Tabellenkalkulation, Calc

Meistgelesene Fragen zum Thema OpenOffice