MS Excel 宏运行与 VB 脚本不同？

Question

我每天早上使用 Windows 任务计划程序中的任务打开一个 VB 脚本文件。 该脚本打开 MS Excel，然后运行存储在工作簿中的宏。 问题是，如果我使用 VB 脚本文件启动宏与我自己从工作簿运行宏时，宏的运行方式会有所不同。 具体来说，当我从 VB 脚本文件开始运行宏时，我发现“全部刷新”实际上并没有刷新所有数据连接。 如果我从工作簿本身运行宏，它工作正常。 我在想我在这个 VB 脚本中遗漏了一些东西，以确保 MS Excel 正确打开并使“全部刷新”正常工作。 这个 VB 脚本有什么明显的问题吗？

Dim ObjExcel, ObjWB
Set ObjExcel = CreateObject("excel.application")

ObjExcel.Application.Visible = True

Set ObjWB = ObjExcel.Workbooks.Open("K:\Analytic Reporting\11.Projects\TonyAdHoc\Autorefresher\DashboardAutorefresher.xlsm")

objExcel.Application.Run "DashboardAutorefresher.xlsm!Main"

ObjWB.Close True
ObjExcel.Quit
Set ObjExcel = Nothing

Answer 1

您似乎正在尝试刷新以从数据库中提取数据，但是当您在脚本运行后手动打开 Excel 文件时，您没有看到来自该脚本的任何新数据。

修改后需要保存 Excel 文件。

ObjExcel.Save

Answer 2

对于仍然关心这一点的任何人，我发现对于与数据库表的连接，如果选择了“启用后台刷新”属性，则 marco 中 RefreshAll 中的 vba 命令不起作用。 因此，我添加了一个小循环来禁用所有连接的该属性，以确保在调用 RefreshAll 之前。 那为我修好了。

           ' -- make sure enable background refresh is not checked else RefreshAll doesn't work
            Dim cn As WorkbookConnection
            For Each cn In ActiveWorkbook.Connections
                cn.OLEDBConnection.BackgroundQuery = False
            Next cn
            
            ' -- then ok to refresh all
            ActiveWorkbook.RefreshAll