求根据excel表中文件名找出一文件夹内对应文件名的文件的vba？

Question

假如 ,现有一张表，表中A列是某校 n 个学生的身份证号码，D:\1\ 里面有 m 张以学生身份证号命名的照片（m<n），如何利用excel表中的VBA找出A列中的哪些学生没有照片 ？谢谢！！
照片的扩展名是 .jpg

Answer 1

Sub hy()
Dim Sheet1 As Worksheet
Dim a As Integer
Dim i As Integer
Dim n As String
a = [b65536].End(xlUp).Row
Set Sheet1 = ThisWorkbook.Worksheets(1)
For i = 1 To a

n = "目录\" & Cells(i, 2).Value & ".jpg"

If FileFolderExists(n) Then
Sheet1.Hyperlinks.Add Anchor:=Cells(i, 3), Address:=n, _
TextToDisplay:=Cells(i, 2).Value

End If
Cells(i, 3).Font.Name = "ISOCPEUR"

Next
End Sub
Public Function FileFolderExists(strFullPath As String) As Boolean

On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True

EarlyExit:
On Error GoTo 0

End Function
这个是链接图片的代码，没有的就不会出现，其中目录要自己改
在备份后操作

Answer 2

请问照片的扩展名是什么