|
Hallo,
ich hätte eine große bitte. Ich muss eine API-Deklaration über VBA machen. Da entsteht aber das Problem zwischen 32- und 64-bit Version des Excels.
API-Deklaration sieht jetzt so aus:
' API-Deklaration
#If VBA7 And Win64 Then
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" ( _
Destination As Any, _
Source As Any, _
ByVal Length As Long)
#Else
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" ( _
Destination As Any, _
Source As Any, _
ByVal Length As Long)
#End If
Und diese Deklaration ist nur in 1 Methode aufgerufen, wo ich auf das Problem mit "Typen unverträglich" draufgestoßen bin:
Public Function GetArrayDim(ByRef vArray As Variant) As Integer
' Handelt es sich überhaupt um ein Array?
Dim DimCount As Integer
DimCount = -1
If IsArray(vArray) Then
Dim vPtr As Long
DimCount = 0
vPtr = VarPtr(vArray) + 8
CopyMemory vPtr, ByVal vPtr, 4
CopyMemory vPtr, ByVal vPtr, 4
If vPtr Then
CopyMemory DimCount, ByVal vPtr, 2
End If
End If
GetArrayDim = DimCount
End Function
Bitte um Hilfe. DANKE
|