excel VBA 学习笔记 <二>

上一篇 / 下一篇  2016-03-05 13:12:33 / 个人分类:学习笔记

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

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



TAG: Excel excel

 

评分:0

我来说两句

我的栏目

日历

« 2021-11-26  
 123456
78910111213
14151617181920
21222324252627
282930    

我的存档

数据统计

  • 访问量: 1021
  • 日志数: 2
  • 建立时间: 2016-03-05
  • 更新时间: 2016-03-05

RSS订阅

Open Toolbar