Excel 2007中VBA代码出现红线报错，Excel 2013可正常运行求助

这种跨版本的VBA兼容问题我碰到过好几次，大概率是版本特性差异或者环境配置导致的，给你几个具体的排查和解决方向：

1. 检查是否使用了Excel 2013新增的语法/对象 #

Excel 2013相比2007新增了不少VBA特性，这些在2007里会直接触发红线报错：

• 比如工作表函数TextJoin（2019/365才正式支持，部分2013版本可能适配但2007绝对没有），如果代码里用Application.WorksheetFunction.TextJoin，2007会找不到这个函数；
• 再比如Range.AutoFilter的某些新增参数、ListObject的进阶排序方法，或者Workbook的新属性（比如AutoSaveOn）。

解决办法：
找到红线标记的代码行，替换为2007兼容的写法。比如用自定义函数实现TextJoin的功能：

Function CustomTextJoin(delimiter As String, ignore_empty As Boolean, rng As Range) As String
    Dim cell As Range
    Dim result As String
    For Each cell In rng
        If Not ignore_empty Or cell.Value <> "" Then
            result = result & cell.Value & delimiter
        End If
    Next cell
    If Len(result) > 0 Then
        CustomTextJoin = Left(result, Len(result) - Len(delimiter))
    End If
End Function

2. 检查VBA引用库的兼容性 #

Excel 2007和2013的默认引用库版本不同，高版本的引用在2007里会失效：

• 打开2007的VBE（按Alt+F11），点击【工具】→【引用】，如果看到有标红的引用项，说明这个库在2007里不存在，必须取消勾选；
• 尽量用后期绑定替代早期绑定，比如创建Excel对象时：
  错误写法（早期绑定，依赖特定版本库）：

  Dim xlApp As Excel.Application
  Set xlApp = New Excel.Application
  

  正确写法（后期绑定，兼容所有版本）：

  Dim xlApp As Object
  Set xlApp = CreateObject("Excel.Application")
  

3. 核对文件操作的格式参数 #

如果代码里涉及保存、打开文件，2007对部分文件格式的支持有限：

• 比如Workbook.SaveAs的FileFormat参数，2007不支持xlOpenXMLStrictWorkbook（2013新增），要统一用2007兼容的常量：
  • 启用宏的工作簿：FileFormat:=52（对应xlOpenXMLWorkbookMacroEnabled）
  • 普通xlsx：FileFormat:=51

4. 排查宏安全设置 #

2007的宏安全默认更严格，可能阻止代码编译：

• 点击Excel 2007左上角的【Office按钮】→【Excel选项】→【信任中心】→【信任中心设置】→【宏设置】，临时选择“启用所有宏”测试，如果红线消失，说明是安全设置导致的。之后记得给宏签名或者添加信任位置，不要一直开着高风险设置。

最后一步：逐行定位错误 #

如果上面的方法都没用，直接在2007的VBE里看红线标记的具体代码行，把那行代码单独拿出来分析——比如可能是某个变量名拼写错误，或者2007对某些语法的要求更严格（比如Dim声明的位置）。

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