代码怎么处理

excel白兔

老师们好
我运行这个代码
Sub 本年累计()
Dim ret As String
Dim ret1 As String
Dim arr
Application.DisplayAlerts = False
ret1 = ThisWorkbook.Name
ret = ret & "\" & Left(ret1, 4) & Format(Mid(ret1, 6, 3) + 1, "00") & Right(ret1, 17)
ret = Shell("explorer.exe \\Pjgw\财务\费用会计\费用\2012年费用" & ret, vbNormalFocus)
On Error Resume Next
Workbooks.Open (ret)
End Sub
的时候 出现上面2个图片 怎么能不提示呢
1点否 2点取消
要在哪加入上面代码呀

mxg825

上传附件 测试