Excel宏生成带照片的VCard二维码时出现应用程序定义错误

核心问题 #

1. URL长度超限：Base64编码的照片内容体积较大，直接拼接成Google Chart API的请求URL会超出HTTP请求的长度限制（常规URL上限多在2000-8000字符），导致请求失败触发报错。
2. 未做URL编码：VCard中的换行符Chr(10)、Base64里的特殊字符（如+、/、=）未进行URL编码，破坏了请求URL的格式，导致API无法正常解析。

修复步骤 #

1. 添加自定义URL编码函数 #

在VBA模块中添加以下函数，用于对VCard内容进行URL编码：

Function URLEncode(strInput As String) As String
    Dim objURLEncoder As Object
    Set objURLEncoder = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    URLEncode = objURLEncoder.encodeURL(strInput)
    Set objURLEncoder = Nothing
End Function

2. 修改原代码的关键逻辑 #

• 修正VCard格式：给PHOTO字段末尾添加换行符，保证VCard结构完整；
• 对VCard内容进行URL编码后再拼接请求URL：

修改后的核心代码片段：

' 修正照片字段的换行，保证VCard格式合规
strVCF = strVCF & "PHOTO;ENCODING=b;TYPE=JPEG:" & strPht & Chr(10)
strVCF = strVCF & "END:VCARD"

ThisWorkbook.Sheets("Contact_Info").Range("L" & intRow) = strVCF

strChs = "&chs=150x150"
strChl = "&chl="
' 对完整VCard内容做URL编码
strEncodedVCF = URLEncode(strVCF)
strFinalURL = strURL & strChs & strChl & strEncodedVCF

3. 备选方案：本地生成QR码（彻底避免URL长度限制） #

如果Base64照片依然导致URL过长，建议使用本地QR码生成库（如ZXing的VBA版本），无需依赖外部API：

• 导入ZXing的VBA模块到Excel；
• 直接将编码后的VCard内容传入ZXing生成函数，生成图片插入Excel单元格。

额外检查项 #

• 确认Base64字符串无多余空格、换行，是纯净的编码内容；
• VCard 3.0规范中PHOTO字段的ENCODING=b可省略（Base64默认为此编码），保留也不影响功能；
• 测试时先用小尺寸头像的Base64编码验证代码是否正常运行。

内容的提问来源于stack exchange，提问作者Daniel