Wenn es nicht als Array mitgegeben wird schlägt der Aufruf der Funktion .loadComponentFromURL() fehl, da sie einen anderen Datentyp erwartet.
Ja, das wird es gewesen sein.
Da kam halt mein Unwissen zu Vorschein
Wenn es nicht als Array mitgegeben wird schlägt der Aufruf der Funktion .loadComponentFromURL() fehl, da sie einen anderen Datentyp erwartet.
Ja, das wird es gewesen sein.
Da kam halt mein Unwissen zu Vorschein
Danke - habe ich mir mal angesehen - aber mein Syntax scheint in Ordnung zu sein.
Ich vermute, der Fehler liegt irgend wo bei der Variable arg, weil die Fehlermeldung "failed" und nicht "Syntax Error" lautet, und bei "_blank" und Dateipfad kann man ja nicht viel verkehrt machen . . ..
Habe alles mögliche ausprobiert (arg[0], Global, Dim, Local), komme aber icht weiter . . .
$ser_man = ObjCreate("com.sun.star.ServiceManager")
$desk = $ser_man.createInstance("com.sun.star.frame.Desktop")
Global $arg
$arg = $ser_man.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
$arg.Name = "Password"
$arg.Value = "abc"
Local $x
$x = $desk.loadComponentFromURL("file:///D:/Datei.ods", "_blank", 0, $arg)
; ^ ERROR
; The requested action with this object has failed.
Danke - den hatte ich auch schon gefunden. Er läuft aber leider nicht (Fehlermeldungen; kommt ja auch aus 2005).
Bin mal manuell angefangen, kriege aber hier eine Fehlermeldung:
; Set ser_man = WScript.CreateObject("com.sun.star.ServiceManager")
$ser_man = ObjCreate("com.sun.star.ServiceManager")
; Set desk = ser_man.createInstance("com.sun.star.frame.Desktop")
$desk = $ser_man.createInstance("com.sun.star.frame.Desktop")
; Dim arg(0)
Local $arg
; Set arg(0) = ser_man.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
$arg = $ser_man.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
; arg(0).Name = "Password"
$arg.Name = "Password"
; arg(0).Value = "abc"
$arg.Value = "abc"
; Dim x
Local $x
; Set x = desk.loadComponentFromURL("file:///"d:\Datei.ods", "_blank", 0, arg)
$x = $desk.loadComponentFromURL("file:///d:/Datei.ods", "_blank", 0, $arg)
; ^ ERROR
; The requested action with this object has failed.
Alles anzeigen
Ich würd's gern nach AutoIt übersetzen (also als AU3-Datei), um es über AutoIt auszuführen oder ggf. zu kompilieren (mittels Aut2exe).
Hallo liebe Experten!
Habe hier ein VBS-Script, wlches ich gern über AuoIt ausführen möchte.
Es startet eine passwortgeschützte OpenOffice-Calc Datei ohne die lästige manuelle Passworteingabe.
Hat jemand Lust, mir zu helfen?
Set ser_man = WScript.CreateObject("com.sun.star.ServiceManager")
Set desk = ser_man.createInstance("com.sun.star.frame.Desktop")
Dim arg(0)
Set arg(0) = ser_man.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
arg(0).Name = "Password"
arg(0).Value = "abc"
Dim x
Set x = desk.loadComponentFromURL("file:///D:/Datei.ods", "_blank", 0, arg)
Dank im Voraus!