如何在Excel VBA的XMLHTTP请求后刷新HTML代码以完成自动加购？

嘿，我一眼就看出问题所在了——你用的MSXML2.XMLHTTP60本质上只是做静态HTTP请求，完全没法模拟真实浏览器的会话管理和页面跳转行为，这就是点击按钮后功能失效的核心原因。

问题根源拆解 #

你当前的代码有两个致命的逻辑漏洞：

1. 无状态请求无法维护会话：MSXML2.XMLHTTP60不会保存亚马逊的会话Cookie（比如购物车状态、临时会话标识），你代码里的Btn.Click只是在静态HTML文本里“假点击”，根本没有触发真实的浏览器请求和页面跳转。
2. 跳转后未获取新页面内容：页面跳转后，你还是用最初的Page.responseText更新HTML，这自然拿不到新页面的DOM——因为XMLHTTP根本没跟着跳转去请求新页面。

解决方案：改用真实浏览器实例（InternetExplorer.Application） #

我们可以用InternetExplorer.Application模拟真实浏览器操作，它会自动处理会话维护、页面跳转、JS渲染所有浏览器行为，跳转后的页面DOM会自动更新，完全不需要手动刷新HTML。

下面是修改后的可运行代码：

Dim IE As Object
Dim HTML As MSHTML.HTMLDocument
Dim Btn As Object

' 创建IE浏览器实例
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True ' 调试时设为True可以看到页面，上线后可改为False隐藏

' 打开目标商品页面
IE.Navigate "https://www.amazon.de/gp/product/B00IPH78O6/ref=ox_sc_act_image_1?smid=A1JZY7TFGMYK57&psc=1"

' 等待页面完全加载完成
Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

' 获取当前页面的DOM对象
Set HTML = IE.Document

' 点击"加入购物车"按钮
Set Btn = HTML.getElementById("add-to-cart-button")
If Not Btn Is Nothing Then
    Btn.Click
    ' 等待页面跳转/加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
End If

' 此时HTML已自动更新为跳转后的页面内容，直接获取"查看购物车"按钮
Set Btn = HTML.getElementById("hlb-view-cart-announce")
If Not Btn Is Nothing Then
    Btn.Click
    ' 再次等待购物车页面加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
End If

' 后续操作购物车页面，直接用IE.Document即可
' 完成后可关闭浏览器（可选）
' IE.Quit
' Set IE = Nothing

关键注意事项 #

• 请在VBA编辑器的工具→引用里勾选Microsoft HTML Object Library，否则MSHTML.HTMLDocument会报错。
• 亚马逊有反爬机制，频繁自动化操作可能触发验证码或访问限制，建议添加适当延迟（比如用Sleep函数）。
• IE.ReadyState = 4代表页面加载完成，DoEvents是让程序等待的同时不卡住Excel界面。

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