Makros anpassen

[KingEisbaer]

Hallo allerseits,

Ich habe hier folgendes Makro:

Code: Alles auswählen

REM  *****  BASIC  *****
sub S_open_linked_Writer
    thisComponent.store
    dim args(0) as  new com.sun.star.beans.PropertyValue
    args(0).Name = "UpdateDocMode"
    args(0).Value = 1
    sFile = "E:\Arbeitsplan Vorlage.odt" ' Windows
    sURL = ConvertToURL(sFile)
    oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, args)

'Speichern
   dim dummy()
   datei="E:\TEST.odt"
   dateiurl=converttourl(datei)
   odoc.storeasurl(dateiurl,dummy())
rem oder
rem    odoc.storetourl(dateiurl,dummy())

Dim sFileName1 as String
Dim sDatum as String
sFileName1 = "Wochenarbeitsplan_"
sDatum = DateValue(thisComponent.Sheets(0).getCellRangeByName("B7").String)
Print sFileName1 & sDatum

oDoc.close (true)

End Sub

Alles geschieht aus einem Calc-Dokument. Der erste Teil zum Öffnen eines Write-Dokument klappt soweit.
Das Problem besteht in folgenden Abschnitt des Makros:

Code: Alles auswählen

'Speichern
   dim dummy()
   datei="E:\TEST.odt"
   dateiurl=converttourl(datei)
   odoc.storeasurl(dateiurl,dummy())
rem oder
rem    odoc.storetourl(dateiurl,dummy())

Dim sFileName1 as String
Dim sDatum as String
sFileName1 = "Wochenarbeitsplan_"
sDatum = DateValue(thisComponent.Sheets(0).getCellRangeByName("B7").String)
Print sFileName1 & sDatum

Das Makro soll das Write-Dokument unter dem Namen "Wochenarbeitsplan" + Datum (was aus dem Calc-Dokument geholt wird) neu abgespeichert werden.
Das funktioniert leider nicht. Kann mir einer helfen, das Makro anzupassen.

Danke

[juetho]

Kommentar entfernt wegen Balus Hinweis. Jürgen

[balu]

Hallo KingEisbaer,

warum eröffnest Du im Calc-Forum einen neuen Thread, wenn Du doch schon einen existierenden im Basic-Forum offen hast?
Und außerdem gehören alle Makro Fragen in das Basic-Forum.

Es geht also hier weiter.



Gruß
balu