A01001 - 获取Excel系统信息 - P1

admin

难易程度│★☆☆☆☆

<<  返回导读  │  下一课  >>

截图展示│Screenshot

-

学习内容│Learning

-

附件下载│Download

-

代码展示│Code

---

1. Public Sub 技巧1_001()
   
2.     Dim myVersion As String
   5 E' F" d. M$ W8 h  @7 O
3.     Select Case Application.Version
   ! ~  g8 Z" v2 G3 Z( Y
4.         Case "8.0"
     i9 c4 k. C4 z3 X: T
5.             myVersion = "97"
   
6.         Case "9.0"
   0 d4 M" d3 S: o: G& i
7.             myVersion = "2000"
   
8.         Case "10.0"
   
9.             myVersion = "2002"
   & `! @3 N5 L6 h- A' U) I! |
10.         Case "11.0"
    3 `& A) B2 S( Y, N
11.             myVersion = "2003"
    ! p7 b4 k& B1 m
12.         Case "12.0"
    0 I0 ^% t# s! y( }
13.             myVersion = "2007"
    
14.          Case Else
    
15.             myVersion = "版本未知"
    4 n) H' y& `3 X% D* K. x% E
16.     End Select
    ) `2 u% g8 W4 b$ [6 ~( J
17.     MsgBox "Excel 版本是: " & myVersion
    % s* a& f, n7 j5 t; I8 s0 p
18. End Sub

复制代码