VBA获取Excel版本信息,Application.Version属性
Option Explicit Sub ExcelVersion() Dim MyVersion As String Select Case Application.Version '获取版本号,根据版本号返回版本 Case "8.0" MyVersion = "97" Case "9.0" MyVersion = "2000" Case "10.0" MyVersion = "2002" Case "11.0" MyVersion = "2003" Case "12.0" MyVersion = "2007" Case "14.0" MyVersion = "2010" Case "16.0" MyVersion = "2016" Case Else MyVersion = "未知版本" End Select MsgBox "Excel 的版本是: " & MyVersion End Sub