由于64位电脑的大量使用,而很多应用软件仍然是32位,导致现在以及将来很长一段时间,软件都会在32位或64位环境下使用。
而由于32位和64位的差异,我们必须分别进行处理,这时就需要判断操作系统及Office的位数。
实际上判断操作系统和Office是多少位,只要找对思路了,实现起来就很简单。
函数源码:
'判断操作系统是32位还是64位
Public Function OsBit() As Long
If Dir(Environ("windir") & "\SysWOW64", vbDirectory) <> "" Then
OsBit = 64
Else
OsBit = 32
End If
End Function
'判断Office是32位还是64位
Public Function OfficeBit() As Long
#If Win64 Then
OfficeBit = 64
#Else
OfficeBit = 32
#End If
End Function
'测试代码
Sub Test()
MsgBox "你当前使用的是 " & OsBit() & " 位操作系统," & OfficeBit() & " 位Office!"
End Sub
附件:
点击下载示例附件