excel表外部連結的自動更新

有兩個excel檔案，一個叫source.xls另一個叫use.xls。現在use.xls中有指向source.xls的連結，比如：

='G:/share/作業/[source.xls]Sheet1'!$A$1  （'G:/share/作業/ 為source的路徑）

當共用use.xls檔案時，別人開啟了use.xls。但是想令source.xls被引用的資料如果有改變也能及時更新到別人開啟的use.xls上。

當然，使用use.xls的人可以手動從“編輯”-“連結”-“更新值”得到最新的資料。下面給出的是一個定時更新的方法：use.xls每隔15秒更新資料來源連結。

Sub update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Application.OnTime Now + TimeValue("00:00:15"), "update"
End Sub

一個遞迴過程。

為了讓use.xls一啟動就可以開啟程式，我們添加了一個過程：

Sub workbook_open()
Application.OnTime Now + TimeValue("00:00:15"), "update"
End Sub

之前為了達到此目的，將ontime函數放入一個無限迴圈中，導致程式總是忙...