嘿，作为VBA网页抓取的新手，碰到这种抓不到价格的问题太正常啦！我来帮你梳理下原代码里的潜在问题，再给你调整后的可运行代码参考～

原代码的核心问题 #

• 没有等待网页完全加载的逻辑：你直接调用navigate后就去操作页面，这时候网页可能还在加载中，自然拿不到数据
• 缺少具体的价格元素定位代码：你的代码只写到了导航部分，没有实际提取价格的步骤
• 大概率没添加必要的库引用：IE自动化需要依赖两个关键库，没引用的话会报错

解决步骤 & 调整后的代码 #

首先，先添加必需的库引用：

1. 打开VBA编辑器（Alt+F11）
2. 点击顶部菜单的「工具」→「引用」
3. 勾选Microsoft Internet Controls和Microsoft HTML Object Library，点击确定

然后用下面的代码替换你的原代码，我加上了详细注释：

Sub Deneme()
    Dim objIE As InternetExplorer
    Dim doc As HTMLDocument ' 用来存储网页文档对象
    Dim Prc1 As String
    Dim Search_Terms() As Variant
    Dim CopiedData() As Variant
    Dim y As Integer, a As Integer
    
    ' 初始化IE对象
    Set objIE = New InternetExplorer
    objIE.Visible = True ' 先设为True方便调试，没问题后再改成False
    
    ' 获取搜索关键词列表
    Search_Terms = Application.Transpose(ActiveSheet.Range("A2:A169").Value)
    ReDim CopiedData(LBound(Search_Terms) To UBound(Search_Terms))
    
    y = 2 ' 输出结果的起始行
    
    For a = LBound(Search_Terms) To UBound(Search_Terms)
        ' 导航到目标页面（这里替换成你完整的URL，比如带搜索关键词的链接）
        objIE.navigate "https://example.com/search?q=" & Search_Terms(a)
        
        ' 等待网页完全加载
        Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
            DoEvents ' 让程序等待时不卡死
        Loop
        
        ' 获取网页文档对象
        Set doc = objIE.document
        
        ' --------------------------
        ' 关键：定位价格元素（这里需要你根据目标网站的HTML结构修改）
        ' 示例：假设价格在class为"product-price"的元素里
        ' --------------------------
        On Error Resume Next ' 防止找不到元素报错中断程序
        Prc1 = doc.querySelector(".product-price").innerText
        On Error GoTo 0
        
        ' 如果成功获取到价格，就存入数组并写入单元格
        If Prc1 <> "" Then
            CopiedData(a) = Prc1
            ActiveSheet.Cells(y, 2).Value = Prc1 ' 把价格写入B列对应行
        Else
            ActiveSheet.Cells(y, 2).Value = "未找到价格"
        End If
        
        y = y + 1
        Prc1 = "" ' 清空价格变量，准备下一次循环
    Next a
    
    ' 清理对象
    objIE.Quit
    Set objIE = Nothing
    Set doc = Nothing
    
    MsgBox "价格抓取完成！"
End Sub

重要提示 #

• 元素定位需要适配目标网站：你需要打开目标网站的开发者工具（F12），找到价格元素的CSS选择器、ID或者类名，替换代码里的.product-price
• 如果目标网站是动态渲染（比如用React、Vue或者AJAX加载价格），IE的自动化可能不太好用，这时候可以考虑用XMLHTTP或者更现代的工具，但先把基础的IE抓取跑通再说

内容的提问来源于stack exchange，提问作者Ömer Faruk iskender