VBA 比对(请各位老师帮忙)

lkk0063 · 发表于 2017-2-13 11:04

1.从栏位E1输入资料 "AH16045",能比对"AH16045" & "AH16045-11.33"与ipath路径下的资料夹做比对, 并秀出比对讯息
2.能比对 .jpg & .pdf 两种副档名的资料

yayahzmeng · 发表于 2017-2-13 21:43

开新贴了，哈哈
如果待比对的文件名中只要含有输入的字符就满足要求，也不管文件类型的话，就这样改吧：
将 If Left(xfile, Len(xfile) - 4) = x Then 改为 If instr(xfile, cstr(x)) <>0 Then 即可

这样，输入的是AH16045，只要存在 *AH16045*.*的文件都视作满足条件，不管是pdf、jpg、jpeg还是其它什么文件类型

lkk0063 · 发表于 2017-2-14 08:41

本帖最后由 lkk0063 于 2017-2-14 16:45 编辑

yayahzmeng 发表于 2017-2-13 21:43
开新贴了，哈哈
如果待比对的文件名中只要含有输入的字符就满足要求，也不管文件类型的话，就这样改吧：
...

先谢谢yayahzmeng的帮忙
测试后,发现会存在一些问题, 当我输入 "AH" 也是被允许, 所以可能有bug我原本想法是 "档案名称-数字" ex: "AH16045-11.33" 输入AH16045 会有提醒或是视窗有此批其他资料, 这从VBA 有办法可以做吗?

		自动登录	找回密码
密码			注册

VBA 比对(请各位老师帮忙)

相关帖子