VBA Excel获取数据库图片

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$f$5" Then
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\照片\" & Trim(Target.Value) & ".jpg")
Sheets("").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\照片\" & Trim(Target.Value) & ".jpg")
If Err.Number = 0 Then
Image1.Visible = True
Sheets("表").Image1.Visible = True
' [ao2] = "有图片"
Else
Image1.Visible = False
Sheets("表").Image1.Visible = False
' [ao2] = "无图片"
Err.Clear
End If
End If
End Sub
我的图片要放在那个位置才能将图片导入

放在工作表的目录下面的"\照片\"子文件夹里面就可以将图片导入

你先把这句改了：If Target.Address = "$f$5" Then
改成 If Target.Address = "$F$5" Then

ThisWorkbook.Path 在新工作簿中为空值，要注意了。

单步执行，看看问题出在哪里......