[已解决]VBA忽略错误的代码是什么啊？

lingyuncelia1

因为如下代码有EXCEL文件没有对应的相片，所以出现错误。VBA忽略错误的代码是什么啊？
Sub Macro1()
mypath = ThisWorkbook.Path & "\"
wj = Dir(mypath & "*.xls")
Application.ScreenUpdating = False
Do While wj <> ""
   If wj <> ThisWorkbook.Name Then
        With Workbooks.Open(mypath & wj)
            ActiveSheet.DrawingObjects.Delete
            x = [i3:i7].Left: y = [i3:i7].Top
            w = [i3:i7].Width: h = [i3:i7].Height
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, x, y, w, h).Select
            Selection.ShapeRange.Fill.UserPicture mypath & "\" & Split(wj, ".xls")(0) & ".jpg"
            .Close True
        End With
   End If
   wj = Dir
Loop
MsgBox "插入图片完毕"
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

02761752696

2016-3-28 11:37

在过程前  加一句 On Error Resume Next   出现错误时会跳过错误语句继续下一条代码，不建议使用，会使程序达不到预期效果

跳转到最佳答案楼层

yorkchenshunan

on error resume next

02761752696

在过程前  加一句 On Error Resume Next   出现错误时会跳过错误语句继续下一条代码，不建议使用，会使程序达不到预期效果

爱疯

if dir(图片路径)<>"" then 打开图片


意思是，如果判断图片路径有效，才打开。具体代码自己改下。