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

发布网友发布时间：2022-05-13 14:35

共2个回答

热心网友时间：2023-10-12 15:31

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

热心网友时间：2023-10-12 15:31

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com