VBA中MSXML2.ServerXMLHTTP请求含空格URL失效的解决咨询

核心解决思路 #

不要手动替换空格为%20，而是利用VBA内置的URL编码函数对参数值单独处理，同时检查请求头的合理性。

具体步骤 #

• 对Folder参数值单独编码
  将带空格的参数值提取出来，使用WorksheetFunction.EncodeURL进行完整编码，再拼接回URL。示例代码：

  ' 假设你的Folder参数原始值
  Dim folderParam As String
  folderParam = "STRING - STRING"
  
  ' 对参数值进行URL编码
  Dim encodedParam As String
  encodedParam = WorksheetFunction.EncodeURL(folderParam)
  
  ' 拼接成完整的请求URL（替换成你的实际URL前缀）
  MYUrl = "https://your-api-url.com?otherParams=xxx&Folder=" & encodedParam
  

  这个函数会自动将空格、特殊字符转化为符合URL规范的编码，比手动替换更可靠。

• 移除不必要的请求头
  GET请求不需要设置Content-Type: application/json，这个请求头仅用于POST请求发送JSON格式的请求体时使用。删除这一行代码，避免服务器解析请求时出现异常：

  ' 移除该行
  ' xmlHttp.setRequestHeader "Content-Type", "application/json"
  

• 验证URL格式
  编码后可以直接打印MYUrl的值，检查是否所有特殊字符都已正确编码，确保没有遗漏的空格或其他未编码内容。

补充说明 #

如果手动替换%20无效，大概率是因为URL中还有其他需要编码的特殊字符，或者替换操作没有覆盖到所有空格位置。使用内置编码函数能一次性处理所有URL合规性问题。

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