[源码技巧]判断是否64位Access 64位Excel 64位Office的四种方法(区分32位)

admin

[源码技巧]判断是否64位Access 64位Excel 64位Office的四种方法
整理:Office中国 admin

现在使用4G及以上内存的电脑越来越多,64位windows及64位Office也成为大家首选. Access excel office也将迎来64位的转换
如果使你的程序同时适应32位和64位呢,需要在程序中进行判断
Office中国整理了多种方法让你来判断是否32位Office 还是64位Office

一. 检查是否64位Access方法一

1. Function gf_ChkIs64bit() As Boolean
   
2.     gf_ChkIs64bit= Len(Environ("ProgramW6432")) > 0
   
3. End Function

复制代码

二.检查是否64位Access/64位Office方法二

1. Sub gf_Chk64BitOffice()
   
2. Dim bIs64Bit As Boolean
   
3. #If win64 Then
   
4.     bIs64Bit = True
   
5. #End If
   
6. MsgBox "这是64位Office/Access: " & bIs64Bit
   
7. End Sub

复制代码

三. 检查是否64位Excel方法三

1. Private Function m_IsExcelx64(ExcelApp As Object) As Boolean
   
2.     Dim l As Long
   
3. 
   
4.     l = -1
   
5.     On Error Resume Next
   
6.     l = ExcelApp.hInstance
   
7.     On Error GoTo 0
   
8. 
   
9.     If l = -1 Then
   
10.           m_IsExcelx64 = True
    
11.     Else
    
12.           m_IsExcelx64 = False
    
13.     End If
    
14. End Function

复制代码

四.检查是否64位Office方法四

1. Private Function IsOfficex64() As Boolean
   
2.         Dim result As Boolean = False
   
3. 
   
4.         Dim productKey As String = _application.ProductCode
   
5. 
   
6.         If String.Equals("1", productKey.Substring(20, 1), StringComparison.InvariantCulture) Then
   
7.           result = True
   
8.         End If
   
9. 
   
10.         Return result
    
11. End Function

复制代码

还有一种更快 更好的方法, 想不想知道, 回复贴子可见

游客，如果您要查看本帖隐藏内容请回复

(算法函数_API_系统-相关文章技巧链接)：
Access 或Excel VBA判断当前Office版本是32位Office还是64位Office的四种方法

leonshi

kankan

koutx

隐藏了的应该是好的

remlie

感谢楼主分享

koutx

检查完后怎么处理呢?

zpy2

学习了！

zpy2

第2种方法，条件编译可以写32位和64位兼容的vBA，不错的！！！

星辉

看来64位系统还是带来了不少问题啊.

wgboy

我要最后一种方法

loving_yyw

学习！