Detemine by VBA if Excel is 64 bit or 32 bit

[Paul Sansom]

Hi I have looked through the old posts on this and I a not clear that this is checking for Excel

I want to perform actions based on 32bit or 64bit version of Excel not machine capability
I have 2 users both using 32bit Excel but 1 has 32bit operating system and the other 64bit.

    [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=If]#If[/URL]  Win64 Then
        Sheet11.Range("Win_64_32") = 64        
    [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else[/URL] 
        Sheet11.Range("Win_64_32") = 32    
    [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=End]#End[/URL]  If

Does this example code check Excel or Windows?
Cheers Paul

 

[Paul Sansom]

I think I may have found my own answer...….
"The VBA7 compiler variable indicates whether we are in Excel 2007 or later, the first versions to support 64-bit versions.
The WIN64 compiler version indicates whether we are in a 64-bit version of Excel.
Contrary to what its name implies, WIN64 does not mean specifically that you are running Windows 64-bit.
It indicates whether you are in a 64-bit application. For example, if you are running 32-bit Excel on Windows 64-bit, the VBA7 constant will be True and the WIN64 constant will be False."
This is courtesy of cpearson.com

 

[Jaafar Tribak]

@Paul Sansom

You can also take advantage of the LongPtr Type to find out at runtime whether excel is 32 or 64 bits.

Function ExcelBitness() As Byte
    Dim lngPtr As LongPtr
    ExcelBitness = IIf(LenB(lngPtr) = 4, 32, 64)
End Function

Test:

Sub Test()
    MsgBox ExcelBitness
End Sub

Late Note:
This only works for excel 2010 or later.

 

[Jaafar Tribak]

Another way that works at runtime and also works for excel 2000 or later :

Function ExcelBitness() As Byte
    ExcelBitness = IIf(TypeName(AddressOf Dummy) = "Long", 32, 64)
End Function

Function Dummy()
End Function

Test:

Sub Test()
    MsgBox ExcelBitness
End Sub

 

[Jaafar Tribak]

Yet another way that works at runtime and I think this function should now work in all versions of excel/vba :

Function ExcelBitness() As Byte
    Dim vHinstance As Variant
    
    On Error Resume Next
    vHinstance = Application.Hinstance
    ExcelBitness = IIf(Err = 0, 32, 64)
End Function

 

[Paul Sansom]

Many thanks for all 3 versions. As all users are 2010 or above, solution 1 applies for me , but solutions 2&3 may be useful to others.
Paul