用On Error Resume next来处理

On Error Resume next

Set objExcelApp = CreateObject("Excel.Application")  '调用excel
objExcelApp.Visible = False                 'excel窗口不可见           
objExcelApp.Workbooks.Open "D:\test.xlsx"   '打开这个路径下的excel文件

objExcelApp.ActiveSheet.printout = 1     '打印EXCEL表格

If Err.Number >0 Then '可以判断错误号来决定调用错误处理过程

    handleErr

    Err.Clear

End If

objExcelApp.DisplayAlerts = False
objExcelApp.Workbooks.Close           '关闭excel
objExcelApp.Quit                      '退出excel
Set objExcelApp= Nothing              '释放excel应用的句柄

Sub handleErr()

    MsgBox true

End sub