返回列表 上一主題 發帖

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

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-3-4 22:57 | 顯示全部帖子
回復 4# peellau


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

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題