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