☰

使用 VBA 从网站提取数据

tag-icon • tag-icon microsoft-excel vba
使用 VBA 从网站提取数据

我对 VBA 编码还很陌生，在网上搜索和 Youtube 上搜索也没有得到太多帮助，因为他们都有自己的方法，这很令人困惑。

我可以通过“数据 > 获取外部数据 > 从 Web”来执行此操作，但它获取的数据远远超出了我的需要。数据也在私有网络上，您无法访问它。此外，Do while 循环也产生了错误，所以我将其注释掉，因为这个网站需要大约 10-15 秒才能加载

我只需要从 Div 类中提取数据并将其粘贴到“Alps OB”工作表中。

如果我能得到任何帮助或使这个编码变得简单，我将非常感激。

编辑* 抱歉，代码缺失。关于提取的数据，Excel 会提取整个页面，大约有 1000 行和 10 列。而如果我能让这个 VBA 代码工作，我只需要大约 20 行和 10 列。IE 在没有“Do while”循环的情况下加载页面很好，但给了我一个运行时错误并突出显示“循环直到 objIE.readyState = 15”

Sub AlpsOB()
Dim HTML As HTMLDocument
Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True
objIE.navigate "https://alps.amazon.com/reports/show/tdp/outbound_joint/latest_BASE/YVR2"

Do
DoEvents
Loop Until objIE.readyState = 15

Set HTML = objIE.document
Dim elements As IHTMLElementCollection

Set elements = HTML.getElementsByClassName("tdp-content")
For I = 0 To elements.Length - 1
    Sheet2.Range("A" & (I + 2)) = elements(I).innerText
Next I


End Sub

在此处输入图片描述

相关内容