Excel vba如何抓取指定的网页数据到单元格

参考：

Sub A1下载数据()

ReDim A2(1 To 200000, 1 To 15): A = 0

For i = 1 To 5

Sleep 2000 + 1000 Rnd

With CreateObject("Win>

首先打开Excel 2007工作表，点击想要把数据导入的位置，然后在菜单栏找到第五项"数据“，点击，在“获取外部数据”项下找到“自网站”并点击。

这时d出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。

添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和**箭头，单击要选择的表旁边的**箭头，可以看到点击后**箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。

d出来”导入数据“对话框，设置完成点击“确定”。

Excel表中显示“正在获取数据……”。

数据获取完成，之前选中的网页内容全部导入了Excel工作表里。

当你的表格数据很庞大，上千行或上万行；而且，数据还会不断的更新数据，这样的话，若随时要查询最后单元格数值时，又要翻到最后单元格，这就麻烦了。那么，我们可以在表格的第一行的某个单元格设置下，实时更新数据。

在本例中，假设，在B1单元格显示实时更新的数据。

假设表格设定在A2:A5000；

我们在B1单元格输入公式：=LOOKUP(9E307,A2:A5000)

可能有些朋友会问到为什么是9E307，这个不好解释，解释其定义，有些朋友可能还是不能理解，反正，我们把公式记住就可以了，公式又不长，记住不难。

按下回车键，这时，B1单元格出现了错误值，因为现在A2:A5000还没有输入数据；

那么，我们现在开始输入数据。

在A2单元格输入2540，B1单元格即时显示为2540

然后，数据，不断在更新；B1单元格数据亦随之自动不断更新；假设直到第A1000时，数据为120，B1单元格同样即时显示为120。

假设，表格中最后的数据不是数字，而是汉字时，用公式=LOOKUP(9E307,A2:A5000)不能实现更新数据。

看，小编在A1001单元格输入：百度

B1单元格不能显示A1001的数据，只是显示A1000的数据120

当你的表格数据，有可能是数字或汉字混合的，那么就要用到下面这个公式：

=LOOKUP(1,0/(A2:A5000<>""),A2:A5000)

此公式，同样适用于数字；当最后单元格值为数字时，B1单元格同样可以实时显示出该数据。

7

=LOOKUP(1,0/(A2:A5000<>""),A2:A5000)，无论，最后单元格是数字或是字母或是数字和汉字混合的，B1单元格都能实时更新数据。

如果你的表格最后单元格都是汉字的，那么，可以用这个公式：=LOOKUP("座",A2:A5000)

以上就是关于Excel vba如何抓取指定的网页数据到单元格全部的内容，包括:Excel vba如何抓取指定的网页数据到单元格、EXCEL VB编程，提取网页代码里表格里的数据、做一个电子表格excel vba 实时获取网页数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！