→ MOONRAKER:(1)用shell執行"dir>tmpfile1"(2)在VBA中開啟tmpfile1 10/08 12:23
→ MOONRAKER:(3)在裡面用既有的字串比對找符合檔名 10/08 12:23
→ MOONRAKER:(4)找到就開(5)不管有沒有找到都要刪掉tmpfile1 10/08 12:24
小弟因工作需要，需用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