Office: (Office 2019) VBA7, Declare Function FindWindow Lib

Hallo Allerseits,

Frage:
Anpassung eines bereits Geschrieben Codes (Forum).
Würde ich gern verwenden da es gut Passt.

Quelle> VBA Beispiele Seite Datei schließen - Hajo's Excelseiten
Datei> Datei schließen02, (ggf. im Anhang)

Problem:
Eine Funktion im Code ist mit meinem Office nicht kompatibel.
Vorgabe der Datei (Office 2010, 32-bit), mein (Office 2019, 64-bit)

Ziel:
Wie muss dies Umschrieben/Abändern werden, auf 64-bit?
Diesen würde ich gerne weiter Verwenden in meinem Project.

Könnte mir jemand Helfen den Code Anzupassen od. gibt es eine Alternative?

Gruß Leon

 

Moin Leon!

Versuch's mal so:

Code:

#If VBA7 Then
    Declare PtrSafe Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
       
    Declare PtrSafe Function SetActiveWindow Lib "user32.dll" _
        (ByVal hwnd As LongPtr) As LongPtr
       
    Declare PtrSafe Function SetWindowPos Lib "user32" _
        (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
         ByVal x As Long, ByVal y As Long, _
         ByVal cx As Long, ByVal cy As Long, _
         ByVal wFlags As Long) As Long
#Else
    Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
       
    Declare Function SetActiveWindow Lib "user32.dll" _
        (ByVal hwnd As Long) As Long
       
    Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
         ByVal x As Long, ByVal y As Long, _
         ByVal cx As Long, ByVal cy As Long, _
         ByVal wFlags As Long) As Long
#End If

Public Enum Parameter
    HWND_TOPMOST = -1
    SWP_NOSIZE = &H1
    SWP_NOMOVE = &H2
    SWP_NOACTIVATE = &H10
    SWP_SHOWWINDOW = &H40
End Enum

Viel Erfolg! und Grüße

 

hallo d`r Bastler,

Danke für deine Rückmeldung.
Ein teil des Codes nach #Else bis #End If würd Rot Angezeigt. Also Passt was nicht oder?
Farblich Markieren im Code geht im Forum nicht...

Code:

#If VBA7 Then
   Declare PtrSafe Function FindWindow Lib "user32" _
       Alias "FindWindowA" ( _
       ByVal lpClassName As String, _
       ByVal lpWindowName As String) As LongPtr
 
   Declare PtrSafe Function SetActiveWindow Lib "user32.dll" _
       (ByVal hwnd As LongPtr) As LongPtr
 
   Declare PtrSafe Function SetWindowPos Lib "user32" _
       (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
        ByVal x As Long, ByVal y As Long, _
        ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long
#Else
   Declare Function FindWindow Lib "user32" _
       Alias "FindWindowA" ( _
       ByVal lpClassName As String, _
       ByVal lpWindowName As String) As Long
 
   Declare Function SetActiveWindow Lib "user32.dll" _
       (ByVal hwnd As Long) As Long
 
   Declare Function SetWindowPos Lib "user32" _
       (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, _
        ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long
#End If

Public Enum Parameter
   HWND_TOPMOST = -1
   SWP_NOSIZE = &H1
   SWP_NOMOVE = &H2
   SWP_NOACTIVATE = &H10
   SWP_SHOWWINDOW = &H40
End Enum

Gruß Leon

 

Tja, dann wirst Du die roten Zeilen wohl irgendwie benennen müssen. Sonst sehe ich keine Chance für weitere Hilfe.
Die beiden Codes sind übrigens 1:1 gleich. Vielleicht versuchst Du es mit Zeilennrn. oder Auszügen der Stellen, wo's klemmt.

Du hast nach Alternativen gefragt. Dazu müsstest Du mal genauer beschreiben, was Du denn vorhast.

Grüße