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

xyzw7

各位大大好：
我想請問：
                   1.我想請問一下如果我有7個資料夾要開啟，我想利用檔名中的數字的改變來開啟不同的檔案，不知可行嗎？
例如：
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0.6GHz.csv"  =>開啟第一個檔案
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0.7GHz.csv "  =>開啟第二個檔案
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0.8GHz.csv"   => 開啟第三個檔案
因為我要開啟舊檔很多，不知道用何種「迴圈」來開啟檔比較好！因為我要開啟舊檔很多，不知道用何種「迴圈」來開啟檔比較好！

2. 如何在vba中以寫程式方式 開啟巨集 (目前我是用手動方式開啟巨集)?

感謝各位大大

GBKEE

回復 9# xyzw7
七個資料夾是放在一個主資料夾下嗎?    2樓的程式就是如此設計的你有試過嗎? 可以嗎?  有問題再說!  
1.工具->巨集
2.可在工作表插入物件(圖片 ,快取圖案..等)後, 按下右鍵  ->指定巨集

xyzw7

回復 6# play9091


    很感謝謝大大大回覆，目前因為我的等級不夠，不能下載您上傳的資料，可以請您把檔案寄到 xyzw21@yahoo.com 的信箱中嗎？

    很謝謝您！

xyzw7

回復 7# oobird


    請問大大：

                       你這樣子變數要如何設定呢？我有試過你這樣子的方式，可是在step後面的數字會變成  ####
請問如何決解呢？

xyzw7

回復 8# GBKEE

謝謝大大教導！
我是有七個資料夾，每個資料夾中有一百個多個檔案要開啟！

在請問大大：
                         如何在vba中以寫程式方式 開啟巨集 (目前我是用手動方式開啟巨集)?

感謝大大的回覆

GBKEE

回復 3# xyzw7
給你的回文: 你也沒說何不合用 , 你是有7個檔案 還是7個資料夾這是不一樣的
要回文 請按 [回覆] 按鈕  答覆你的人才會得到通知 ,知道你有發文
你要的是這樣嗎>

1. Sub Ex()
   
2.     Dim i As Integer
   
3.     For i = 6 To 6 + 6
   
4.         Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0." & i /10 & "GHz.csv" '>= 開啟第一個檔案
   
5.     Next
   
6. End Sub

複製代碼

oobird

for i = 0.6 to 0.9 step 0.1
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@" & i & "GHz.csv"

play9091

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

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

而我個人這幾天寫了一個超級巨大的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取出檔案路俓(不開啟檔案的情況下……)，多問的……

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

xyzw7

再補充第一個問題：因為我要開啟舊檔很多，不知道用何種「迴圈」來開啟檔比較好！

xyzw7

感謝大大的回覆！！
1.我想請問一下如果我有7個資料夾要開啟，我想利用檔名中的數字的改變來開啟不同的檔案，不知可行嗎？
例如：
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0.6GHz.csv"  =>開啟第一個檔案
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0.7GHz.csv "  =>開啟第二個檔案
Workbooks.Open "D:\不同材料的pattern比較 20110704\OF_Form_pol_v01\OF_Form_pol_v01@0.8GHz.csv"   => 開啟第三個檔案
2. 如何在vba中以寫程式方式 開啟巨集 (目前我是用手動方式開啟巨集)?

感謝各位大大