[VBA ] 如何搜尋不特定檔名
小弟因工作需要，需用vba寫excel巨集
遇到的問題是這樣的
把工作的產品送去量測
量測單位會將資料傳成一個excel的檔案
檔名為該產品的流水號加量測位置代碼
例如，12345678.1acd2-25.xls
12345678.1 代表該產品的流水號
acd是固定的(也就是我送量測的代碼)
acd後的2是指該產品的驗證碼 (從1到6)
25是指送量產品的編號(從1到96,小於10會編成01~09)
請問我要如何只輸入12345678.1
能自動開啟這個量測的資料表
小弟是用迴圈組成一個字串
用dir一直去搜尋
有的話就離開迴窗，程式碼如下
xxx=inputbox '輸入流水號 12345678.1
for i=1 to 96
for j=1 to 6
if i<10 then
targetpath=xxx+"acd"+mid(str(j,2))+"-"+"0"+mid(str(i),2)+".xls"
else
targetpath=xxx+"acd"+mid(str(j,2))+"-"+mid(str(i),2)+".xls"
end if
checkdata=dir(targetpath)
if checkdata < > "" then exit for
next j
if checkdata < > "" then exit for
next i
............
這樣寫的話會變成如果驗證碼為6 編號為96時會搜尋比較久
所以想請問各位大大，要如何寫才能比較快速
一個沒vba基礎的新手，誠心的求教各位大大了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.115.241.31
→
10/08 12:23, , 1F
10/08 12:23, 1F
→
10/08 12:23, , 2F
10/08 12:23, 2F
→
10/08 12:24, , 3F
10/08 12:24, 3F