EXCELヴァージョン

Application.Version

EXCELのヴァージョンを確認する関数

Function ExcelVer() As Integer

Dim Ver As Integer

Ver = CInt(Application.Version)

Select Case Ver
Case 12
ExcelVer = 2007
Case 11
ExcelVer = 2003
Case 10
ExcelVer = 2002
Case 9
ExcelVer = 2000
Case 8
ExcelVer = 97
Case 7
ExcelVer = 95
Case 5
ExcelVer = 5
Case Else
ExcelVer = 0
End Select
End Function