如何在不打开Excel文件时运行其他文件中的宏？报错求助

错误原因 #

你遇到的“subscription out of range”（下标越界）错误，是因为Workbooks("\\s-fa\PRICES\m\pi\pirw.xlsx")引用的工作簿并未打开——Workbooks集合仅包含当前已加载的Excel文件，直接用完整路径引用未打开的文件会导致找不到对象。

另外要明确：Excel宏无法在完全不打开文件的环境下运行，所谓“后台处理”只是让文件在不显示窗口的状态下打开执行。

修正后的代码方案 #

下面是调整后的代码，实现后台打开目标文件、调用指定宏并处理的逻辑：

Sub callmacro()
    Dim targetWb As Workbook
    Dim macroWb As Workbook
    Dim targetPath As String
    Dim macroPath As String
    
    ' 定义文件路径
    targetPath = "\\s-fa\PRICES\m\pi\pirw.xlsx"
    macroPath = "\\s-fa\PRICES\m\pi\pirw.xlsm"
    
    ' 关闭屏幕更新与弹窗提示，实现后台效果
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    On Error GoTo Cleanup ' 错误处理，确保资源正常释放
    
    ' 打开要处理的目标工作簿
    Set targetWb = Workbooks.Open(Filename:=targetPath, ReadOnly:=False)
    
    ' 检查宏所在工作簿是否已打开，未打开则后台加载
    On Error Resume Next
    Set macroWb = Workbooks("pirw.xlsm")
    On Error GoTo Cleanup
    If macroWb Is Nothing Then
        Set macroWb = Workbooks.Open(Filename:=macroPath, ReadOnly:=True, Visible:=False)
    End If
    
    ' 调用指定宏，传入目标工作簿对象
    Application.Run "'" & macroWb.Name & "'!MoveSingleColumn", targetWb
    
    ' 按需保存目标工作簿的修改
    targetWb.Save
    
Cleanup:
    ' 关闭文件并释放对象
    If Not targetWb Is Nothing Then targetWb.Close SaveChanges:=False
    If Not macroWb Is Nothing And macroWb.Name <> ThisWorkbook.Name Then macroWb.Close SaveChanges:=False
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Set targetWb = Nothing
    Set macroWb = Nothing
    
    ' 错误提示
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbCritical
    End If
End Sub

关键说明 #

• Application.ScreenUpdating = False：关闭屏幕刷新，让文件在后台执行，不会弹出Excel窗口
• Workbooks.Open(Visible:=False)：让宏所在的xlsm文件后台加载，避免显示界面
• 错误处理块Cleanup：确保无论执行是否出错，都能关闭文件、恢复Excel设置，防止资源占用
• 宏调用格式：当工作簿名包含特殊字符或路径时，必须用单引号包裹，通过macroWb.Name获取文件名更可靠

内容的提问来源于stack exchange，提问作者peter cook