excel VBA 学习笔记 <二>

Public 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 = "Microsoft Office Excel 2007"
        Case Else
            myVersion = "unknow"
    End Select
    MsgBox "Excel version is:" & myVersion
End Sub

----------------------------------------------------------------