Office: 64 Bit

Hallo,

es geht um Office 2021

folgender Code ist für 32 bit

Code:

Option Explicit                                     ' Variablendefinition erforderlich
' http://www.rholtz-office.de/index.php?ribbonx=s41

Private Declare Function AccessibleChildren Lib "oleacc.dll" (ByVal paccContainer As Object, ByVal iChildStart As Long, _
    ByVal cChildren As Long, ByRef rgvarChildren As Variant, _
    ByRef pcObtained As Long) As Long

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long

wie lautet der für 64 Bit. Office 2024 ist nur noch 64 Bit.

folgendenden Code habe ich für die Unterscheidung von 32 und 64 Bit gefunden. Kann man das noch einbauen?

Code:

Public Sub Test()
    ' Nepumuk
    #If Win64 Then
        MsgBox "64Bit"
    #Else
        MsgBox "32Bit"
    #End If
End Sub

 

Hallo,

AccessibleChildren ist eine 32 Bit Funktion. Das wird mit PtrSafe wahrscheinlich nichts.
Was möchtest du über die API erreichen? Geht es ums Clippboard?

Gruß Uwe

 

Hallo Uwe,

das ist ein Code von Mumpel, den ich vor zig Jahren übernommen habe. Keine Ahnung wozu?
Ich glaube um ein bestimmtes Register anzuzeigen.

Gruß Hajo

 

Hallo Hajo,
hab mir mal die Hilfe angeschaut --> ungetestet so:

Code:

Option Private Module
Option Explicit
#If Win64 And VBA7 Then
    Private Declare PtrSafe Function AccessibleChildren Lib "oleacc.dll" (ByVal paccContainer As Object, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Variant, ByRef pcObtained As LongPtr) As LongPtr
    Private Declare PtrSafe Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long
#Else
    Private Declare Function AccessibleChildren Lib "oleacc.dll" (ByVal paccContainer As Object, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Variant, ByRef pcObtained As Long) As Long
    Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long
#End If

Da brauchs eben neben PtrSafe noch Long --> LongPtr
Es kann sein, dass VBA7 in der Abfrage schon reicht.
Gruß Uwe

 

Hallo Uwe,

in Office2024 64 Bit
wird das Else in Rot angezeigt. Was wohl kein Fehler ist.
Es wird weiter unten ein Fehler angezeigt.
Kannst Du noch helfen.

Gruß Hajo

 

so:

Code:

Option Private Module
Option Explicit
#If Win64 And VBA7 Then
    Private Declare PtrSafe Function AccessibleChildren Lib "oleacc.dll" (ByVal paccContainer As Object, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Variant, ByRef pcObtained As LongPtr) As LongPtr
    Private Declare PtrSafe Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long
    Private lngReturn As LongPtr
#Else
    Private Declare Function AccessibleChildren Lib "oleacc.dll" (ByVal paccContainer As Object, ByVal iChildStart As Long, ByVal cChildren As Long, ByRef rgvarChildren As Variant, ByRef pcObtained As Long) As Long
    Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long
    Private lngReturn As Long
#End If

Und natürlich die Dimensionierung in der "Function GetAccessible" rausnehmen.
Dann klappt das Anspringen vom Tab.
Ja, der Else Teil ist natürlich rot. Grund ist das fehlende PtrSafe.


Gruß Uwe

 

Hallo Uwe,

Danke für den Tipp. Es läuft jetzt unter 32, 64 Bit.
Ich werden dann wohl auf meinem Hauptrechner auf Office 2024 umsteigen.

Gruß Hajo

 

Gerne.

Gruß Uwe

 

Hallo Uwe,

ich habe jetzt meinen Rechner auif 2024 umgestellt.
Jetzt kommen Probleme mit Add In von Herber, da schreibe ich nicht mehr.
Folgender Code

Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Gruß Hajo

 

Hallo Hajo,
ungetestet so:

Code:

Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As LongPtr, ByVal pszPath As String) As Long

Declare PtrSafe Function SHBrowseForFolder Lib "Shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongPtr

wie Sattelfest bist du mit API Funktionen?
Es gibt, falls sich noch mehr solches API Zeugs querstellt, im Netz API Viewer für die API Funktionen.
Ich schau aber immer mal noch hier rein.
Das ist mal etwas, was doch ein wenig interessanter ist, als was man sonst so in den Foren vorfindet.

Gruß Uwe

 

Hallo Uwe,

ist nich mein Gebiet.

Problem gelöst

Gruß Hajo