判断 Office 版本

office97 : 8.0

office2000 : 9.0

officeXP(2002) : 10.0

office2003 : 11.0

office2007: 12.0

office2010 : 14.0

office201315.0

ms.office.interop.excel.dll版本号

(1) 1985年:Excel 1.0   
(2) 1993年:Excel 5.0——Office 4.2   
(3) 1995年:Excel 7.0(Excel 95) 
(4) 1997年:Excel 8.0(Excel 97) 
(5) 1999年:Excel 9.0(Excel 2000) 
(6) 2001年:Excel 10(Excel XP/2002)——Office XP/2002   
(7) 2003年:Excel 2003(Excel XP/2003)——  11.0  
(8) 2007年:Excel 2007(Excel XP/2007) —— 12.0

(9) 2010年:Excel 2010 —— 13.0
(10) 2012年:Excel 2013 ——14.0

    MsgBoxThisWorkbook.CalculationVersion 获取一个数字,该数字指示上次对工作簿进行完全重新计算的 Excel的版本。

   最右边四位是计算引擎的次版本号,其它位(左边)是Microsoft Office Excel的主版本。

   例子 114210

   11 是 Excel 11, i.e. Excel2003

   92512

9 是 Excel 9

0 没有进行过计算是 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),如果当前版本不是2003则退出

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

 

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"

   Case Else: Typ = "Unknown"

End Select

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

End Sub

Office 开发版本号与版本对应关系相关推荐

  1. 对应版本_Office 开发版本号与版本对应关系

    Office从开发至今经历了非常多的版本,如office2000.office2003.office2007.office2010,office 2016到2019等等,那么大家知道吗?其实offic ...

  2. Office 开发版本号

    作者:iamlaosong Office从开发至今经历了非常多的版本,如office2000.office2003.office2007.office2010.office2013.office 20 ...

  3. Office开发程序集版本及部署问题

    Office 开发遇到了OFFICE 2003和OFFICE 2007程序集兼容性的问题,使用OFFICE 11.DLL只能适应OFFICE 2003,Office 12.dll 能够兼容Office ...

  4. tensorflow 各个版本的 CUDA 以及 Cudnn 版本对应关系

    本文由 简悦 SimpRead 转码, 原文地址 blog.csdn.net tensorflow 各个版本的 CUDA 以及 Cudnn 版本对应关系 一.tensorflow 各个版本需要的 CU ...

  5. Selenium 与(Firefox、GeckoDriver)和(Chrome、ChromeDriver)版本对应关系

    找了一圈,竟然一个靠谱的版本对应表都找不到,这里整理一下 下载地址 Selenium ChromeDriver Chrome GeckoDriver Firefox Selenium Firefox ...

  6. node与npm版本对应关系以及使用nvm管理node版本

    一,node与npm版本对应关系 官网链接:https://nodejs.org/zh-cn/download/releases/ 二,nvm下载和安装 nvm-setup最新版.rar 百度网盘 链 ...

  7. 如何确定python对应电脑版本_查看Anaconda版本、Anaconda和python版本对应关系和快速下载...

    官网 查看Anaconda版本 (C:\ProgramData\Anaconda3) C:\Users\Administrator>conda -V conda 4.3.30 Anaconda和 ...

  8. android 获得应版本号,Android获得本应用版本号和版本名称

    在开发Android应用时,有时候需要获取本应用的版本号和版本名称,比如应用升级的时候,一般是对比版本号,就是在Manifest.xml中看到VersionCode和VersionName 我这里是把 ...

  9. Visual Studio各个版本对应关系

    Visual Studio各个版本对应关系 名字 版本号 简称 全称 msvc70 VC7.0 VS2002 Microsoft Visual Studio 2002 msvc71 VC7.1 VS2 ...

最新文章

  1. .NET特性:异步流
  2. 比特币前核心开发者Mike Hearn三年前的预测一一应验
  3. pytorch 矩阵相乘_深入浅出PyTorch(算子篇)
  4. [四校联考P3] 区间颜色众数 (主席树)
  5. 购物网站注册页面html,电商购物网站 - 实现注册
  6. html管道符需要转义么,为什么String.split需要管道分隔符进行转义?
  7. MATLAB中的柱面与球面
  8. python是干什么用的-python是做什么用的 python有什么用 - 驱动管家
  9. 解决跨浏览器兼容的CSS编码准则
  10. Java之数组(下)
  11. linux服务器用的多的命令,linux服务器常用命令
  12. Rational License Key Error的永久解决办法
  13. 【Day1.4】奢华的海滨酒店,打发半天时间不成问题
  14. 三角肌前束(01):直臂前平举
  15. 论文阅读:Securely Outsourcing Neural Network Inferenceto the Cloud with Lightweight Techniques
  16. 全球与中国轨道交通受电弓滑块市场深度研究分析报告
  17. html5页面弹窗,H5页面怎么设置弹窗
  18. win10电脑怎么清理电脑内存
  19. ASO优化|第一期:想吃鸡?靠的就是这份详情页优化攻略
  20. [35期] 神奇的rgb

热门文章

  1. hadoop快速自我学习--hadoop平台管理与维护
  2. cmd_vel速度话题的使用
  3. ACM入门知识-----ACM赛事介绍
  4. FasterR-CNN,R-FCN,SSD,FPN,RetinaNet,YOLOv3速度和准确性比较
  5. 马赛克 拼图 python_使用Python的马赛克艺术。
  6. oracle 归档日志 重做日志,Oracle的重做日志和归档日志
  7. The process has been signaled with signal '5'. 解决办法
  8. 微信小程序---下载、打开及预览PDF文件的方法
  9. iOS技术总结1——3D Touch技术
  10. 准备嵌入式Linux开发环境