- İlk açılan formda veya içerdiği kodlarda sorun olabilir. Uygulamayı shift tuşuna basılı tutarak açın, alt +f11'e basarak Vba sayfasını açın, Debug sekmesinden "Compile ............" seçeneğini tıklayın. Çıkan hataları düzelterek deneyin.
- Ofisin 64 bit olduğunu belirtmişsiniz.
Örnek olarak, Modül1 isimli modülde
Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
şeklinde kodlar mevcut. Bu şekildeki declare edilen fonksiyonların 64 bite uyarlanması gerekiyor.
#If VBA7 Then
Declare ptrsafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare ptrsafe Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare ptrsafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
#Else
Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
#End If
32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması