13问答网 > 怎么用vba判断文件夹里的文件（学生照片）是否存在，并且将结果填入excel？算法怎么写？

怎么用vba判断文件夹里的文件（学生照片）是否存在，并且将结果填入excel？算法怎么写？

2025-03-04 06:07:18

推荐回答（2个）

回答1：

Sub 宏22()
Dim r, p, n, i%, j%, k%
r = Range("B65536").End(xlUp).Row
p = "D:\学生照片\"   '假设“学生照片”文件夹在D盘，照片文件名以学生姓名命名
n = Dir(p, vbDirectory)
Do While n <> ""
  If n <> "." Then
     If (GetAttr(p & n) And vbDirectory) <> vbDirectory Then
        i = i + 1
        For j = 2 To r
        If n = Cells(j, 2).Text & ".jpg" Then Cells(j, 3) = "有"
        Next
     End If
  End If
    n = Dir
Loop
For k = 2 To r
If Cells(k, 3) = "" Then Cells(k, 3) = "无"
Next
End Sub

回答2：

把图片的名字改为学生的学号或姓名,可以实现