OLEDBConnection.Refresh在任务计划程序运行时停止

时间:2020-01-28 17:46:07

标签: excel vba

我在应用程序服务器上有一个VB脚本以打开.xlsm,并运行执行以下操作的功能:

  1. 打开具有OLEDB连接的Excel文件
  2. 刷新连接
  3. 保存并关闭

手动运行时,所有内容均按设计工作。但是,以特定用户的身份在Task Scheduler中运行时,无论是否登录(使用密码和最高priv,也为both folders are on the server)。

从我的简单日志记录方法中,我可以确定它在“刷新”步骤中失败

DisplayAlerts = False

wb.Worksheets("DateRanges").Range("B10").Value = "For Loop"
wb.Save
For Each objConnection In wb.Connections
'Get current background-refresh value
    wb.Worksheets("DateRanges").Range("B10").Value = "Set Background"
    wb.Save
    bBackground = objConnection.OLEDBConnection.BackgroundQuery

    wb.Worksheets("DateRanges").Range("B10").Value = "Turn Background Off"
    wb.Save
'Temporarily disable background-refresh
    objConnection.OLEDBConnection.BackgroundQuery = False

    wb.Worksheets("DateRanges").Range("B10").Value = "Refresh"
    wb.Save
'Refresh this connection
    objConnection.OLEDBConnection.Refresh

    wb.Worksheets("DateRanges").Range("B10").Value = "Turn Background On"
    wb.Save
'Set background-refresh value back to original value
    objConnection.OLEDBConnection.BackgroundQuery = bBackground
Next

在数据源设置中,我正在使用数据库凭据,并且正在通过连接字符串传递UID / PWD。

任何人都能提供的帮助/建议将不胜感激。

PowerQuery

OLEDB Settings

Query Settings

0 个答案:

没有答案
相关问题