让Excel VBA在继续之前等待外部工作簿链接刷新

我有一个可以做两件事的工作表。让Excel VBA在继续之前等待外部工作簿链接刷新

首先它从SQL服务器更新ODBC数据表，然后更新其中一个数据表以包含具有对另一个Excel电子表格的引用的公式。

其次，它刷新基于上述更新表中的数据的数据透视表。

但是，它在完成刷新源表中的数据之前更新数据透视表，导致源表（即使数据透视表正在重建也刷新）之间的数据不一致。在继续之前，有什么办法可以让VBA等待全面刷新外部链接？

这是我的代码：

Sub Update_All() 

Application.ScreenUpdating = False 

Application.Calculation = xlCalculationManual 
ODBC_Tables_Update 
UpdateReqTable 
' force a calculation of the table due to insert of formula and lookup in the campaign plan 
With Application 
    .CalculateFull 
    .Calculation = xlCalculationAutomatic 
End With 
'update pivot after calculation is done 
OverviewUpdatePivot 

Application.ScreenUpdating = True 

End Sub 

Private Sub ODBC_Tables_Update() 

With ActiveWorkbook 
    .Connections("Pallet Requirement").Refresh 
    .Connections("Pallets on Stock").Refresh 
End With 

End Sub 

Private Sub OverviewUpdatePivot() 

With Sheets("Overview").PivotTables("pvt_PalletOverview") 
    .PivotCache.Refresh 
    .PivotFields("Start Date").AutoSort xlAscending, "Start Date" 
    .PivotFields("PALLETITEM").AutoSort xlAscending, "PALLETITEM" 
    .PivotFields("Start Date").ShowDetail = False 
End With 

End Sub 

Private Sub UpdateReqTable() 

' general variables 
Dim cpPath$ 'Campaign Plan Path 
Dim cpName$ 'Campaign Plan File Name 
Dim cpL93$ 'Sheet 93 name 
Dim cpL94$ 'Sheet 94 name 
Dim cpL96$ 'Sheet 96 name 
Dim ListNoCol$ 'Column Letter of List Numbers 
Dim StartDateCol$ 'Column Letter of "Start Date" 
Dim tblMatchPart$ 'JOBLIST field of table 

' below index building part strings defined 
Dim cpL93ListNoRange$ 
Dim cpL94ListNoRange$ 
Dim cpL96ListNoRange$ 
Dim cpL93DateRange$ 
Dim cpL94DateRange$ 
Dim cpL96DateRange$ 
Dim L93MatchFormulaPart$ 
Dim L93IndexFormula$ 
Dim L94MatchFormulaPart$ 
Dim L94IndexFormula$ 
Dim L96MatchFormulaPart$ 
Dim L96IndexFormula$ 

' Fill in values from the sheet into variables 
cpPath = Range("cpPath") 
cpName = Range("cpName") 
cpL93 = Range("cpSheetL93") 
cpL94 = Range("cpSheetL94") 
cpL96 = Range("cpSheetL96") 
ListNoCol = "$" & Range("cpListNoCol") & "1" & ":" & "$" & Range("cpListNoCol") & "64000" 
StartDateCol = "$" & Range("cpStartDateCol") & "1" & ":" & "$" & Range("cpStartDateCol") & "64000" 
tblMatchPart = "tbl_PalletReq[@JOBLIST]" 

' Build the range expressions used in the MATCH and INDEX formula 
cpL93ListNoRange = "'" & cpPath & "[" & cpName & "]" & cpL93 & "'!" & ListNoCol 
cpL93DateRange = "'" & cpPath & "[" & cpName & "]" & cpL93 & "'!" & StartDateCol 
cpL94ListNoRange = "'" & cpPath & "[" & cpName & "]" & cpL94 & "'!" & ListNoCol 
cpL94DateRange = "'" & cpPath & "[" & cpName & "]" & cpL94 & "'!" & StartDateCol 
cpL96ListNoRange = "'" & cpPath & "[" & cpName & "]" & cpL96 & "'!" & ListNoCol 
cpL96DateRange = "'" & cpPath & "[" & cpName & "]" & cpL96 & "'!" & StartDateCol 

