VBAHTML auf 64bit-Office

[mumpel]

Hallo!

Hat hier jemand ein 64bit-Office? Wenn ja dann bitte mal das Add-In testen. Sollte es Fehlermeldungen geben dann bitte PN oder Email (die Adresse gibt es im Impressum meiner Homepage) mit exakter Fehlermeldung. Danke!

Gruß, René

[schauan]

Hi René,

ich schaue es mir mal an

[schauan]

... habe Dir eine E-Mail geschickt ...

[mumpel]

Neuer Versuch: https://www.rholtz-office.de/counters/ge...php?id=304

[schauan]

Hi René,

in mdlEinrücken sind noch zwei nicht auf 64 umgestellt.
Dann müssen auch einige Variable differenziert werden. Wenn Du nach Korrektur der beiden Kompilierst, kommt als nächstes Typen unverträglich bei
m_hWndForm = FindWindow(...

m_hWndForm ist Long deklariert, aber in 64 wird wegen FindWindow LongPtr benötigt. Entsprechend brauchst Du da auch

#If Win64 And VBA7 Then
Private m_hWndForm      As LongPtr
#Else
Private m_hWndForm      As Long
#End If

Da kommen dann noch ein paar

---

.. hier fehlt beim letzten Parameter byval (lt. Fehlermeldung)

RegOpenKeyEx

und die gibt's auch doppelt und für 32 steht beim letzten Parameter byref.

[mumpel]

Da kommen dann noch ein paar

Das ist das Problem wenn man nicht weiss wo man danach suchen muss. 

.. hier fehlt beim letzten Parameter byval (lt. Fehlermeldung) (...) RegOpenKeyEx

Wo und wie meinst Du das?

und die gibt's auch doppelt

Das ist wohl Absicht gewesen, weshalb Lukas das so gemacht hat weiss ich nicht.

und für 32 steht beim letzten Parameter byref

Wo meinst Du?

Da ich selber nur 32-bit-Office (unter Windows 10 64-bit) habe kommen bei mir keine Fehlermeldungen, auch nicht beim Kompilieren. Läuft bei mir anstandslos durch. Die API-Deklarationen habe ich aus einem "API Viewer" übernommen (http://www.office-loesung.de/p/viewtopic.php?f=169&t=856588#p3334662).

[schauan]

für Public Function BrowseCallback und Public Function FuncCallback müsstest Du wohl 64er Varianten einfügen wo die Typen der Übergabeparameter oder Rückgabewerte der Version entsprechen. Die Aufrufe müssten dann auch Versionsspezifisch sein, z.B.

#If Win64 And VBA7 Then
.lpfnCallback = FuncCallback64(AddressOf BrowseCallback64)
#Else
.lpfnCallback = FuncCallback(AddressOf BrowseCallback)
#End If

allerdings hänge ich an der Stelle erst mal fest. (mdlMakePath) Hab Dir den Stand mal per E-Mail geschickt.

[mumpel]

Danke fürs mitmachen, und fürs Testen!

---

Funktioniert bei Dir die Function "RegKeyExist" ohne Umstellung?

[volti]

Hallo Rene,

woher bekommt man jetzt die neueste 64er-Version ggf. ohne Kennwort.

Mit Deiner letzten Version hier erhalte ich Fehler im ausgeblendeten Modul.

viele Grüße
Karl-Heinz

[mumpel]

woher bekommt man jetzt die neueste 64er-Version

Siehe Link im Beitrag vom 23.01.2021, 16:05. Beachte bitte, dass das noch nicht final ist. Kennwort habe ich Dir per PN zugeschickt, bitte halte es geheim (das bekommt nicht jeder).