关闭文件时通过 VBA 自动更新 Power Query 连接

Question

我有一个 excel 工作簿（每天更新），我已经建立了几个电源查询连接，它们看起来像这样：

IMG

单击小按钮更新连接时，它可以正常工作，更新，添加新行，发生数据更改。 然后，我开始通过 VBA 以自动方式执行此更新，当数据源文件完成处理并关闭时（以某种方式打开带有查询的文件并手动更新它们是不必要的），以下是我尝试过的示例（全部使用“Workbook_BeforeClose”事件）：方法1（不成功）：

Sub Workbook_BeforeClose(cancel As Boolean)
    CarryOn = MsgBox("Update connections? (May take a minute)", vbYesNo, "Update connections")
    If CarryOn = vbYes Then
        Dim strFilename As String: strFilename = "R:\filepath\Querydestination.xlsm"
        Dim QD As Workbook 'QD = Query Destination
        Set QD = Workbooks.Open(Filename:=strFilename)
        QD.RefreshAll
        QD.Connections("Query - Database").Refresh
        QD.Connections("Query - Support$_FilterDatabase").Refresh
        QD.Save
        QD.Close
        ThisWorkbook.Save
        Beep
        MsgBox "Connections updated!"
    End If
End Sub

我从以下帖子的第一个答案中找到了代码：

通过 VBA 自动更新 Power Query 连接

目前的代码如下所示：

Sub Workbook_BeforeClose(cancel As Boolean)
    CarryOn = MsgBox("Update connections? (May take a minute)", vbYesNo, "Update connections")
    If CarryOn = vbYes Then
      Application.DisplayAlerts = False
      ThisWorkbook.SaveAs Filename:= _
      "R:\filepath\Database.xlsb" _
      , FileFormat:=50
      Dim strFilename As String: strFilename = "R:\filepath\Querydestination.xlsm"
      Dim QD As Workbook 'QD = Query Destination
      Set QD = Workbooks.Open(Filename:=strFilename)
      Dim con As WorkbookConnection
      Dim Cname As String
      For Each con In ActiveWorkbook.Connections
          If Left(con.Name, 8) = "Query - " Then
          Cname = con.Name
              With ActiveWorkbook.Connections(Cname).OLEDBConnection
                  .BackgroundQuery = False
                  .Refresh
              End With
          End If
      Next
      QD.Save
      QD.Close
      ThisWorkbook.Save
      Beep
      MsgBox "Connections updated!"
      Application.DisplayAlerts = True
    End If
End Sub

这是问题所在：我尝试了 Refresh_all、更新连接、按名称更新单个连接和一堆其他东西，只有链接中的方法和上面代码中显示的方法有效。 有时它会在.Refresh 行中打嗝，但就是这样。 我在我的机器上工作，当打开查询目标文件时，会有新的行和更改，而无需手动打开文件并点击“刷新”或“全部刷新”按钮。 唯一的问题是：代码有时运行平稳，但有时运行不流畅并抛出错误： [IMG] [IMG] 。

我真的不知道是什么原因造成的，查询目标工作簿没有打开，没有人在使用它，我已经确定了。 如何阻止此错误的发生？