Word与Excel遍历Excel命名范围的速度差异及优化方案咨询

造成这种巨大性能差异的核心原因是跨进程COM调用的开销：

• Excel内部VBA运行在Excel进程中，遍历ActiveWorkbook.Names时直接访问内存中的对象集合，没有额外的进程间通信（IPC）开销，所以速度极快。
• Word中的VBA属于独立的Word进程，每次循环访问wb.Names里的单个命名范围对象，都需要通过COM接口完成跨进程的数据传递——这个过程包含数据序列化、进程上下文切换等操作，17000次循环的累计开销直接把总耗时拉到了Excel内部的1000倍。

最有效的优化思路是减少跨进程调用的次数，从17000次单次调用变成1次批量数据传输，具体有两种可行方案：

方案一：在Excel端封装批量获取逻辑 #

在Excel文件中添加一个VBA自定义函数，一次性把所有命名范围的信息（比如名称、引用地址等）打包成数组返回，然后在Word中调用这个函数获取完整数据：

步骤1：在Excel中添加VBA函数 #

打开目标Excel文件，按Alt+F11打开VBA编辑器，插入模块并写入以下代码：

Function GetAllNamedRanges() As Variant
    Dim nameCount As Integer
    nameCount = ActiveWorkbook.Names.Count
    Dim nameInfoArr() As Variant
    ' 可按需调整数组结构，比如存储名称和引用地址
    ReDim nameInfoArr(1 To nameCount, 1 To 2)
    
    Dim i As Integer
    For i = 1 To nameCount
        nameInfoArr(i, 1) = ActiveWorkbook.Names(i).Name
        nameInfoArr(i, 2) = ActiveWorkbook.Names(i).RefersTo
    Next i
    
    GetAllNamedRanges = nameInfoArr
End Function

步骤2：在Word中调用该函数获取数据 #

在Word的VBA代码中，通过Run方法调用Excel端的函数，一次性获取所有命名范围数据，之后在Word进程内遍历数组即可：

Dim xlsapp As Object
Set xlsapp = GetObject(, "Excel.Application")
Dim allNames As Variant
' 调用Excel端的自定义函数
allNames = xlsapp.Run("GetAllNamedRanges")

' 在Word内遍历数组，无跨进程开销
Dim x As Integer
x = 0
Dim i As Integer
For i = LBound(allNames, 1) To UBound(allNames, 1)
    x = x + 1
    ' 可在这里处理每个命名范围信息，比如：
    ' Debug.Print "名称：" & allNames(i, 1) & "，引用：" & allNames(i, 2)
Next i

方案二：使用早期绑定减少额外开销 #

如果你的Word环境固定，可以通过引用Excel对象库启用早期绑定，这能减少晚期绑定（用Object声明）的额外开销，虽然无法消除跨进程的核心开销，但能小幅提升遍历速度：

1. 在Word的VBA编辑器中，点击工具→引用，勾选Microsoft Excel XX.X Object Library（XX.X对应你的Excel版本）。
2. 修改Word中的代码为早期绑定形式：

Dim xlsapp As Excel.Application
Set xlsapp = GetObject(, "Excel.Application")
Dim wb As Excel.Workbook
Set wb = xlsapp.ActiveWorkbook
Dim x As Integer
x = 0
Dim n As Excel.Name
For Each n In wb.Names
    x = x + 1
Next n

注意：方案一的性能提升远大于方案二，因为它从根源上减少了跨进程调用的次数，是最优解。

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