VBA是什么文件夹

注意 c:\a 目录下的文件不要太多,免得死机

Sub 打开excel表格()
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = "c:\a\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
End Sub

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
这个是链接图片的代码，没有的就不会出现，其中目录要自己改
在备份后操作本回答被网友采纳