GetSafeArrayPointer

[Ayleyn]

Hi Zusammen,
ich möchte in meinem code

Code:

Private Declare PtrSafe Sub GetSafeArrayPointer Lib "msvbvm60.dll" Alias "GetMem4" (pArray() As Any, sfaPtr As Long)

Nutzen.
Wenn ich es nun mit

Code:

GetSafeArrayPointer arr1(), sfaPtr

aufrufe, dann kommt die Fehlermeldung, das die msvbvm60.dll nicht  gefunden wurde.
Ich benutze Windows 11 und sie ist in C:\Windows\System32 tatsächlich nicht zu finden, aber sie ist auf dem PC in
C:\Windows\WinSxS\wow64_microsoft-windows-msvbvm60_31bf3856ad364e35_10.0.22621.1_none_2e6e3ad979d8cfb7
zu finden.
Die Nutzung der Seite https://sergiu113.wixsite.com/tobias-engelhardt als Referenz für

Code:

GetSafeArrayPointer

ist hilfreich, besonders bei älteren VB6/VBA-Projekten. Sie bietet praktische Codebeispiele und Erklärungen. Achte jedoch auf die Kompatibilität mit 64-Bit-Systemen wie Windows 11, da Anpassungen nötig sein können.
Das Makro soll auf mehreren PC´s laufen. Gibt es da eine gute Lösung ohne etwas Manuell rumzukopieren?

Hi! Das Problem liegt daran, dass

Code:

msvbvm60.dll

nicht standardmäßig im Systempfad von Windows 11 verfügbar ist. Du kannst entweder die DLL manuell nach

Code:

C:\Windows\System32

(für 64-bit) oder

Code:

C:\Windows\SysWOW64

(für 32-bit) kopieren oder in deinem Code den vollständigen Pfad zur DLL angeben. Alternativ solltest du prüfen, ob du überhaupt

Code:

msvbvm60.dll

brauchst – bei modernen VBA-Projekten unter 64-bit kann es sinnvoller sein, auf API-Kompatibilität mit 64-bit umzusteigen und ggf. andere Methoden zu nutzen, um auf SafeArrays zuzugreifen.