Excel VBA HTML网页元素抓取并制作函数

可以做到的。也可以先整理出全部上市公司的代码，网址的变化其实只有代码变化，把代码做成一个变量循环进去。

下载全部公司的10年内报表，大概要2个小时。

拔特，没有几把卵用。

比如你说的公司所属行业，除了大公司比如万科，就是做房地产的，其他的公司基本都会有主营业务发生变化，甚至没有主营业务。前几年有个概念热，上市公司都会往概念上靠，垃圾公司甚至变更自己的所属行业。

所以，没有用的，孩纸。关键还得自己分析他的报表。

WebBrowser1DocumentgetElementsByTagName("TD") 这里有错误啊，你这里根据ID获取到TD，并没有赋值，所以会报错啊，你赋值就可以了

Dim strHTML As String

strHTML=WebBrowser1DocumentgetElementsByTagName("TD")innerText

随便打开一个excel，然后输入下面的代码，就可以把网站内容下载到active worksheet

至于怎么改成你需要的格式你就根据你的需求去抓取你需要的数据填到你的表格里就可以了

Sub getdatafromweb()

Dim objWeb As QueryTable

Dim sWebTable As String

Dim s As String

sWebTable = 1

s = "URL;>

可使用excel自带的数据导入功能，参考如下程序。如果，从多个带有一定规律性的网页导入，可使用循环语句。Sub宏1()WithActiveSheetQueryTablesAdd(Connection:=_"URL;>

以上就是关于Excel VBA HTML网页元素抓取并制作函数全部的内容，包括:Excel VBA HTML网页元素抓取并制作函数、vba 中如何使用webbrowser 对网页中的<TD>内容提取，然后存入EXCEL SHEET1 中的A列、EXCEL VBA下载网站多个网页里的表格数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！