[算表] 如何搜尋子資料夾 與 多程式的執行?--VBA
軟體:Excel
版本:2003
小弟目前有兩個疑惑 期盼版上的強者大大解惑
1.小弟有一個搜尋程式大致內容如下
Set myFSO = CreateObject("Scripting.FileSystemObject")
strPath = ThisWorkbook.Path & "/source"
Set myFiles = myFSO.GetFolder(strPath).Files
For Each myFile In myFiles
'搜尋條件
Next
但此程式的限制在於我必須把檔案都丟到名為source資料夾裏的表層
才能進一步作條件搜尋 (ex:將符合檔名之檔案複製到其他指定位址)
若丟到source內的子資料夾就搜不到
請問各位 小弟我該如何寫才能將搜尋範圍
擴展到指定資料夾內的所有子資料夾內的檔案呢??
(ex:將符合名稱之子資料夾內的檔案全部複製到指定位址)
2.小弟有寫了7個程式 想找一個方法一次執行完7個
原本想過直接將7個程式全丟在同個sub內 但因為內容重複性太高 很多變數宣告都重複
重建構新的變數反而導致自己整個亂掉 又不方便日後各別更改與執行
是否有方法寫一個聯集型的程式將我所指定的各個程式依序執行呢??
煩請版上各位強者大大解惑 小弟在此先謝過了 感恩!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.123.129.165
※ 編輯: zeroexe306 來自: 122.123.129.165 (05/16 21:52)
推
05/16 23:06, , 1F
05/16 23:06, 1F
→
05/16 23:07, , 2F
05/16 23:07, 2F