excel中的外部数据源不可用错误

excel中的外部数据源不可用错误,excel,vba,Excel,Vba,我遇到了以下问题:我有三种类型的工作簿:所有用户使用的个人跟踪器、全局跟踪器和Pivot工作簿,它们都位于一个共享位置。场景:每次用户结束工作时,单击一个按钮,数据就会传输到总账跟踪器。总账跟踪器中发生更改事件后,将打开透视工作簿并刷新透视表。 然后,Pivot工作簿应每周自动打开一次,以便任务调度器在不受任何用户干扰的情况下执行某些自动操作。这里是我遇到问题的地方:一旦Pivot wb打开,我会收到一条错误消息 我们无法从工作簿“全局跟踪器路径”中的“表1[#数据]中获取数据。在Excel中打

我遇到了以下问题:我有三种类型的工作簿:所有用户使用的个人跟踪器、全局跟踪器和Pivot工作簿,它们都位于一个共享位置。场景:每次用户结束工作时,单击一个按钮,数据就会传输到总账跟踪器。总账跟踪器中发生更改事件后,将打开透视工作簿并刷新透视表。
然后,Pivot工作簿应每周自动打开一次,以便任务调度器在不受任何用户干扰的情况下执行某些自动操作。这里是我遇到问题的地方:一旦Pivot wb打开,我会收到一条错误消息

我们无法从工作簿“全局跟踪器路径”中的“表1[#数据]中获取数据。在Excel中打开此工作簿,然后重试

我猜它与数据透视表和连接中的某些数据更新有关。当Excel自动打开时,如何使此错误消失,但每次用户提交数据时仍让Pivot工作簿更新?
我尝试在打开Pivot工作簿后立即打开GL跟踪器,但没有成功。我还搜索了一些代码来禁用连接,但没有一个对我有效


提前感谢。

尝试将这段代码作为Pivot WB
工作簿的打开事件:

Private Sub Workbook_Open()
    Dim w As Workbook, boolFound As Boolean
    Const GLWorkbookFullName As String = "Global Workbook full name" ' put here the real fullname
    For Each w In Workbooks
        If w.FullName = GLWorkbookFullName Then
            boolFound = True: Exit For
        End If
    End If
    If Not boolFound Then Workbooks.Open GLWorkbookFullName
End Sub

尝试将一段代码放入
工作簿\u Open
事件中,可以检查“全局跟踪器”是否打开。如果未打开,则很容易从事件中打开。