VBA返回操作系统名称和版本以及Excel版本号

bb75308973

1. Sub 返回所使用的操作系统的名称和版本()
   
2. [A1] = Application.OperatingSystem
   
3. End Sub

复制代码

1. Sub 用VB获得电脑中excel的版本号()
   
2.     On Error GoTo tg1
   
3.     Set ecl = GetObject(, "Excel.Application")
   
4.     GoTo tg2
   
5. tg1:
   
6.     Set ecl = CreateObject("Excel.Application")
   
7. tg2:
   
8.     ExcelVersion = ecl.Version
   
9.     Set ecl = Nothing
   
10.     MsgBox ExcelVersion
    
11. End Sub

复制代码

说明：11.0为2003   12.0为2007

玲玲1987

我来学习一下