Excel VBA Code Compile Error in x64 Version PtrSafe attribute required

Question

I am using Win8 x64   Office 2013 x64    MY PROBLEM   I have an excel file  which has some modules in it  and works flawlessly in Office  Excel  x86   It uses the Swiss Ephemeris file  swedll32 dll  to do a lot of astronomical calculations    However  when I try to run it on my end  which is on Excel x64  ASAP it s opened  the VBA editor fires up and gives me the following error   Compile error  The code in this project must be updated for use on 64-bit systems  Please review and update Declare statements and then mark them with the PtrSafe attribute    As I said above  it works only in 32bit office  Excel  but it won t work in my x64 Excel However there seems to be a workaround but I am too much of a novice to get it   I am no good in VBA  however  after digging over the Internet  a few websites proposed that for 64bit office  Excel   we should amend  for each declaration  the codes to something like that    Original Statement  Private Declare Function Amended Statement   Private Declare PtrSafe Function   Unfortunately  after adding  PtrSafe  everywhere  though the VBA errors stopped  but the values are not being displayed calculated properly in the cells   From a post on 64 Bit in VBA from Microsoft  it would seem that we also need to modify some of the data types such as    Long   to   LongPtr LongPtr   to   LongLong and some  Long  are supposed to remain the same  depending on what they do    This website  under  Which Longs should become LongPtr    gives a clue though  as to how to know which one to modify   I do not understand a thing about it and have no idea what should be done really to make this work in Office  Excel  x64   Someone who is pretty good at this  kindly please help me  Please   note     Only the declarations that appeared in red  denoting that they contain errors have been dumped here  The remaining portion of the codes were not pasted here because they appear fine  green colored   For the Excel file to work properly on your computer  ensure that both the  swedll32 dll   amp  the  JCalc Ver 0 2d xls  are in the same folder  after having extracting them    Problem in Module Name  MainCalculations   Swiss Ephemeris Release 1 60  9-jan-2000     Declarations for Visual Basic 5 0   The DLL file must exist in the same directory  or in a system   directory where it can be found at runtime        Private Declare Function swe azalt Lib  swedll32 dll        Alias   swe azalt 40            ByVal tjd ut As Double          ByVal calc flag As Long          ByRef geopos As Double          ByVal atpress As Double          ByVal attemp As Double          ByRef xin As Double          ByRef xaz As Double         As Long   geopos must be the first of three array elements                 xin must be the first of two array elements                 xaz must be the first of three array elements      Private Declare Function swe azalt rev Lib  swedll32 dll        Alias   swe azalt rev 24            ByVal tjd ut As Double          ByVal calc flag As Long          ByRef geopos As Double          ByRef xin As Double          ByRef xout As Double         As Long   geopos must be the first of three array elements                 xin must be the first of two array elements                 xout must be the first of three array elements  Private Declare Function swe calc Lib  swedll32 dll        Alias   swe calc 24            ByVal tjd As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long     x must be first of six array elements                   serr must be able to hold 256 bytes  Private Declare Function swe calc d Lib  swedll32 dll        Alias   swe calc d 20            ByRef tjd As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long         x must be first of six array elements                       serr must be able to hold 256 bytes  Private Declare Function swe calc ut Lib  swedll32 dll        Alias   swe calc ut 24            ByVal tjd ut As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long     x must be first of six array elements                   serr must be able to hold 256 bytes  Private Declare Function swe calc ut d Lib  swedll32 dll        Alias   swe calc ut d 20            ByRef tjd ut As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long         x must be first of six array elements                       serr must be able to hold 256 bytes  Private Declare Function swe close Lib  swedll32 dll        Alias   swe close 0            As Long  Private Declare Function swe close d Lib  swedll32 dll        Alias   swe close d 4            ByVal ivoid As Long         As Long         argument ivoid is ignored  Private Declare Sub swe cotrans Lib  swedll32 dll        Alias   swe cotrans 16            ByRef xpo As Double          ByRef xpn As Double          ByVal eps As Double          Private Declare Function swe cotrans d Lib  swedll32 dll        Alias   swe cotrans d 12            ByRef xpo As Double          ByRef xpn As Double          ByRef eps As Double         As Long  Private Declare Sub swe cotrans sp Lib  swedll32 dll        Alias   swe cotrans sp 16            ByRef xpo As Double          ByRef xpn As Double          ByVal eps As Double          Private Declare Function swe cotrans sp d Lib  swedll32 dll        Alias   swe cotrans sp d 12            ByRef xpo As Double          ByRef xpn As Double          ByRef eps As Double         As Long  Private Declare Sub swe cs2degstr Lib  swedll32 dll        Alias   swe cs2degstr 8            ByVal t As Long          ByVal S As String          Private Declare Function swe cs2degstr d Lib  swedll32 dll        Alias   swe cs2degstr d 8            ByVal t As Long          ByVal S As String         As Long  Private Declare Sub swe cs2lonlatstr Lib  swedll32 dll        Alias   swe cs2lonlatstr 16            ByVal t As Long          ByVal pchar As Byte          ByVal mchar As Byte          ByVal S As String          Private Declare Function swe cs2lonlatstr d Lib  swedll32 dll        Alias   swe cs2lonlatstr d 16            ByVal t As Long          ByRef pchar As Byte          ByRef mchar As Byte          ByVal S As String         As Long  Private Declare Sub swe cs2timestr Lib  swedll32 dll        Alias   swe cs2timestr 16            ByVal t As Long          ByVal sep As Long          ByVal supzero As Long          ByVal S As String          Private Declare Function swe cs2timestr d Lib  swedll32 dll        Alias   swe cs2timestr d 16            ByVal t As Long          ByVal sep As Long          ByVal supzero As Long          ByVal S As String         As Long  Private Declare Function swe csnorm Lib  swedll32 dll        Alias   swe csnorm 4            ByVal P As Long         As Long  Private Declare Function swe csnorm d Lib  swedll32 dll        Alias   swe csnorm d 4            ByVal P As Long         As Long  Private Declare Function swe csroundsec Lib  swedll32 dll        Alias   swe csroundsec 4            ByVal P As Long         As Long  Private Declare Function swe csroundsec d Lib  swedll32 dll        Alias   swe csroundsec d 4            ByVal P As Long         As Long  Private Declare Function swe d2l Lib  swedll32 dll        Alias   swe d2l 8            As Long  Private Declare Function swe d2l d Lib  swedll32 dll        Alias   swe d2l d 4            As Long  Private Declare Function swe date conversion Lib  swedll32 dll        Alias   swe date conversion 28            ByVal Year As Long          ByVal Month As Long          ByVal Day As Long          ByVal utime As Double          ByVal cal As Byte          ByRef tjd As Double         As Long  Private Declare Function swe date conversion d Lib  swedll32 dll        Alias   swe date conversion d 24            ByVal Year As Long          ByVal Month As Long          ByVal Day As Long          ByRef utime As Double          ByRef cal As Byte          ByRef tjd As Double         As Long  Private Declare Function swe day of week Lib  swedll32 dll        Alias   swe day of week 8            ByVal JD As Double         As Long  Private Declare Function swe day of week d Lib  swedll32 dll        Alias   swe day of week d 4            ByRef JD As Double         As Long  Private Declare Function swe degnorm Lib  swedll32 dll        Alias   swe degnorm 8            ByVal JD As Double         As Double  Private Declare Function swe degnorm d Lib  swedll32 dll        Alias   swe degnorm d 4            ByRef JD As Double         As Long  Private Declare Function swe deltat Lib  swedll32 dll        Alias   swe deltat 8            ByVal JD As Double         As Double  Private Declare Function swe deltat d Lib  swedll32 dll        Alias   swe deltat d 8            ByRef JD As Double          ByRef deltat As Double         As Long  Private Declare Function swe difcs2n Lib  swedll32 dll        Alias   swe difcs2n 8            ByVal p1 As Long          ByVal p2 As Long         As Long  Private Declare Function swe difcs2n d Lib  swedll32 dll        Alias   swe difcs2n d 8            ByVal p1 As Long          ByVal p2 As Long         As Long  Private Declare Function swe difcsn Lib  swedll32 dll        Alias   swe difcsn 8            ByVal p1 As Long          ByVal p2 As Long         As Long  Private Declare Function swe difcsn d Lib  swedll32 dll        Alias   swe difcsn d 8            ByVal p1 As Long          ByVal p2 As Long         As Long  Private Declare Function swe difdeg2n Lib  swedll32 dll        Alias   swe difdeg2n 16            ByVal p1 As Double          ByVal p2 As Double         As Double  Private Declare Function swe difdeg2n d Lib  swedll32 dll        Alias   swe difdeg2n d 12            ByRef p1 As Double          ByRef p2 As Double          ByRef Diff As Double         As Long  Private Declare Function swe difdegn Lib  swedll32 dll        Alias   swe difdegn 16            ByVal p1 As Double          ByVal p2 As Double         As Long  Private Declare Function swe difdegn d Lib  swedll32 dll        Alias   swe difdegn d 12            ByRef p1 As Double          ByRef p2 As Double          ByRef Diff As Double         As Long  Private Declare Function swe fixstar Lib  swedll32 dll        Alias   swe fixstar 24            ByVal star As String          ByVal tjd As Double          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long         x must be first of six array elements                       serr must be able to hold 256 bytes                       star must be able to hold 40 bytes  Private Declare Function swe fixstar d Lib  swedll32 dll        Alias   swe fixstar d 20            ByVal star As String          ByRef tjd As Double          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long         x must be first of six array elements                       serr must be able to hold 256 bytes                       star must be able to hold 40 bytes  Private Declare Function swe fixstar ut Lib  swedll32 dll        Alias   swe fixstar ut 24            ByVal star As String          ByVal tjd ut As Double          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long         x must be first of six array elements                       serr must be able to hold 256 bytes                       star must be able to hold 40 bytes  Private Declare Function swe fixstar ut d Lib  swedll32 dll        Alias   swe fixstar ut d 20            ByVal star As String          ByRef tjd ut As Double          ByVal iflag As Long          ByRef X As Double          ByVal serr As String         As Long         x must be first of six array elements                       serr must be able to hold 256 bytes                       star must be able to hold 40 bytes  Private Declare Function swe get ayanamsa Lib  swedll32 dll        Alias   swe get ayanamsa 8            ByVal tjd et As Double         As Double  Private Declare Function swe get ayanamsa d Lib  swedll32 dll        Alias   swe get ayanamsa d 8            ByRef tjd et As Double          ByRef ayan As Double         As Long  Private Declare Function swe get ayanamsa ut Lib  swedll32 dll        Alias   swe get ayanamsa ut 8            ByVal tjd ut As Double         As Double  Private Declare Function swe get ayanamsa ut d Lib  swedll32 dll        Alias   swe get ayanamsa ut d 8            ByRef tjd ut As Double          ByRef ayan As Double         As Long  Private Declare Sub swe get planet name Lib  swedll32 dll        Alias   swe get planet name 8            ByVal ipl As Long          ByVal pname As String          Private Declare Function swe get planet name d Lib  swedll32 dll        Alias   swe get planet name d 8            ByVal ipl As Long          ByVal pname As String         As Long  Private Declare Function swe get tid acc Lib  swedll32 dll        Alias   swe get tid acc 0            As Double  Private Declare Function swe get tid acc d Lib  swedll32 dll        Alias   swe get tid acc d 4            ByRef X As Double         As Long  Private Declare Function swe houses Lib  swedll32 dll        Alias   swe houses 36            ByVal tjd ut As Double          ByVal geolat As Double          ByVal geolon As Double          ByVal ihsy As Long          ByRef hcusps As Double          ByRef ascmc As Double         As Long         hcusps must be first of 13 array elements                       ascmc must be first of 10 array elements  Private Declare Function swe houses d Lib  swedll32 dll        Alias   swe houses d 24            ByRef tjd ut As Double          ByRef geolat As Double          ByRef geolon As Double          ByVal ihsy As Long          ByRef hcusps As Double          ByRef ascmc As Double         As Long         hcusps must be first of 13 array elements                       ascmc must be first of 10 array elements  Private Declare Function swe houses ex Lib  swedll32 dll        Alias   swe houses ex 40            ByVal tjd ut As Double          ByVal iflag As Long          ByVal geolat As Double          ByVal geolon As Double          ByVal ihsy As Long          ByRef hcusps As Double          ByRef ascmc As Double         As Long         hcusps must be first of 13 array elements                       ascmc must be first of 10 array elements  Private Declare Function swe houses ex d Lib  swedll32 dll        Alias   swe houses ex d 28            ByRef tjd ut As Double          ByVal iflag As Long          ByRef geolat As Double          ByRef geolon As Double          ByVal ihsy As Long          ByRef hcusps As Double          ByRef ascmc As Double         As Long         hcusps must be first of 13 array elements                       ascmc must be first of 10 array elements  Private Declare Function swe houses armc Lib  swedll32 dll        Alias   swe houses armc 36            ByVal armc As Double          ByVal geolat As Double          ByVal eps As Double          ByVal ihsy As Long          ByRef hcusps As Double          ByRef ascmc As Double         As Long         hcusps must be first of 13 array elements                       ascmc must be first of 10 array elements  Private Declare Function swe houses armc d Lib  swedll32 dll        Alias   swe houses armc d 24            ByRef armc As Double          ByRef geolat As Double          ByRef eps As Double          ByVal ihsy As Long          ByRef hcusps As Double          ByRef ascmc As Double         As Long         hcusps must be first of 13 array elements                       ascmc must be first of 10 array elements  Private Declare Function swe house pos Lib  swedll32 dll        Alias   swe house pos 36            ByVal armc As Double          ByVal geolat As Double          ByVal eps As Double          ByVal ihsy As Long          ByRef xpin As Double          ByVal serr As String         As Double                       xpin must be first of 2 array elements  Private Declare Function swe house pos d Lib  swedll32 dll        Alias   swe house pos d 28            ByRef armc As Double          ByRef geolat As Double          ByRef eps As Double          ByVal ihsy As Long          ByRef xpin As Double          ByRef hpos As Double          ByVal serr As String         As Long                       xpin must be first of 2 array elements  Private Declare Function swe julday Lib  swedll32 dll        Alias   swe julday 24            ByVal Year As Long          ByVal Month As Long          ByVal Day As Long          ByVal hour As Double          ByVal gregflg As Long         As Double  Private Declare Function swe julday d Lib  swedll32 dll        Alias   swe julday d 24            ByVal Year As Long          ByVal Month As Long          ByVal Day As Long          ByRef hour As Double          ByVal gregflg As Long          ByRef tjd As Double         As Long  Private Declare Function swe lun eclipse how Lib  swedll32 dll        Alias   swe lun eclipse how 24            ByVal tjd ut As Double          ByVal ifl As Long          ByRef geopos As Double          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe lun eclipse how d Lib  swedll32 dll        Alias   swe lun eclipse how d 20            ByRef tjd ut As Double          ByVal ifl As Long          ByRef geopos As Double          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe lun eclipse when Lib  swedll32 dll        Alias   swe lun eclipse when 28            ByVal tjd start As Double          ByVal ifl As Long          ByVal ifltype As Long          ByRef tret As Double          ByVal backward As Long          ByVal serr As String         As Long  Private Declare Function swe lun eclipse when d Lib  swedll32 dll        Alias   swe lun eclipse when d 24            ByRef tjd start As Double          ByVal ifl As Long          ByVal ifltype As Long          ByRef tret As Double          ByVal backward As Long          ByVal serr As String         As Long  Private Declare Function swe nod aps Lib  swedll32 dll        Alias   swe nod aps 40            ByVal tjd et As Double          ByVal ipl As Long          ByVal iflag As Long          ByVal method As Long          ByRef xnasc As Double          ByRef xndsc As Double          ByRef xperi As Double          ByRef xaphe As Double          ByVal serr As String         As Long  Private Declare Function swe nod aps ut Lib  swedll32 dll        Alias   swe nod aps ut 40            ByVal tjd ut As Double          ByVal ipl As Long          ByVal iflag As Long          ByVal method As Long          ByRef xnasc As Double          ByRef xndsc As Double          ByRef xperi As Double          ByRef xaphe As Double          ByVal serr As String         As Long  Private Declare Function swe pheno Lib  swedll32 dll        Alias   swe pheno 24            ByVal tjd As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe pheno ut Lib  swedll32 dll        Alias   swe pheno ut 24            ByVal tjd As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe pheno d Lib  swedll32 dll        Alias   swe pheno d 20            ByRef tjd As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe pheno ut d Lib  swedll32 dll        Alias   swe pheno ut d 20            ByRef tjd As Double          ByVal ipl As Long          ByVal iflag As Long          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe refrac Lib  swedll32 dll        Alias   swe refrac 28            ByVal inalt As Double          ByVal atpress As Double          ByVal attemp As Double          ByVal calc flag As Long         As Double  Private Declare Sub swe revjul Lib  swedll32 dll        Alias   swe revjul 28            ByVal tjd As Double          ByVal gregflg As Long          ByRef Year As Long          ByRef Month As Long          ByRef Day As Long          ByRef hour As Double          Private Declare Function swe revjul d Lib  swedll32 dll        Alias   swe revjul d 24            ByRef tjd As Double          ByVal gregflg As Long          ByRef Year As Long          ByRef Month As Long          ByRef Day As Long          ByRef hour As Double         As Long  Private Declare Function swe rise trans Lib  swedll32 dll        Alias   swe rise trans 52            ByVal tjd ut As Double          ByVal ipl As Long          ByVal starname As String          ByVal epheflag As Long          ByVal rsmi As Long          ByRef geopos As Double          ByVal atpress As Double          ByVal attemp As Double          ByRef tret As Double          ByVal serr As String         As Long  Private Declare Sub swe set ephe path Lib  swedll32 dll        Alias   swe set ephe path 4            ByVal path As String          Private Declare Function swe set ephe path d Lib  swedll32 dll        Alias   swe set ephe path d 4            ByVal path As String         As Long  Private Declare Sub swe set jpl file Lib  swedll32 dll        Alias   swe set jpl file 4            ByVal file As String          Private Declare Function swe set jpl file d Lib  swedll32 dll        Alias   swe set jpl file d 4            ByVal file As String         As Long  Private Declare Function swe set sid mode Lib  swedll32 dll        Alias   swe set sid mode 20            ByVal sid mode As Long          ByVal t0 As Double          ByVal ayan t0 As Double         As Long  Private Declare Function swe set sid mode d Lib  swedll32 dll        Alias   swe sid mode d 12            ByVal sid mode As Long          ByRef t0 As Double          ByRef ayan t0 As Double         As Long  Private Declare Function swe set topo Lib  swedll32 dll        Alias   swe set topo 24            ByVal geolon As Double          ByVal geolat As Double          ByVal altitude As Double          Private Declare Function swe set topo d Lib  swedll32 dll        Alias   swe set topo d 12            ByRef geolon As Double          ByRef geolat As Double          ByRef altitude As Double          Private Declare Sub swe set tid acc Lib  swedll32 dll        Alias   swe set tid acc 8            ByVal X As Double          Private Declare Function swe set tid acc d Lib  swedll32 dll        Alias   swe set tid acc d 4            ByRef X As Double         As Long  Private Declare Function swe sidtime0 Lib  swedll32 dll        Alias   swe sidtime0 24            ByVal tjd ut As Double          ByVal ecl As Double          ByVal nut As Double         As Double  Private Declare Function swe sidtime0 d Lib  swedll32 dll        Alias   swe sidtime0 d 16            ByRef tjd ut As Double          ByRef ecl As Double          ByRef nut As Double          ByRef sidt As Double         As Long  Private Declare Function swe sidtime Lib  swedll32 dll        Alias   swe sidtime 8            ByVal tjd ut As Double         As Double  Private Declare Function swe sidtime d Lib  swedll32 dll        Alias   swe sidtime d 8            ByRef tjd ut As Double          ByRef sidt As Double         As Long  Private Declare Function swe sol eclipse how Lib  swedll32 dll        Alias   swe sol eclipse how 24            ByVal tjd ut As Double          ByVal ifl As Long          ByRef geopos As Double          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe sol eclipse how d Lib  swedll32 dll        Alias   swe sol eclipse how d 20            ByRef tjd ut As Double          ByVal ifl As Long          ByRef geopos As Double          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe sol eclipse when glob Lib  swedll32 dll        Alias   swe sol eclipse when glob 28            ByVal tjd start As Double          ByVal ifl As Long          ByVal ifltype As Long          ByRef tret As Double          ByVal backward As Long          ByVal serr As String         As Long  Private Declare Function swe sol eclipse when glob d Lib  swedll32 dll        Alias   swe sol eclipse when glob d 24            ByRef tjd start As Double          ByVal ifl As Long          ByVal ifltype As Long          ByRef tret As Double          ByVal backward As Long          ByVal serr As String         As Long  Private Declare Function swe sol eclipse when loc Lib  swedll32 dll        Alias   swe sol eclipse when loc 32            ByVal tjd start As Double          ByVal ifl As Long          ByRef tret As Double          ByRef attr As Double          ByVal backward As Long          ByVal serr As String         As Long  Private Declare Function swe sol eclipse when loc d Lib  swedll32 dll        Alias   swe sol eclipse when loc d 28            ByRef tjd start As Double          ByVal ifl As Long          ByRef tret As Double          ByRef attr As Double          ByVal backward As Long          ByVal serr As String         As Long  Private Declare Function swe sol eclipse where Lib  swedll32 dll        Alias   swe sol eclipse where 24            ByVal tjd ut As Double          ByVal ifl As Long          ByRef geopos As Double          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe sol eclipse where d Lib  swedll32 dll        Alias   swe sol eclipse where d 20            ByRef tjd ut As Double          ByVal ifl As Long          ByRef geopos As Double          ByRef attr As Double          ByVal serr As String         As Long  Private Declare Function swe time equ Lib  swedll32 dll        Alias   swe time equ 16            ByVal tjd ut As Double          ByRef E As Double          ByRef serr As String         As Long

