Exel 2003 programma compileren naar Exel 2013 versie

[abjag]

Ik heb een programma die op mijn (zeer) oude laptop wel draaide, maar op mijn nieuwe niet. Wie kan mij helpen. Mij ontbreekt de kennis van Visio Basic en Functies

Ik krijg dit foutbericht:
Compileerfout, code moet worden bijgewerkt voor gebruik op 64 bits systemen. Controleer instructies, werk ze bij en markeer ze met kenmerk PtrSafe
Dit bericht krijg ik in onderdeel van programma; Function

Private Declare Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA) As Long
Private Declare Function FindFirstFileEx Lib "kernel32" Alias _
"FindFirstFileExA" (ByVal lpFileName As String, ByVal _
fInfoLevelId As Long, lpFindFileData As WIN32_FIND_DATA, _
ByVal fSearchOp As Long, ByVal lpSearchFilter As Long, ByVal _
dwAdditionalFlags As Long) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias _
"FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As _
WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal _
hFindFile As Long) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal _
psString As Any) As Long

Wie heeft hier inzicht in en kan mij helpen?

 

[edmoor]

Het gaat niet zozeer om 64-bit systemen maar om 64-bit Office. Het eenvoudigste dat je kan doen is de 64-bit Office verwijderen en er de 32-bit variant voor in de plaats installeren. Anders zal je, om volledig compatible te zijn, de code zo moeten aanpassen dat deze in zowel 32- als 64-bit Office goed werkt door gebruik te maken van een Compiler Directive.

Een voorbeeld voor bovenstaande:

#If Win64 Then
[COLOR="#008000"]'Voor Office 64-Bit[/COLOR]

Private Declare PtrSafe Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA) As Long

#Else
[COLOR="#008000"]'Voor Office 32-Bit[/COLOR]

Private Declare Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA) As Long

#End If

Sommige functies en parameters hebben in plaats van Long het type LongLong of LongPtr nodig.
Waar dat eventueel in de door jou getoonde gegevens zou gelden kan ik zo uit het hoofd niet aangeven.

 

[abjag]

ik heb 32 bit versie geïnstalleerd. Maar programma geeft bij elke verandering weer nieuw fouten aan. Ik zou je alles kunnen sturen? In ultime poging?

 

[edmoor]

Als je aangeeft wat er fout gaat wil ik best even naar dat document kijken.

 

[abjag]

Hoi, ben lid geworden, betaald, maar kan je nog geen privé bericht sturen. Wacht op groen licht van Helpmij.nl

 

[edmoor]

Daar zal Helpmij blij mee zijn
Maar je kan me ook gewoon mailen

 

[Mik Zjegger]

Hoi,
Waarom dit topic in de sectie Spellen/Algemeen stond ontgaat mij ten enenmale.
Enfin, ik heb het voor je naar de juiste sectie verplaatst.
Succes verder met je vraag. :thumb:

Hoi, ben lid geworden, betaald, maar kan je nog geen privé bericht sturen. Wacht op groen licht van Helpmij.nl

Geregistreerd en Verenigingslid zijn bij Helpmij.nl zijn 2 verschillende begrippen.
Als je betaald "verenigingslid" zou zijn stond dat expliciet aangegeven onder je naam (als je geen avatar hebt) en anders erboven.