时间:2020-07-21 16:41作者:admin来源:未知人气:1329我要评论(0)
判断 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 获取一个数字,该数字指示上次对工作簿进行完全重新计算的 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
相关阅读 Word文档怎么标记为最终状态石墨文档如何导入表格?office默认打开方式怎么改?如何在Word中将文档字体设置成微软雅黑Word中论文查重的具体操作方法Word中语音朗读文章的具体操作方法如何用Word进行简繁转换微软 Office 将上线 14 个 Excel 函数,用于协助操作文本和数组office激活和不激活有什么区别Office软件无法打开共享盘上的文件怎么办?关闭受保护的视图试试
热门文章 office2019+visio2019+project2019最新激活密钥和激活方法给大家推荐5款免费又好用的Office办公软件微软Office官方下载地址,附安装激活方法,正版办公软件microsoft office2021专业增强版密钥永久激活最新,万能office2021
最新文章
Word文档怎么标记为最终状态石墨文档如何导入表格?
office默认打开方式怎么改?如何在Word中将文档字体设置成微软雅黑Word中论文查重的具体操作方法Word中语音朗读文章的具体操作方法
人气排行 office2019+visio2019+project2019最新激活密钥和激活方法给大家推荐5款免费又好用的Office办公软件微软Office官方下载地址,附安装激活方法,正版办公软件microsoft office2021专业增强版密钥永久激活最新,万能office2021“你的许可证不是正版,并且你可能是盗版软件的受害者...”的解决office2013产品密钥25位最新–microsoft office professional ploffice 2010每次打开出现配置进度的解决办法全新office2019激活密钥分享给大家
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>