Office: API für 32 und 64 Bit-Systeme

M Merlin · 19. Dezember 2012

Hallo zusammen,
ich nutzte Excel 2010. Dort benutzte ich in einem Modul verschiedene API's:

Code:

Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Any) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wird die Exceldatei auf einem 32-Bit OS geöffnet funktioniert das einwandfrei. Wenn die gleiche Datei auf einem 64-Bit OS geöffnet wird bekomme ich folgende Fehler ( siehe Anhang ).

Was kann ich tun, damit die Exceldatei auf 32-Bit sowie auf 64-Bit Systemen fehlerfrei geöffnet werden kann???

Danke für eure Hilfe

:)

R J · 21. Dezember 2012

hi merlin,

sieh mal hier: http://www.ms-office-forum.net/forum...d.php?t=271144

microsoft selbst bietet zwar für einige dll's einen hotfix an: http://support.microsoft.com/kb/948570/de

allerdings wird der in deinem fall nicht weiterhelfen.
da bleibt wohl in deinem fall nur die im 1. link beschriebene lösung oder du lagerst deine gewünschte funktionalität in einer eigenen dll aus (VB oder C# z. bsp.) aber selbst da bliebe das problem, dass du ein oder 2 sachen löst, aber auf der anderen seite neue probleme schaffst. wäre zu überlegen, ob aufwand und nutzen in einem vernünftigem verhältnis stehen?

mumpel · 21. Dezember 2012

Hallo!

Hatten wir schon oft. Stichwort "PtrSafe" und "LongLong".

Ungetestet:

#If VBA7 Then
Declare PtrSafe Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As LongLong
Declare PtrSafe Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Any) As LongLong
Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongLong

#Else
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Any) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
#End IfLukas MosimannProjektbetreuung durch mumpelCode erstellt und getestet in Office 15
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, René

ebs17 · 21. Dezember 2012

Wie das, René zeigt, allerdings dient die Konstante VB7 der Unterscheidung zwischen einem Office 2010 und einem niederen System.
Zur Unterscheidung zwischen einem 32Bit-Office und einem 64Bit-Office würde man die Konstante W64 heranziehen. Siehe auch Kompatibilität zwischen der 32-Bit-Version und der 64-Bit-Version von Office 2010.

mumpel · 21. Dezember 2012

Das Problem hat IMHO aber nichts mit dem Betriebssystem zu tun, sondern mit der Office-Version. ich arbeite auch unter Windows 7 64-bit, allerdings mit einem 32-bit-Office. Und da läuft der Code auch ohne "PtrSafe". "Anstelle von "VBA7" könnte man es auch mit "Win64" versuchen. Ein 64-bit-Office benötigt eben 64-bit-Variable. Office 32-bit begnügt sich mit 32-bit-Variablen, da es auch unter Win64 im 32-bit-Modus läuft.

M Merlin · 23. Dezember 2012

OK. Erst einmal vielen Dank für eure Antworten...
Mir ist jetzt noch nicht ganz klar, wie die Deklaration aussehen müsste, wenn ich meine Exceldatei auf einem XP32-Bit ( Office 2010 32-Bit ) und parallel auf einem W7 64-Bit ( Office 2010 64-Bit ) nutzen möchte.

...Oder muss ich für beide Systeme ein eigenes Excelsheet mit der dazugehörigen API-Declaration erstellen?

mumpel · 23. Dezember 2012

Hast Du Dir meinen Beispielcode nicht angesehen? Das kannst Du so übernehmen. Das nennt sich "bedingte Kompilierung". Eventuell musst Du "VBA7" durch "Win64" ersetzen.

M Merlin · 23. Dezember 2012

OK. Danke
Ich habe jetzt folgenden Code getestet. Er funktioniert aus 32 und 64-Bit, sowie auf Office 2010 und Office 2003:
Code:

#If Win64 Or VBA7 Then
Declare PtrSafe Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As LongPtr, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As LongPtr) As Long
Declare PtrSafe Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As LongPtr) As Long
#Else
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Any) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: API für 32 und 64 Bit-Systeme

API für 32 und 64 Bit-Systeme

API für 32 und 64 Bit-Systeme

API für 32 und 64 Bit-Systeme

API für 32 und 64 Bit-Systeme

API für 32 und 64 Bit-Systeme - Similar Threads - API Bit Systeme

Seit O365 Problem mit Callback-Funktion

Aktuelle Daten aus dem Internet per API/VBA in Excel ziehen

API Excel Zugriff (via Daten abrufen)

Daten von Website (mit API?) in Excel einfügen und aktualisieren

REST API ansprechen + JSON

MS Project - API Aufrufe

Graph Api Berechtigungs Probleme beim Abrufen der Emailadressen aller Nutzer