为Oracle Smartview执行VBA宏

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插件似乎不能加载。

因此，在正常打开工作表时，插件加载正常并执行宏。使用脚本调用宏似乎不起作用。

多亏了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