Thema Datum  Von Nutzer Rating
Antwort
Rot API-Declaration
17.06.2021 11:08:00 Lili
NotSolved
17.06.2021 11:54:54 Mase
NotSolved
17.06.2021 16:13:56 Gast99990
NotSolved

Ansicht des Beitrags:
Von:
Lili
Datum:
17.06.2021 11:08:00
Views:
108
Rating: Antwort:
  Ja
Thema:
API-Declaration

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot API-Declaration
17.06.2021 11:08:00 Lili
NotSolved
17.06.2021 11:54:54 Mase
NotSolved
17.06.2021 16:13:56 Gast99990
NotSolved