使用任务调度程序刷新Excel查询

Question

我正在尝试在 MS Office Professional Plus 2016 中自动化查询刷新。

我有一个运行VBS脚本的CMD脚本，该脚本运行Excel宏。如果我手动运行它，一切都可以。当我设置Windows 任务调度程序并选择选项时，就会发生问题。

我的宏将查询结果日志保存到文本文件，以便我可以确定代码断开的位置。在我看来，Excel在使用任务调度程序运行时会显示一个警报框（或类似的内容）。由于调度程序隐藏了所有警报，因此我无法确定用户的期望。如果我手动或通过任务调度程序运行“仅在用户登录”时，没有警报/提示。

这是我的Refreshqueries（）sub。我尝试评论代码，并确认打破整个自动化的行是.refresh withable.querytable 。

Private Sub RefreshQueries()
    AddToLogFile ("Hello from subroutine RefreshQueries().")

    Dim iWorksheet As Excel.Worksheet
    Dim iTable As Excel.ListObject

    'Check each worksheet.
    For Each iWorksheet In Excel.ActiveWorkbook.Worksheets
        AddToLogFile ("For-loop for iWorksheet " & iWorksheet.Name)

        'Check all Objects if it is a query object.
        For Each iTable In iWorksheet.ListObjects
            If iTable.SourceType = Excel.XlListObjectSourceType.xlSrcQuery Then
                AddToLogFile ("Trying to refresh iTable: " & iTable.Name)
                QueryTimeStart = Timer

                On Error Resume Next
                With iTable.QueryTable 'Refresh the query data.
                    .BackgroundQuery = False 
                    .EnableRefresh = True
                    .Refresh
                End With

                If Err.Number <> 0 Then
                    QueryRunTime = CalculateRunTime("QueryRunTime") 'Stop timer and get the duration.
                    Call AddToHtmlErrorTable(iTable.Name, Err.Number, Err.Description, QueryRunTime) 'Add entry to error table.
                    AddToLogFile ("Query in iTable " & iTable.Name & " failed. Description: " & Err.Description)
                    NumberOfFailedQueries = NumberOfFailedQueries + 1 'IMPORTANT: increment must be after updating html error table!
                    Err.Clear 'Clear errors between for loops.
                Else
                    NumberOfSuccessfulQueries = NumberOfSuccessfulQueries + 1
                    AddToLogFile ("Query in iTable " & iTable.Name & " successfully refreshed.")
                End If

            End If
        Next iTable
    Next iWorksheet

    AddToLogFile ("Exiting subroutine RefreshQueries().")
End Sub

我猜我的问题如下：

1. 我们可以以某种方式抓住Excel在后台显示的内容（如果我手动运行它没有弹出），或者
2. 我们可以自动确认Excel中的任何显示的消息（不知道它是什么），或者
3. 是否有任何已知的设置可以执行连接而没有任何确认。

有人对此问题有想法，经验或建议吗？

Answer 1

您需要在VBA例程中添加错误捕捉器“ rel =“ nofollow noreferrer”>在这里

Private Sub RefreshQueries()
On Error Goto MyError

' .... All your code

Exit sub
MyError: 
'Do your magic here with Err.object to log the event or whatever
AddToLogFile ("#Error in RefreshQueries().:" & Err.Discription)
Resume Next
End Sub