User · Answer

I m quite sure you won t get this 32Bit DLL working in Office 64Bit   The DLL needs to be updated by the author to be compatible with 64Bit versions of Office     The code changes you have found and supplied in the question are used to convert calls to APIs that have already been rewritten for Office 64Bit    Most Windows APIs have been updated    From  http   technet microsoft com en-us library ee681792 aspx    ActiveX controls and add-in  COM  DLLs  dynamic link libraries  that were written for 32-bit Office will not work in a 64-bit process    Edit  Further to your comment  I ve tried the 64Bit DLL version on Win 8 64Bit with Office 2010 64Bit   Since you are using User Defined Functions called from the Excel worksheet you are not able to see the error thrown by Excel and just end up with the  VALUE returned   If we create a custom procedure within VBA and try one of the DLL functions we see the exact error thrown   I tried a simple function of swe day of week which just has a time as an input and I get the error Run-time error  48  File not found  swedll32 dll     Now I have the 64Bit DLL you supplied in the correct locations so it should be found which suggests it has dependencies which cannot be located as per https   stackoverflow com a 8607250 1733206  I ve got all the  NET frameworks installed which would be my first guess  so without further information from the author it might be difficult to find the problem   Edit2  And after a bit more investigating it appears the 64Bit version you have supplied is actually a 32Bit version   Hence the error message on the 64Bit Office   You can check this by trying to access the  64Bit  version in Office 32Bit

User · Answer

I think all you need to do for your function is just add PtrSafe  i e  the first line of your first function should look like this   Private Declare PtrSafe Function swe azalt Lib  swedll32 dll

[excel] Excel VBA Code: Compile Error in x64 Version ('PtrSafe' attribute required)

Examples related to excel

Examples related to vba

Examples related to runtime

Examples related to 64-bit