为什么需要判断Excel版本？

在日常的Excel VBA开发中，我们可能会遇到以下问题：

- 某些VBA方法或属性仅支持较新版本的Excel（如`TextJoin`函数在Excel 2016+才支持）

- 不同版本的Excel对象模型可能略有差异，导致旧版Excel运行时报错

- 需要针对不同版本提供不同的功能或提示信息

这时，“Application.Version" 就派上用场了！它能帮助我们获取当前Excel的版本号，从而编写更健壮的VBA代码。

---

Application.Version的基本用法

`Application.Version`返回的是一个**字符串**，表示当前Excel的版本号。例如：

- Excel 2019/365 → "16.0"

- Excel 2016 → "16.0"

- Excel 2013 → "15.0"

- Excel 2010 → "14.0"

- Excel 2007 → "12.0"

- Excel 2003 → "11.0"

Sub CheckExcelVersion()
Dim currentVersion As String
currentVersion = Application.Version
MsgBox "当前Excel版本: " & currentVersion, vbInformation, "版本检测"
End Sub

如何判断版本并执行不同代码？

我们可以用`Val`函数将版本号转换成数值，方便比较：

Sub RunVersionSpecificCode()
Dim ver As Double
ver = Val(Application.Version)

If ver >= 16.0 Then
MsgBox "当前是Excel 2016或更高版本，支持最新功能！", vbInformation
' 调用新版本API，如TextJoin
ElseIf ver >= 15.0 Then
MsgBox "当前是Excel 2013，部分功能受限。", vbExclamation
' 使用兼容模式
Else
MsgBox "当前是Excel 2010或更早版本，建议升级！", vbCritical
End If
End Sub

实际应用案例

避免在旧版Excel中使用不支持的函数

假设你的VBA代码用到了`TextJoin`（仅Excel 2016+支持），可以这样优化：

Sub SafeTextJoinExample()
If Val(Application.Version) >= 16.0 Then
' 使用TextJoin
MsgBox "支持TextJoin函数！"
Else
' 旧版Excel改用替代方案
MsgBox "当前版本不支持TextJoin，改用Concatenate+循环处理。"
End If
End Sub

总结

`Application.Version`是VBA兼容性编程的重要工具！

通过版本检测，可以避免代码在旧版Excel中崩溃。

结合`Application.Build`可更精准判断功能可用性。

如果你的VBA工具要发布给不同用户，强烈建议加入版本检测，让代码更健壮！

---

你的Excel是什么版本？试试运行上面的代码看看吧！

欢迎在评论区分享你遇到的版本兼容性问题，一起探讨解决方案！

关注我，获取更多Excel VBA高效编程技巧！