使用VBA XMLHTTP请求导入网站数据至Excel时500错误解决咨询

针对500内部服务器错误 #

• 先手动验证目标URL在浏览器中是否能正常访问：如果浏览器打开没问题，基本是你的请求被服务器识别为非浏览器请求，需要补全请求头。在req.Open之后、req.send之前添加模拟浏览器的请求头：

req.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/118.0.0.0 Safari/537.36"
req.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"

• 检查URL格式：确保URL没有特殊字符未编码，比如空格、中文要通过URLEncode函数转码后再传入。
• 查看服务器返回详情：在req.send后添加Debug.Print req.responseText，通过返回的错误信息定位具体问题（比如权限不足、接口不存在）。

针对其他网站搜索功能失效 #

• 分析目标网站的搜索接口：打开浏览器开发者工具（F12），手动执行搜索，查看Network面板里的请求细节——包括请求方法（GET/POST）、参数名、请求头，完全复刻这些参数到你的VBA代码中。
• 适配请求方法：如果目标网站搜索用POST而非GET，要修改代码结构：

req.Open "POST", "搜索接口URL", False
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.send "keyword=搜索关键词&page=1" ' 替换为实际参数

• 维持会话状态：部分网站需要Cookie验证，先请求网站首页获取Cookie，再发送搜索请求，确保会话一致。

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