Excel VBA对比某个文件夹内的文件名称

Question

Excel表格单元格内容是否与某个文件夹内文件名称相同，如果不相同就用颜色标示。
例如：Excel 单元格内 "B223" 在某文件夹内有一个文件名称是 "20131220_B223.pdf" , 即表示相同。

Answer 1

假定文件夹为：E:\ABC，单元格为A1，代码如下：
wjm = Dir("E:\ABC\*.*")
Do While wjm <> ""
If InStr(wjm, [A1]) > 0 Then Exit Do
wjm = Dir
Loop
If wjm = "" Then [A1].Interior.ColorIndex = 3‘设置背景色为红色

Answer 2

假设文件夹为 mypath, 单元格A1
ifile=dir(mypath)
do while ifle<>""
if instr(ifile,"B223")>0 then goto 100
ifile=dir
loop
'标记颜色
cells(1,1).Interior.ColorIndex = 5 '标为蓝色
100 exit sub追问

感谢你的回复! 运行出现如下讯息，麻烦帮忙看下怎么回事？

追答

你点调试,看看是那句有问题.