利用しているExcelのバージョンとソフトウェア名を取得する。

'******************************************************************
'　Excelのバージョンを取得
'******************************************************************
Sub Main_getSoftwareName()

    'バージョン取得
    Dim sVersion As String
    sVersion = Application.Version
    
    'ソフトウェア名取得
    Debug.Print "バージョン　：" & sVersion
    Debug.Print "ソフトウェア：" & getSoftwareName(sVersion)

End Sub

'******************************************************************
'　バージョンからExcelのソフトウェア名を取得
'------------------------------------------------------------------
'　　第１引数：アプリケーションバージョン
'------------------------------------------------------------------
'　　戻り値　：ソフトウェア名
'******************************************************************
Function getSoftwareName(getVer As String) As String

    Dim sRtn As String
    Select Case getVer
    Case "16.0"
        sRtn = "365 or 2016～"
    Case "15.0"
        sRtn = "2013"
    Case "14.0"
        sRtn = "2010"
    Case "12.0"
        sRtn = "2007"
    Case "11.0"
        sRtn = "2003"
    Case "10.0"
        sRtn = "2002"
    Case "9.0"
        sRtn = "2000"
    Case "8.0"
        sRtn = "97"
    Case "7.0"
        sRtn = "95"
    Case "5.0"
        sRtn = "5.0"
    Case Else
        sRtn = ""
    End Select
    
    If sRtn <> "" Then
        getSoftwareName = "Excel" & sRtn
    Else
        getSoftwareName = "[" & getVer & "]に該当のするExcelのソフトウェア名は取得できませんでした。"
    End If

End Function

　■実行結果