相关疑难解决方法(0)

我需要在VBA中将100KB +字符串编码为base64.是否有任何可用的内置函数或COM对象,因为纯VBA方法要么复杂,要么在这些卷上无法很好地扩展(请参阅dbb和marxidad的链接)？

我收到了以下错误.

Compile error: The code in this project must be updated for use on 64-bit systems.

VBA代码

Option Explicit

Private Declare 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

Dim Ret As Long

'~~> This is where the images will be saved. Change as applicable
Const FolderName As String = "C:\Temp\"

它在Excel 2010中工作正常.

谢谢.

编辑

我得到的错误是Ret …