Question

我编写了一个宏脚本来使用Oracle Smartview获取数据。当我在工作表中执行宏时，操作完美无缺。当我尝试通过VB脚本执行相同操作时，执行失败：

Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open "C:\Test.xlsm"
oExcel.visible = true
oExcel.Application.Run "MyMacro"
oExcel.ActiveWorkbook.Saved = True
Set oExcel = Nothing

我注意到当我这样做时，SV插件似乎没有加载。

因此，在打开工作表时，通常addin加载正常并执行宏。使用脚本来唤起宏似乎不起作用。

感谢Rory的评论，我现在已经包含了加载插件的代码。问题是HsTbar.xla似乎没有做到这一点：

Set oExcel = CreateObject("Excel.Application")
oExceL.Workbooks.Add
Set oAddin = oExcel.AddIns.Add("C:\Oracle\SmartView\bin\HsTbar.xla")
oAddin.Installed = False
oAddin.Installed = True
oExcel.Workbooks.Open "C:\Test.xlsm"
oExcel.visible = true
oExcel.Application.Run "MyMacro"
oExcel.ActiveWorkbook.Saved = True
Set oExcel = Nothing

插件加载正常，但已损坏，宏仍无法执行。

Answer 1

我知道这是一篇旧文章，但是您需要导航至：

C：\ Program Files（x86）\ Oracle \ SmartView \ Bin

有一个名为“ smartview.bas”的文件，您需要在其中将其作为模块添加到PERSONAL.XLSB VBAProject中。

有关创建PERSONAL.XLSB文件的信息： https://support.office.com/en-us/article/create-and-save-all-your-macros-in-a-single-workbook-66c97ab3-11c2-44db-b021-ae005a9bc790

为Oracle Smartview执行VBA宏

1 个答案: