作者lovemurder (泡沫)
看板Visual_Basic
标题[VBA ] 如何搜寻不特定档名
时间Wed Oct 8 09:27:07 2008
小弟因工作需要，需用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
1F：→ MOONRAKER:(1)用shell执行"dir>tmpfile1"(2)在VBA中开启tmpfile1 10/08 12:23
2F：→ MOONRAKER:(3)在里面用既有的字串比对找符合档名 10/08 12:23
3F：→ MOONRAKER:(4)找到就开(5)不管有没有找到都要删掉tmpfile1 10/08 12:24