多層資料夾尋找檔案的問題 - Excel程式區

[發問] 多層資料夾尋找檔案的問題

1^# 跳轉到 »

發表於 2015-9-9 17:25 | 顯示全部帖子

本帖最後由准提部林於 2015-9-9 17:27 編輯

回復 13# ui123

2003以上沒了 FileSearch，對這多層搜檔實在頭痛，不是專行寫的，參考看看！
Ａ１請先輸入〔檔案名稱.副檔名〕，僅搜索執行檔案同一層及以下子資料夾的檔案，
若與實際需求有不足點，請自行修改：

Sub Get_File()
Dim OBJ, xD, xFile$, Urr, U, G, GF, K, xB As Workbook
Set OBJ = CreateObject("Scripting.FileSystemObject")
Set xD = CreateObject("Scripting.Dictionary")
Urr = Array(ThisWorkbook.Path)
　
RE_GET:
For Each U In Urr
　　xFile = U & "\" & [A1].Value 　'檔案夾路徑+Ａ１檔名.副檔名
　　If Dir(xFile) <> "" Then Set xB = Workbooks.Open(xFile): Exit Sub　 '找到檔案，開啟並跳出
　
　　Set GF = OBJ.GetFolder(U).SubFolders 　'取得本層子資夾
　　If GF.Count > 0 Then 　
　　　　For Each G In GF: K = K + 1: xD(K) = G.Path: Next　 '將子資料夾納入字典檔
　　End If
Next
　
If K > 0 Then Urr = xD.items: xD.RemoveAll: K = 0: GoTo RE_GET '若字典檔有內容，再去找檔案
MsgBox "找不到目標檔案！　"
End Sub

複製代碼

2^#

發表於 2015-9-12 13:31 | 顯示全部帖子

回復 16# ikboy

那個CMD的也不太懂, 試著寫, 參考看看：
http://forum.twbts.com/thread-15063-1-1.html

靜思自在 : 我們要做好社會的環保，也要做好內心的環保。