von sarotti » Di, 27.05.2008 22:06
Hallo Sven,
das Ganze ist ein Bug in der 2.4.0 Version. Hier ist es leider nur dann möglich ein Makro aus einer per Makro geöffneten Datei zu benutzen, wenn Du dies beim Öffnen des neuen Dokumentes dem Makro mitgibst ("MacroEcecutionMode").
Schau mal hier:
viewtopic.php?f=18&t=17006&p=72723&hili ... kro#p72723
Code: Alles auswählen
Sub Dok_oeffnen
Dim sURL as String, Sframe As String, lSearch As Long
sFrame = "Fenster1"
lSearch=63
spfad = DirectoryNameoutofPath(ThisComponent.URL, "/")
spfad = spfad + "/"
datei = "XYZ.ods"
url=converttourl(spfad + datei)
REM jetzt folgt der Aufruf des MakroExecution Mode "ALWAYS_EXECUTE_NO_WARN" (=Value 4)
Dim myProp(0) As New com.sun.star.beans.PropertyValue
myProp(0).Name = "MacroExecutionMode"
myProp(0).Value = 4
oDocument=StarDesktop.loadComponentFromURL (url, sFrame, lSearch, myProp())
oSheet = oDocument.Sheets.getByName("Tabelle1")
oDocument.Function
'REM ...und so weiter....
end sub
Probier das mal (wenn ich keinen Fehler rein gebaut habe sollte es klappen
)
Gruß
sarotti
Hallo Sven,
das Ganze ist ein Bug in der 2.4.0 Version. Hier ist es leider nur dann möglich ein Makro aus einer per Makro geöffneten Datei zu benutzen, wenn Du dies beim Öffnen des neuen Dokumentes dem Makro mitgibst ("MacroEcecutionMode").
Schau mal hier:
[url]http://de.openoffice.info/viewtopic.php?f=18&t=17006&p=72723&hilit=sarotti+makro#p72723[/url]
[code]
Sub Dok_oeffnen
Dim sURL as String, Sframe As String, lSearch As Long
sFrame = "Fenster1"
lSearch=63
spfad = DirectoryNameoutofPath(ThisComponent.URL, "/")
spfad = spfad + "/"
datei = "XYZ.ods"
url=converttourl(spfad + datei)
REM jetzt folgt der Aufruf des MakroExecution Mode "ALWAYS_EXECUTE_NO_WARN" (=Value 4)
Dim myProp(0) As New com.sun.star.beans.PropertyValue
myProp(0).Name = "MacroExecutionMode"
myProp(0).Value = 4
oDocument=StarDesktop.loadComponentFromURL (url, sFrame, lSearch, myProp())
oSheet = oDocument.Sheets.getByName("Tabelle1")
oDocument.Function
'REM ...und so weiter....
end sub
[/code]
Probier das mal (wenn ich keinen Fehler rein gebaut habe sollte es klappen ;-) )
Gruß
sarotti