標題: 停止自動更新工作表 [打印本頁]

---

作者: bully    時間: 2012-10-4 02:03     標題: 停止自動更新工作表

ー個工作表内有多個査詢,用資料屬性設定ー分鍾更新
請問如用ー個按鈕停止某ーエ作表内所有査詢更新應該點寫,??

---

作者: kimbal    時間: 2012-10-4 13:26

1. Sub test()
   
2. Dim ws As Worksheet
   
3. Dim qt
   
4.     For Each ws In ThisWorkbook.Worksheets
   
5.         If ws.QueryTables.Count > 0 Then
   
6.             For Each qt In ws.QueryTables
   
7.                 qt.BackgroundQuery = False
   
8.             Next
   
9.         End If
   
10.     Next
    
11. End Sub

複製代碼

原理是一個一個關掉這個選項
[attach]12693[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)