- 帖子
- 4
- 主題
- 0
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2014-3-22
- 最後登錄
- 2020-1-14
|
2#
發表於 2017-10-4 13:55
| 只看該作者
回復 1# lichang
這我之前網路上找的，請參考。都是站上前輩分享
1) http://forum.twbts.com/viewthread.php?tid=37 呼叫API 定時執行 2個定時
2 )https://tw.answers.yahoo.com/question/index?qid=20120228000010KK01065#
■程式碼：
Dim uMode, PvtSht As Worksheet '〔頂端〕宣告
Sub 自動更新()
On Error Resume Next
Set PvtSht = ThisWorkbook.Sheets("Sheet1")
'指定〔本檔案〕〔工作表名稱〕，以避免錯誤，
'且可同時操作其他工作表，甚至其他檔案，而不影響程式
If uMode = "Stop" Then Exit Sub
PvtSht.PivotTables("樞紐分析表1").PivotCache.Refresh
Application.OnTime Now + TimeValue("00:00:5"), "自動更新"
End Sub
Sub 執行更新()
If uMode = "Start" Then Exit Sub '此為防止重覆執行
uMode = "Start"
Call 自動更新
End Sub
Sub 停止更新()
uMode = "Stop"
End Sub
■說明：
１．頂端宣告，才能將〔變數〕設成全模組共用，
〔停止更新〕送出的 uMode = "Stop" 才能發生效用。
２．將程式指定給〔工作表名稱〕，才能避免錯誤，這是非常重要。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ |
|
