跪求大侠帮忙：急迫修改附件2文件中的VBA代码，本人将万分感谢！！！

gsh59

跪求大侠帮忙：本人急需使用附件2文件，特此请求将附件2中在32位系统中使用的VBA代码，变更成为能够在Win11-64位系统中使用的VBA代码,。先行谢谢！！！ 因为我是一个十足的菜鸟，所以，请求大侠将修改后的代码写入附件2中，本人将万分感谢！！！  具体情况详见附件1、2  

shiruiqiang

gsh59

shiruiqiang老师：你好！首先感谢你的帮助。按照你提供的替换，最后显示为编辑错误缺少：Sub或Functtion。请求继续帮助！希望修改在附件2中，让我下载就能使用，谢谢！！！

Qs18

已经不在报错，不知道您这个怎么使用的

Qs18

Declare PtrSafe Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByValnVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByValnFileSystemNameSize As Long) As Long

Global GetVal As Long

Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Qs18

去试试吧.............

gsh59

尊敬的Qs18老师：万分地感谢你的热情帮助！帮我解决了困难。再次表示深深的谢意！！！

Qs18

gsh59 发表于 2024-6-28 10:32
尊敬的Qs18老师：万分地感谢你的热情帮助！帮我解决了困难。再次表示深深的谢意！！！

您已经非常厉害了