excel vba 32位运行正常，64位运行故障，如何修改？

sunfull_zhong

Private Declare Function SetProcessWorkingSetSize Lib "kernel64" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel64" () As Long
Sub ExcelMemorySizeReset() 'Excel 占用内存清零
    Call SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1)
End Sub

opiona

1. Rem 当VBA7和Win64都是True时(只有64的Excel才是这种情况)，使用第一条Declare语句。在其他版本中，使用第二条Declare语句
   
2. Rem =====================================================================================================================
   
3. #If Vba7 And Win64 Then
   
4.     Declare PtrSafe Function GetWindowsDirectory Lib "kernel32" (ByVal ipBuffer As String, ByVal nSize As Long) As Long
   
5. #Else
   
6.     Rem  64位系统，安装的Excel可能是32位的
   
7.     Declare Function GetWindowsDirectory Lib "kernel32" (ByVal ipBuffer As String, ByVal nSize As Long) As Long
   
8. #End If
   
9. Rem =====================================================================================================================
   

复制代码