2012-09-14 143 views
0

後,我有一個使用一個存儲過程保持excel表格格式刷新表

With ActiveWorkbook.Connections("Connection").OLEDBConnection 
Values = QueryStr 
.CommandText = Values 
End With 

刷新Excel表格一旦刷新完成我需要應用一些格式(trhough VBA代碼),這個問題VBA代碼這就是代碼在不等待刷新結束的情況下執行,因此VBA宏失敗,是否有一種方法可以告訴宏等待刷新完成?

謝謝

回答

1

嘗試將BackgroundQuery屬性設置爲False。

代碼:

With ActiveWorkbook.Connections("Connection").OLEDBConnection 
    .BackgroundQuery = False '- Change here 
    Values = QueryStr 
    .CommandText = Values 
End With 

如果我沒有記錯的話..這會防止更新在後臺運行,所以它必須完成你的代碼的其餘部分執行之前。