一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

Office 開發(fā)版本號(hào)與版本對(duì)應(yīng)關(guān)系

 書bar 2018-07-23

判斷 Office 版本

office97 : 8.0

office2000 : 9.0

officeXP(2002) : 10.0

office2003 : 11.0

office2007: 12.0

office2010 : 14.0

office2013: 15.0


    MsgBoxThisWorkbook.CalculationVersion 獲取一個(gè)數(shù)字,該數(shù)字指示上次對(duì)工作簿進(jìn)行完全重新計(jì)算的 Excel的版本。

   最右邊四位是計(jì)算引擎的次版本號(hào),其它位(左邊)是Microsoft Office Excel的主版本。

   例子 114210

   11 是 Excel 11, i.e. Excel2003

   92512

9 是 Excel 9

0 沒有進(jìn)行過計(jì)算是 0!!!

Excel 97: 8

Excel XP:10

FileFormat例子:

SubxlFileVersion()

Dim Typ AsString

Select CaseActiveWorkbook.FileFormat

   Case-4143: Typ = "Excel 2000 et plus"

   Case 16:Typ = "Excel 2.1"

   Case 29:Typ = "Excel 3"

   Case 33:Typ = "Sheet Excel 4"

   Case 35:Typ = "Workbook Excel 4"

   Case 39:Typ = "Excel 5"

   Case 43:Typ = "Excel 97/2000& 5/95"

   CaseElse: Typ = "Unknown"

End Select

MsgBox "File format: "& Typ & " !",64

End Sub

方法二:

SubExcel_Ver()

   Dim X, Y As String

   X = Application.Version

   select case  X

   case 8#

      Y = "97"

   case 9#

      Y = "2000"

   case 11#

      Y = "2003"

   end select

   MsgBox X

   MsgBox Y, , "Excel版本"

  EndSub

Public Sub技巧1_001()

   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 Else

           myVersion = "版本未知"

   End Select

   MsgBox "Excel 版本是: " &myVersion

End Sub

   本程序僅適用于Excel 2003(11.0),如果當(dāng)前版本不是2003則退出

If Application.Version<> "11.0" Then MsgBox "本代碼僅在 Excel2003 下可使用! ", vbOKOnly + vbCritical, "Keanjeason": ExitSub

 

SubxlFileVersion()'獲取版本號(hào)

  Dim Typ AsString

Select CaseActiveWorkbook.FileFormat

   Case -4143: Typ = "Excel 2000 et plus"

   Case 16: Typ = "Excel 2.1"

   Case 29: Typ = "Excel 3"

   Case 33: Typ = "Sheet Excel 4"

   Case 35: Typ = "Workbook Excel 4"

   Case 39: Typ = "Excel 5"

   Case 43: Typ = "Excel 97/2000&5/95"

   Case Else: Typ = "Unknown"

End Select

MsgBox "File format: "& Typ & " !",64

End Sub

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多

    一区二区三区在线不卡免费| 国产又爽又猛又粗又色对黄 | 国产精品香蕉一级免费| 久久精品国产亚洲av久按摩| 乱女午夜精品一区二区三区| 伊人网免费在线观看高清版| 亚洲天堂精品1024| 日本本亚洲三级在线播放| 欧美日韩国产二三四区| 亚洲精品偷拍一区二区三区 | 久久永久免费一区二区| 欧美日韩综合在线第一页| 欧美日韩久久精品一区二区| 国产级别精品一区二区视频| 国内真实露脸偷拍视频| 亚洲熟女乱色一区二区三区| 婷婷九月在线中文字幕| 亚洲视频在线观看免费中文字幕| 亚洲一区二区亚洲日本| 国产福利一区二区久久| 欧美中文字幕一区在线| 不卡在线播放一区二区三区| 日本加勒比在线播放一区| 久久99精品日韩人妻| 年轻女房东2中文字幕| 久久这里只精品免费福利| 亚洲欧美日韩在线看片| 午夜视频成人在线观看| 高清一区二区三区四区五区| 久久精品伊人一区二区| 亚洲中文字幕在线综合视频| 中文字幕日韩欧美一区| 欧美日韩三区在线观看| 日韩精品一级片免费看| 色婷婷丁香激情五月天| 亚洲综合色婷婷七月丁香| 高清一区二区三区不卡免费| 免费观看潮喷到高潮大叫| 五月婷婷六月丁香狠狠| 麻豆视频传媒入口在线看| 精品欧美日韩一区二区三区|