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

2025-05-21 19:44:27

推荐回答（2个）

回答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‘设置背景色为红色

回答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

最新问答

对不起我爱你中苏志燮的发型？

鼎盛榕峰注册过商标吗？还有哪些分类可以注册？

从莫泰168上海柳州路店（地址：上海市柳州路427号）到上海火车站（既新客站）怎么走啊？！！

铣床工主要是干什么的？它的就业前景如何？

幼儿园是春节后多久开学？

奥迪A5 今天过减速带迈开一半踩刹车滋滋的声音向断什么似的哪种声音请问你们知道是怎么回事不？