[發問] 我有關於Vlookup 的問題想請問

我有一個a.xlsx 裡面有儲存格是用Vlookup去參照b.xlsx 的資料但一般來說 b.xlsx是另一台電腦開著
本機除了開a.xlsx之外不會再開b.xlsx 但這樣我發現一個問題如果b.xlsx經由另一台電腦去更新資料
本機端開著a.xlsx並無法即時更新請問各位大大有辦法可以即時更新或者是製作vba按鈕更新嗎?

huijuang

中學生 Rank: 2

帖子: 49
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2014-2-13
最後登錄: 2020-9-18

6^#

發表於 2014-3-6 15:25 | 只看該作者

回復 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
再試試看

動念成因積因成果 by huijuang

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2014-3-4 22:57 | 只看該作者

回復 4# peellau

如果沒錯的話，應該是因為在模組裡的程式，必需給他指定一個明確的路徑，才有辦法正確執行，
不然他不知道該去哪執行這個指令，所以你必需再加個sheet("x").range("i2:i20000")，應該就能正常執行了，
因為我不確定你的檔案內容，但我用匯入web資料的時候，都只要在資料的第一格去按右鍵就能點選更新資料，
所以如果你那樣執行有問題的話，試著用range("i2")就好了看看

TOP

peellau

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-2-27
最後登錄: 2014-8-31

4^#

發表於 2014-3-4 16:38 | 只看該作者

本帖最後由 peellau 於 2014-3-4 16:39 編輯

回復 3# owen06

owen06 您好我有嘗試把您的程式碼貼上去
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

TOP

owen06