標題: [發問] Excel ODBC 或 RTD問題 [打印本頁]

---

作者: lichang    時間: 2017-10-3 08:45     標題: Excel ODBC 或 RTD問題

大家好，最近小弟想寫一個對MongoDB資料庫最讀取的功能
查了一下，可以使用ODBC方式讀取到資料庫內容
但因為我資料庫的資料會一直變動，但EXCEL上設定更新頻率最短只有1分鐘，請問有辦法可以再加快嗎??(或者如何寫巨集強制更新)

另外，是否可以使用RTD或DDE方式對資料庫抓資料??有相關資訊與方式可以提供一下嗎???

---

作者: allenlin99    時間: 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" 才能發生效用。
　２．將程式指定給〔工作表名稱〕，才能避免錯誤，這是非常重要。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

---

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