Question

我有一个工作簿，其中包含几个Power Query查询（数据源是SQL服务器），我试图通过远程服务器上的任务调度程序刷新。我有一个VBscript打开一个Excel文件（刷新引擎），然后刷新包含查询的文件（目标文件）。它以这种方式构建，因为目标文件每个月都更改了名称，并将副本存档为历史日志。

如果我登录到远程服务器并手动关闭VBscript，则代码运行时没有错误。但是，当脚本通过计划任务运行时，刷新引擎失败并将错误记录为＆＃39; -2147417848，方法＆＃39;刷新＆＃39;对象＆＃39; WorkbookConnection＆＃39;失败＆＃39;

我尝试过更改大量连接设置但没有成功。有人可以帮忙吗？

我用来刷新目标工作簿中的查询的代码如下。（请注意，已经创建了各种变量并将其绑定在前面的子中。）

On Error GoTo ErrLog
For Each Cn In CurStr.Connections
    Log.WriteLine (Now() & " Looking at " & Cn.Name)
    bg = Cn.OLEDBConnection.BackgroundQuery
    Cn.OLEDBConnection.BackgroundQuery = False
    Log.WriteLine (Now() & " Refreshing " & Cn.Name)
    Cn.Refresh
    Cn.OLEDBConnection.BackgroundQuery = bg
Next
Log.WriteLine (Now() & " Refreshing model")
CurStr.Model.Refresh
On Error GoTo 0
Exit Sub

Excel 2013 - 电源查询，后台刷新。方法＆＃39;刷新＆＃39;对象＆＃39; WorkbookConnection＆＃39;失败

0 个答案: