从VB脚本运行Excel宏，但不提示VBA运行时错误

Option Explicit

Sub RunExcelMacroWithoutError()
    On Error Resume Next
    
    Dim xlApp
    Set xlApp = CreateObject("Excel.Application")
    
    If xlApp Is Nothing Then
        MsgBox "Excel is not installed on this machine."
        Exit Sub
    End If
    
    Dim xlWorkbook
    Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
    
    If xlWorkbook Is Nothing Then
        MsgBox "Failed to open the Excel file."
        xlApp.Quit
        Exit Sub
    End If
    
    ' 运行Excel宏
    xlApp.Run "YourMacroName"
    
    ' 关闭Excel文件和应用程序
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    MsgBox "Excel macro executed successfully."
End Sub

RunExcelMacroWithoutError