求大神处理一下，VBA代码，在64位系统上运行不了，提醒错误

xiaochaoniunai

请问可以回答详细一点或者帮我改一下么，这段代码我是在网上找的，不知道如何修改。

Stone_00x

1.     #If VBA7 And Win64 Then
   
2.         Declare PtrSafe Sub...
   
3.     #Else
   
4.         Declare Sub...
   
5.     #End If
   

复制代码

tanglf188

xiaochaoniunai 发表于 2023-3-6 14:57
谢谢大神，是不是增加一个Declare PtrSafe Function进行就32或者64都能用了。

#If VBA7 Then
'Office 2013 及以上
    #If Win64 Then
    'x64 主机
       Private Declare PtrSafe Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
          (ByVal lpExistingFileName As String, _
           ByVal lpNewFileName As String, _
           ByVal bFailIfExists As LongPtr) As LongPtr
    #Else
    'x86 主机
       Private Declare PtrSafe Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
          (ByVal lpExistingFileName As String, _
           ByVal lpNewFileName As String, _
           ByVal bFailIfExists As Long) As Long
    #End If
#Else
'Office 2010 及以下
   Private Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
      (ByVal lpExistingFileName As String, _
       ByVal lpNewFileName As String, _
       ByVal bFailIfExists As Long) As Long
#End If

xiaochaoniunai

tanglf188 发表于 2023-3-6 16:16
#If VBA7 Then
'Office 2013 及以上
    #If Win64 Then

非常感谢，您辛苦了。这段代码是放到最前面，还是替换掉那段fuction???

xiaochaoniunai

Stone_00x 发表于 2023-3-6 15:27

刚这样试了一下，好像不行，还是报错。

Stone_00x

xiaochaoniunai 发表于 2023-3-6 16:33
刚这样试了一下，好像不行，还是报错。

报什么错?

1. #If VBA7 And Win64 Then
   
2.     Private Declare PtrSafe Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
   
3.     Private Declare PtrSafe Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
   
4.     Private Declare PtrSafe Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
   
5.     Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
6.     Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
7.     Private Declare PtrSafe Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
   
8. #Else
   
9.     Private PtrSafe Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
   
10.     Private PtrSafe Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
    
11.     Private PtrSafe Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
    
12.     Private PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    
13.     Private PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    
14.     Private PtrSafe Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
    
15. #End If

复制代码

hwf0101

64位部分要改Long为Longlong或LongPtr

xiaochaoniunai

Stone_00x 发表于 2023-3-6 17:10
报什么错?

非常感谢您，我再用这个代码试试。 可以帮我在TXT文档里面直接改过来吗？

xiaochaoniunai

Stone_00x 发表于 2023-3-6 17:10
报什么错?

非常感谢您，真的可以了。太感激了。
#Else
    Private PtrSafe Function GetVersionEx
把这个改成了Private Declare Function GetVersionEx  就可以了，在32位和64位上面都可以用。

xiaochaoniunai

Stone_00x 发表于 2023-3-6 17:10
报什么错?

非常感谢您，真的可以了。太感激了。
#Else
    Private PtrSafe Function GetVersionEx
把这个改成了Private Declare Function GetVersionEx  就可以了，在32位和64位上面都可以用。