VBA使用ExecuteExcel4Macro调用SUMIF操作已关闭工作簿问题咨询

问题1：ExecuteExcel4Macro调用SUMIF跨关闭工作簿计算报错的解决方案 #

核心原因 #

• SUMIF属于条件聚合类工作表函数，Excel底层限制其无法直接引用未打开的工作簿计算，这是文件打开时公式正常、关闭后返回#VALUE!的根本原因。
• 你构造的ExecuteExcel4Macro入参存在语法问题：Excel 4.0宏表达式需要以=开头，且传入的条件参数如果是当前工作簿的单元格地址，需要明确归属，否则宏解析器无法识别。

可用解决方案 #

• 方案1：临时后台打开目标工作簿计算（用户无感知，稳定性最高）

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wb As Workbook
Set wb = Workbooks.Open(myDir & fn)
' 直接调用工作表函数计算，无需使用ExecuteExcel4Macro
Debug.Print Application.SumIf(wb.Sheets("Sheet1").Columns(2), Range("C3").Value, wb.Sheets("Sheet1").Columns(3))
wb.Close SaveChanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True

• 方案2：必须使用ExecuteExcel4Macro时，修正表达式语法，直接传条件值而非单元格地址：

' 条件为数值格式的写法
Debug.Print ExecuteExcel4Macro("=SUMIF(" & s & "," & Range("C3").Value & "," & t & ")")
' 条件为文本格式的写法，需要额外包裹双引号
Debug.Print ExecuteExcel4Macro("=SUMIF(" & s & ",""" & Range("C3").Value & """," & t & ")")

问题2：动态获取关闭工作簿第一个工作表名称的解决方案 #

可以通过GetObject后台加载工作簿的方式读取工作表名称，全程不会弹出窗口，对用户无感知，无需额外引用第三方库，代码示例：

Dim targetWb As Workbook
Dim firstSheetName As String
' 关闭屏幕更新避免闪屏
Application.ScreenUpdating = False
' 后台加载目标工作簿
Set targetWb = GetObject(myDir & fn)
' 读取第一个工作表名称
firstSheetName = targetWb.Worksheets(1).Name
' 关闭加载的工作簿，不保存任何修改
targetWb.Close SaveChanges:=False
Application.ScreenUpdating = True

' 替换到原有地址构造逻辑即可
s = "'" & myDir & "[" & fn & "]" & firstSheetName & "'!" & Columns(2).Address(True, True, -4150)

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