库管易

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫描二维码登录本站

使用VBA判断当前Excel版本

热度 1已有 4520 次阅读2015-10-27 12:54 | Excel

  为何要判断Excel版本
  当前Excel流行的版本比较多,为了使我们编写的代码有更好的兼容性,我们需要提前判断一下当前用户正在使用的Excel版本。

  当前流行的Excel版本
  目前比较流行的Excel版本如下:
  Excel2003
  Excel2007
  Excel2010
  Excel2013

  判断Excel版本代码
Function GetExcelVersion() As String
    Select Case Int(Application.Version)
        Case 8
            GetExcelVersion = "Excel 97"
        Case 9
            GetExcelVersion = "Excel 2000"
        Case 10
            GetExcelVersion = "Excel 2002"
        Case 11
            GetExcelVersion = "Excel 2003"
        Case 12
            GetExcelVersion = "Excel 2007"
        Case 14
            GetExcelVersion = "Excel 2010"
        Case 15
        GetExcelVersion = "Excel 2013"
        Case Else
        GetExcelVersion = "Excel 未知版本"
        End Select
End Function
Sub Test()'调用示例
   MsgBox GetExcelVersion
End Sub

  通过以上代码的判断,我们就知道了用户当前使用的Excel版本,然后就可以针对不同版本的Excel做不同的处理,从而达到一套表格在全部版本的Excel里都可以正常使用。

路过

鸡蛋
1

鲜花

握手

雷人

刚表态过的朋友 (1 人)

手机版|仓库管理网

GMT+8, 2024-4-19 15:09

Powered by 库管易

KuGuanYi.Com

返回顶部