- 帖子
- 49
- 主題
- 3
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲林
- 註冊時間
- 2014-2-13
- 最後登錄
- 2020-9-18
|
回復 4# peellau
THISWORKBOOK:
Private Sub Workbook_Open()
Call "更新"
End Sub
MODULE1:
Sub 更新()
T1 = Now + TimeSerial(0, 0, 1)
Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False
Application.OnTime T1, "更新"
End Sub
將Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False
改為 ActiveWorkbook.UpdateLink Type:=xlExcelLinks
再試試看 |
|