---

Hallo zusammen,

ich bin von Autocad 2011 auf Autocad 2019 umgestiegen und bin gerade dabei meine Maktros wieder zum laufen zu kriegen.
Mit der Umstellung von 32Bit auf 64Bit hab ich nun so meine Probleme..

in der Zeile  .lpstrFile = VarPtr(sFile(0)) kommt die Meldung: Fehler beim Kompilieren, Typen unverträglich

anbei der ganze Code:

Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Function GetOpenDialog() As String

  Dim of As OPENFILENAME

  Dim sFile(256) As Byte

  Dim s As String

  With of

    .lStructSize = Len(of)

    .lpstrFile = VarPtr(sFile(0))

    .nMaxFile = 256

  End With

  GetOpenFileName of

 

  For i = 0 To UBound(sFile)

      If sFile(i) <> 0 Then

        s = s + Chr(sFile(i))

      End If

  Next

 

  GetOpenDialog = s
 

End Function

Sub aufruf_dialog()

eingabe_excel_list = GetOpenDialog

End Sub

kann mir jemand weiterhelfen? 

Vielen Dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ich hab das Problem gefunden:

bei der Variablendeklaration muss folgendes stehen:

lpstrFile As LongPtr

Flasch war:

lpstrFile As Long  //funktioniert mit 32Bit

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Von microsoft gibt es eine Datei die das komplette Windows 64 bit API auf VBA 64 "vorstellt"  Einfach mal googlen.

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< not for sale !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

https://github.com/ReneNyffenegger/WinAPI-4-VBA/blob/master/Win32API_PtrSafe.txt

------------------
Wer es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< not for sale !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Probier es mal damit  
WINAPI_used. Das sollte das Meiste abdecken.
------------------
Wer es nicht versucht, hat schon verlorn  
Und bei 3 Typos gibts den vierten gratis !
<<< not for sale !

[Diese Nachricht wurde von rexxitall am 19. Jul. 2022 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP