从 python 执行 LibreOffice Calc Basic 宏
Execute LibreOffice Calc Basic macro from python
我正在尝试使用 Python 自动化 LibreOffice 电子表格。我得到一个桌面并使用
打开电子表格
file_url = uno.systemPathToFileUrl(os.path.abspath("/path/to/file/estimation.xlsm"))
doc = desktop.loadComponentFromURL(file_url, "_blank", 0, oo_properties(MacroExecutionMode=4))
以下代码将打印基本脚本
the_basic_libs = doc.BasicLibraries
the_vba = the_basic_libs.getByName("VBAProject")
the_takerate = the_vba.getByName("TakeRate")
print(the_takerate)
打印的模块的第一行是：
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Public Sub TakeRateScenarioAnalysis()
Dim StartCell As Range
我得到脚本
oor = OORunner()
msp = oor.get_context().getValueByName("/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory")
sp = msp.createScriptProvider("")
scriptx = sp.getScript("vnd.sun.star.script:VBAProject.TakeRate.TakeRateScenarioAnalysis?language=Basic&location=document")
返回如下错误
Traceback (most recent call last):
File "./runProjectEstimate.py", line 198, in <module>
scriptx = sp.getScript("vnd.sun.star.script:VBAProject.TakeRate.TakeRateScenarioAnalysis?language=Basic&location=document")
__main__.ScriptFrameworkErrorException: The following Basic script could not be found:
library: 'VBAProject'
module: 'TakeRate'
method: 'TakeRateScenarioAnalysis'
location: 'document'
脚本URI有问题吗？我不知道为什么我可以打印脚本但是脚本提供者找不到它。
以下对我有用：
scriptx = sp.getScript(
'vnd.sun.star.script:Standard.Module1.TakeRateScenarioAnalysis?'
'language=Basic&location=application')
但是，正如您问题中所述，这并没有：
scriptx = sp.getScript(
"vnd.sun.star.script:VBAProject.TakeRate.TakeRateScenarioAnalysis?"
"language=Basic&location=document")
从这些结果来看，当它们存储在文档中时，似乎不可能以这种方式调用宏。这很可能是权限问题。从可能由其他人创建的文档中调用宏是传播病毒的好方法，因此 LO 试图阻止这种情况。
是否可以将您的 VBAProject 库移动到 My Macros 而不是在文档中？然后一切都应该按预期工作。
几个可能会提供更多想法的相关链接：
- Running Libreoffice BASIC macro from python
编辑:
有一种方法可以调用存储在文档中的宏。从文档 中获取脚本提供程序，而不是主脚本提供程序。
oScriptProvider = doc.getScriptProvider()
oScript = oScriptProvider.getScript(
"vnd.sun.star.script:Standard.Module1.SayHello?"
"language=Basic&location=document")
oScript.invoke((), (), ())
我正在尝试使用 Python 自动化 LibreOffice 电子表格。我得到一个桌面并使用
打开电子表格file_url = uno.systemPathToFileUrl(os.path.abspath("/path/to/file/estimation.xlsm"))
doc = desktop.loadComponentFromURL(file_url, "_blank", 0, oo_properties(MacroExecutionMode=4))
以下代码将打印基本脚本
the_basic_libs = doc.BasicLibraries
the_vba = the_basic_libs.getByName("VBAProject")
the_takerate = the_vba.getByName("TakeRate")
print(the_takerate)
打印的模块的第一行是：
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Public Sub TakeRateScenarioAnalysis()
Dim StartCell As Range
我得到脚本
oor = OORunner()
msp = oor.get_context().getValueByName("/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory")
sp = msp.createScriptProvider("")
scriptx = sp.getScript("vnd.sun.star.script:VBAProject.TakeRate.TakeRateScenarioAnalysis?language=Basic&location=document")
返回如下错误
Traceback (most recent call last):
File "./runProjectEstimate.py", line 198, in <module>
scriptx = sp.getScript("vnd.sun.star.script:VBAProject.TakeRate.TakeRateScenarioAnalysis?language=Basic&location=document")
__main__.ScriptFrameworkErrorException: The following Basic script could not be found:
library: 'VBAProject'
module: 'TakeRate'
method: 'TakeRateScenarioAnalysis'
location: 'document'
脚本URI有问题吗？我不知道为什么我可以打印脚本但是脚本提供者找不到它。
以下对我有用：
scriptx = sp.getScript(
'vnd.sun.star.script:Standard.Module1.TakeRateScenarioAnalysis?'
'language=Basic&location=application')
但是，正如您问题中所述，这并没有：
scriptx = sp.getScript(
"vnd.sun.star.script:VBAProject.TakeRate.TakeRateScenarioAnalysis?"
"language=Basic&location=document")
从这些结果来看，当它们存储在文档中时，似乎不可能以这种方式调用宏。这很可能是权限问题。从可能由其他人创建的文档中调用宏是传播病毒的好方法，因此 LO 试图阻止这种情况。
是否可以将您的 VBAProject 库移动到 My Macros 而不是在文档中？然后一切都应该按预期工作。
几个可能会提供更多想法的相关链接：
- Running Libreoffice BASIC macro from python
编辑:
有一种方法可以调用存储在文档中的宏。从文档 中获取脚本提供程序，而不是主脚本提供程序。
oScriptProvider = doc.getScriptProvider()
oScript = oScriptProvider.getScript(
"vnd.sun.star.script:Standard.Module1.SayHello?"
"language=Basic&location=document")
oScript.invoke((), (), ())