讓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在繼續之前等待外部工作簿鏈接刷新

回答

相關問題