如何解决循环浏览网址列表并提取可用库存
我有 15,000 个网页,所有网页的格式都列在 A 列中,我需要提取每种产品的可用库存并将其粘贴到 H 列中。我尝试了多种在线解决方案,但均未成功。
我的第一个 URL 是:view-source:https://www.coolings.co.uk/shop/products/plants/bedding/all-bedding/osteospermum-mixed-10-5cm-pot.html
我想要的图就在这里(125):
MagicCard
感谢任何帮助。
解决方法
这是一个示例,用于从您提供的 URL 获取可用库存。您必须遍历所有 URL 并相应地调整代码:
Sub getStock()
Dim IE As Object,Doc As Object,Ele As Object
Set IE = CreateObject("internetexplorer.application")
IE.navigate "https://www.coolings.co.uk/shop/products/plants/bedding/all-bedding/osteospermum-mixed-10-5cm-pot.html"
Do While IE.ReadyState <> 4 Or IE.Busy: DoEvents: Loop
Set Doc = IE.Document
Set Ele = Doc.getElementsByClassName("availability in-stock")
Debug.Print Ele(0).innerText
IE.Quit
Set IE = Nothing: Set Doc = Nothing: Set Ele = Nothing
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。