GBKEE

回復 1# h12960

但匯入的資料速度跟不上(即其實匯入的程序跟本還沒跑完,都還在匯入.),巨集就已經將所有的複製程序都跑完了,

1. Dim q As QueryTable
   
2.     q.Refresh False
   
3.     '幕後更新，則僅當所有資料都讀取至工作表後，才傳回對程序的控制

複製代碼

1. Refresh 方法
   
2. 請參閱套用至範例特定套用至 ListObject 物件時用 Refresh 方法。
   
3. 從執行 Microsoft Windows SharePoint Services 的伺服器上擷取清單目前的資料和結構描述。此方法僅可與已連結到 SharePoint 網站的清單一起使用。如果該 SharePoint 網站無法使用，則呼叫此方法將會傳回錯誤。
   
4. expression.Refresh()
   
5. expression    必選。該運算式會傳回 ListObject 物件。
   
6. 備註
   
7. 呼叫 Refresh 方法不會確認 Excel 活頁簿清單中的變更。且在呼叫 Refresh 方法時，會放棄 Excel 清單中未確認的變更。若要避免遺失任何未確認的變更，可在呼叫 Refresh 方法前，先呼叫 ListObject 物件的 UpdateChanges 方法。
   
8. 套用至 QueryTable 物件時用 Refresh 方法。
   
9. 更新外部資料範圍 (QueryTable)。Boolean。
   
10. expression.Refresh(BackgroundQuery)
    
11. expression    必選。該運算式會傳回 QueryTable 物件。
    
12. 
    
13. BackgroundQuery    選擇性的 Variant。僅與基於 SQL 查詢結果的 QueryTable 一起使用。若為 True，則在完成資料庫連線並送出查詢後，立刻傳回對程序的控制。QueryTable 是在幕後更新。若為 False，則僅當所有資料都讀取至工作表後，才傳回對程序的控制。如果不指定此引數，則由 BackgroundQuery 屬性的設定來決定查詢模式。

複製代碼