帖子: 16
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-7-6
最後登錄: 2011-12-1

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-7-21 18:34 | 只看該作者

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

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

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

感謝各位大大

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2011-7-22 19:59 | 只看該作者

本帖最後由 GBKEE 於 2011-7-22 20:03 編輯

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

TOP

xyzw7

中學生 Rank: 2

帖子: 16
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-7-6
最後登錄: 2011-12-1

11^#

發表於 2011-7-22 18:15 | 只看該作者

回復 6# play9091

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

很謝謝您！

TOP

xyzw7

中學生 Rank: 2

帖子: 16
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-7-6
最後登錄: 2011-12-1

10^#

發表於 2011-7-22 18:11 | 只看該作者

回復 7# oobird

請問大大：

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

TOP

xyzw7

中學生 Rank: 2

帖子: 16
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-7-6
最後登錄: 2011-12-1

9^#

發表於 2011-7-22 18:08 | 只看該作者

回復 8# GBKEE

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

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

感謝大大的回覆

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-7-21 19:52 | 只看該作者

本帖最後由 GBKEE 於 2011-7-22 08:09 編輯

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

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

複製代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2011-7-21 19:41 | 只看該作者

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"

TOP

play9091

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

6^#

發表於 2011-7-21 18:40 | 只看該作者

本帖最後由 play9091 於 2011-7-21 19:17 編輯

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

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

而我個人這幾天寫了一個超級巨大的VBA，I7+SSD跑也要一分半才跑完。裡面也要寫到用迴圈開啟舊檔這個部分把檔案丟上來大家參考一下……
我的方法比較笨！我先把路俓在工作表裡面輸入好，用迴圈去取出路俓，再開啟檔案……簡單範例如下…

Sub name_test()
For I = 4 To 10
'叫出KPI報告
KPI = Workbooks("路俓版").Sheets("工作表3").Range("D" & I).Value
Workbooks.Open (KPI)
Set KPI = Nothing
KPI = ActiveWorkbook.name
Workbooks(KPI).Close SaveChanges:=True
Set KPI = Nothing

複製代碼

P.S.我個人比較想知道的是如何用VBA取出檔案路俓(不開啟檔案的情況下……)，多問的……

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

路俓版.rar (18.48 KB)

初學VBA乍到twbts

TOP

xyzw7

中學生 Rank: 2

帖子: 16
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-7-6
最後登錄: 2011-12-1

5^#

發表於 2011-7-19 22:22 | 只看該作者

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

TOP

xyzw7

中學生 Rank: 2

帖子: 16
主題: 4
精華: 0
積分: 52
點名: 0
作業系統: Win 7
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-7-6
最後登錄: 2011-12-1

4^#

發表於 2011-7-19 22:18 | 只看該作者

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

感謝各位大大

TOP