为何要判断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里都可以正常使用。