office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓(xùn)群：792054000         Excel免費(fèi)交流群群：686050929          Outlook交流群：221378704    

Word交流群：218156588             PPT交流群：324131555

微信交流群（請用微信掃碼)

        

Access 或Excel VBA判斷當(dāng)前Office版本是32位Office還是64位Office的四種方法

2014-04-17 11:28:24
admin-Office交流網(wǎng)
原創(chuàng)
16625
Access 或Excel VBA判斷當(dāng)前Office版本是32位Office還是64位Office的四種方法
整理:Office交流網(wǎng) admin


以下 方法同時(shí)適應(yīng)于Access 以及 Exccel VBA

現(xiàn)在使用4G及以上內(nèi)存的電腦越來越多,64位windows及64位Office也成為大家首選. Access excel office也將迎來64位的轉(zhuǎn)換
如果使你的程序同時(shí)適應(yīng)32位和64位呢,需要在程序中進(jìn)行判斷

Office交流網(wǎng)整理了多種方法讓你來判斷是否32位Office 還是64位Office


如果需要判斷 windows 版本是 32位或64位，可參考以下這篇文章：

http://m.mzhfr.cn/access-function/144.html


一. 檢查是否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

  4.     l = -1
  5.     On Error Resume Next
  6.     l = ExcelApp.hInstance
  7.     On Error GoTo 0

  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

  4.         Dim productKey As String = _application.ProductCode

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

  10.         Return result
  11. End Function

還有一種更快 更好的方法, 想不想知道:)
直接打開Office access excel ,在幫助關(guān)于里看看是否64位:)  哈哈,看到這個(gè)內(nèi)容的人估計(jì)都上當(dāng)了



分享
文章分類
聯(lián)系我們
聯(lián)系人： 王先生
Email： 18449932@qq.com
QQ： 18449932
微博： officecn01
移動(dòng)訪問