' Build the INDEX formulas required 
L93MatchFormulaPart = "MATCH(" & tblMatchPart & "," & cpL93ListNoRange & ",0)" 
L93IndexFormula$ = "INDEX(" & cpL93DateRange & "," & L93MatchFormulaPart & ",0)" 
L94MatchFormulaPart = "MATCH(" & tblMatchPart & "," & cpL94ListNoRange & ",0)" 
L94IndexFormula$ = "INDEX(" & cpL94DateRange & "," & L94MatchFormulaPart & ",0)" 
L96MatchFormulaPart = "MATCH(" & tblMatchPart & "," & cpL96ListNoRange & ",0)" 
L96IndexFormula$ = "INDEX(" & cpL96DateRange & "," & L96MatchFormulaPart & ",0)" 

'Insert Formulas into table tbl_PalletReq and format the formulas 
With Range("tbl_PalletReq[L93 Date]") 
    .Formula = "=" & L93IndexFormula 
    .NumberFormat = "ddd-dd-mm-yyyy" 
End With 
With Range("tbl_PalletReq[L94 Date]") 
    .Formula = "=" & L94IndexFormula 
    .NumberFormat = "ddd-dd-mm-yyyy" 
End With 
With Range("tbl_PalletReq[L96 Date]") 
    .Formula = "=" & L96IndexFormula 
    .NumberFormat = "ddd-dd-mm-yyyy" 
End With 
With Range("tbl_PalletReq[Start Datetime]") 
    .Formula = "=IFERROR([@[L93 Date]],IFERROR([@[L94 Date]],IFERROR([@[L96 Date]],"""")))" 
    .NumberFormat = "ddd-dd-mm-yyyy hh:mm" 
End With 
With Range("tbl_PalletReq[Start Date]") 
    .Formula = "=DATE(YEAR([@[Start Datetime]]),MONTH([@[Start Datetime]]),DAY([@[Start Datetime]]))" 
    .NumberFormat = "ddd-dd-mm-yyyy" 
End With 
With Range("tbl_PalletReq[Est. Pallets]") 
    .Formula = "=ROUNDUP(-[PROD.TONS]*1000/VLOOKUP([@PALLETITEM],tbl_PalletData,2,FALSE),0)" 
    .NumberFormat = "#,##0" 
End With 

End Sub

来源

2012-04-19 Rasmus Remmer Bielidt

你需要检查你的连接性能和禁用“启用后台刷新”选项。

或者在代码中将backgroundquery属性设置为false。

这应该强制excel在继续之前等待查询完成。

来源

2012-04-19 02:11:21 Reafidy

该属性已设置为false，但它不在VBA中编码。 – 2012-04-19 06:46:11

我应该限定该声明。它不是使用ODBC连接更新表错误的原因，而是更新构建的INDEX（MATCH））公式需要访问Intranet上的容量计划电子表格的字段中的数据所用的时间。数据透视表在查询运行后更新，但在数据检索到日期列之前更新。 – 2012-04-19 07:29:33

您是否尝试在透视刷新之前将透视图缓存后台查询设置为false：'Worksheets（“Overview”）.PivotTables（“pvt_PalletOverview”）.PivotCache.BackgroundQuery = False' – Reafidy 2012-04-19 20:41:27

我有这个问题; Readify的答案是现货。这是我的代码。

Range("Table_sqlserver_database[[#Headers],[column_name]]").Select 
    With Selection.ListObject.QueryTable 
     .BackgroundQuery = False 
    End With

来源

2014-07-25 15:40:52 steveno

嗨，steveno。这些论据是什么？ [[#Headers]，[column_name]] – kurp 2015-12-11 11:24:36

参数是列名。你可以忽略它们。 – steveno 2017-01-23 02:26:20

让Excel VBA在继续之前等待外部工作簿链接刷新

回答

相关问题