VBA获取Excel版本信息，Application.Version属性

来源：华佗健康网

Option Explicit

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 = \"2007\" Case \"14.0\"

MyVersion = \"2010\" Case \"16.0\"

MyVersion = \"2016\" Case Else

MyVersion = \"未知版本\" End Select

MsgBox \"Excel 的版本是： \" & MyVersionEnd Sub

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文

违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务