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

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

1^# 跳轉到 »

發表於 2011-7-18 09:45 | 顯示全部帖子

回復 1# xyzw7
試試看

Sub Ex()
Dim MyPath As String, Fs As Object, xlFolder As Object, xlfile As Object
With Application.FileDialog(msoFileDialogFolderPicker) '檔案對話方塊-> 限定資料夾
.AllowMultiSelect = False '限定單一選擇
.Show '顯示檔案對話方塊
If .SelectedItems.Count = 0 Then Exit Sub '沒選擇離開程式
MyPath = .SelectedItems(1) '所選擇的資料夾
End With
'FileSystemObject 物件提供對電腦檔案系統的存取。
Set Fs = CreateObject("Scripting.FileSystemObject").GetFolder(MyPath) '取得指定路徑中文字件夾相對應到的 Folder(資料夾) 物件。
For Each xlFolder In Fs.subfolders 'Fs.subfolders -> Fs的資料夾集合物件
'Each xlFolder 依序處裡每一子資料夾
For Each xlfile In xlFolder.Files 'xlFolder.Files 每一子資料夾的檔案集合物件
'Each xlfile 依序處裡每一子資料夾的檔案
If xlfile.Name Like "*@0.#*.csv" Then Workbooks.Open xlfile.FullName
'xlfile.Name Like "*@0.#*.csv" 檔案名稱相似的文字格式
'* 代表零個以上的字元 ,# 任一個數字(0-9)。
Next
Next
End Sub

複製代碼

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

2^#

發表於 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

複製代碼

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

3^#

發表於 2011-7-22 19:59 | 顯示全部帖子

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

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