判断同一文件夹下是否有同名word文件

grayw

ykcbf1100 发表于 2025-3-31 12:25
同一目录下怎么可能有同名文件存在？除非后辍名不同。

大虾，是我没表达清楚，同一目录下word文件名与excel中a列相同，即在b列打钩~

ykcbf1100

grayw 发表于 2025-3-31 12:33
大虾，是我没表达清楚，同一目录下word文件名与excel中a列相同，即在b列打钩~

附件供参考。。。

ykcbf1100

1. Sub ykcbf()    '//2025.3.31
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     arr = sh.UsedRange
   
7.     For i = 2 To UBound(arr)
   
8.         d(arr(i, 1)) = i
   
9.     Next
   
10.     p = ThisWorkbook.Path & ""
    
11.     For Each f In fso.GetFolder(p).Files
    
12.         If LCase$(f.Name) Like "*.doc*" Then
    
13.             fn = fso.GetBaseName(f)
    
14.             If Not d.exists(fn) Then
    
15.                 arr(d(fn), 2) = ""
    
16.             Else
    
17.                 arr(d(fn), 2) = "√"
    
18.             End If
    
19.         End If
    
20.     Next f
    
21.     sh.UsedRange = arr
    
22.     Application.ScreenUpdating = True
    
23. End Sub
    

复制代码

grayw

ykcbf1100 发表于 2025-3-31 12:54
附件供参考。。。

感谢大虾，今天评分用完了，明天一定补上~