返回列表 上一主題 發帖

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

peellau

帖子
4 
主題
2 
精華
0 
積分
6 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-2-27 
最後登錄
2014-8-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-4 10:55 | 只看該作者

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

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

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
2#
發表於 2014-3-4 11:32 | 只看該作者
可以使用『編輯』→『連結』→『更新數值』
這樣應該就可以更新了
當然如果要做成VBA
只要錄製巨集，應該就可以了

不知道其他前輩有沒有更方便的方法?
動念成因積因成果 by huijuang

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2014-3-4 14:53 | 只看該作者
回復 1# peellau

用application.ontime去自動執行更新

在a工作表裡的thisworkbook輸入
  1. Private Sub Workbook_Open()
  2. Call 更新
  3. End Sub
複製代碼
在a工作表模組裡新增
  1. Sub 更新()
  2. T1 = Now + TimeSerial(0, 0, 1)
  3. range("xxxxx").QueryTable.Refresh BackgroundQuery:=False    '=>這裡可以改成你自己要的方式
  4. Application.OnTime T1, "更新"
  5. End Sub
複製代碼
TimeSerial(0, 0, 1)是表示一秒更新一次
              時 分 秒

TOP

peellau

帖子
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
　暱稱: 阿軒

中學生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

huijuang

帖子
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

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題