返回列表 上一主題 發帖

請問開啟舊檔如何搭配迴圈使用

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
1# 跳轉到 »
發表於 2011-7-21 18:40 | 顯示全部帖子
本帖最後由 play9091 於 2011-7-21 19:17 編輯

下面有一貼問題是差不多的，可以試試看……或許是你的需求。

請問開啟舊檔如何搭配迴圈使用

而我個人這幾天寫了一個超級巨大的VBA，I7+SSD跑也要一分半才跑完。裡面也要寫到用迴圈開啟舊檔這個部分把檔案丟上來大家參考一下……
我的方法比較笨！我先把路俓在工作表裡面輸入好，用迴圈去取出路俓，再開啟檔案……簡單範例如下…
  1. Sub name_test()
  2.     For I = 4 To 10
  3. '叫出KPI報告
  4.     KPI = Workbooks("路俓版").Sheets("工作表3").Range("D" & I).Value
  5.     Workbooks.Open (KPI)
  6.     Set KPI = Nothing
  7.     KPI = ActiveWorkbook.name
  8.     Workbooks(KPI).Close SaveChanges:=True
  9.     Set KPI = Nothing
複製代碼
P.S.我個人比較想知道的是如何用VBA取出檔案路俓(不開啟檔案的情況下……)，多問的……

驚突然發現問的人是同一個！！！

路俓版.rar (18.48 KB)

初學VBA乍到twbts

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題