设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

1234下一页
返回列表 发新帖
查看: 13461|回复: 37

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

[复制链接]

点击这里给我发消息

发表于 2014-4-17 11:28:24 | 显示全部楼层 |阅读模式
[源码技巧]判断是否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.     l = -1
  4.     On Error Resume Next
  5.     l = ExcelApp.hInstance
  6.     On Error GoTo 0

  7.     If l = -1 Then
  8.           m_IsExcelx64 = True
  9.     Else
  10.           m_IsExcelx64 = False
  11.     End If
  12. End Function
复制代码



四.检查是否64位Office方法四
  1. Private Function IsOfficex64() As Boolean
  2.         Dim result As Boolean = False

  3.         Dim productKey As String = _application.ProductCode

  4.         If String.Equals("1", productKey.Substring(20, 1), StringComparison.InvariantCulture) Then
  5.           result = True
  6.         End If

  7.         Return result
  8. End Function
复制代码


还有一种更快 更好的方法, 想不想知道, 回复贴子可见
游客,如果您要查看本帖隐藏内容请回复






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

本帖被以下淘专辑推荐:

发表于 2014-4-17 11:41:32 | 显示全部楼层
kankan
回复

使用道具 举报

发表于 2014-4-17 14:18:23 | 显示全部楼层
隐藏了的应该是好的
发表于 2014-4-17 14:23:05 | 显示全部楼层
感谢楼主分享
发表于 2014-4-17 14:23:20 | 显示全部楼层
检查完后怎么处理呢?

点击这里给我发消息

发表于 2014-6-24 07:08:19 来自手机 | 显示全部楼层
学习了!
回复

使用道具 举报

点击这里给我发消息

发表于 2014-6-24 07:11:10 来自手机 | 显示全部楼层
第2种方法,条件编译可以写32位和64位兼容的vBA,不错的!!!
发表于 2015-3-10 11:04:38 | 显示全部楼层
看来64位系统还是带来了不少问题啊.
发表于 2015-5-13 19:13:04 | 显示全部楼层
我要最后一种方法
发表于 2015-7-15 09:15:27 | 显示全部楼层
学习!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 15:40 , Processed in 0.105686 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表