怎么自动获取网页自动更新的数据excel vba

Excel界面 *** 作：数据——导入外部数据——新建Web查询：在出现的界面地址栏输入网址，然后选择需要更新的数据范围——导入——选择数据放的单元格（必要时修改属性，如刷新频率等）——确定。这样当网页数据变化时，Excel表格的数据就会同样改变。

如果非要用VBA，用录制宏稍作修改即可。

分析好久才弄出来的,经实测成功,望采纳

    Dim strUrl$, obj

Public Sub get_data(itabtable As Object) Dim vField As Variant Static j As Integer For j = 1 To itabtableRowCount ThisWorkbookSheets(4)Cells(j, 4) = itabtableValue(j, "GNAME&quot ThisWorkbookSheets(4)Cells(j, 5) = itabtableValue(j, "GUSR&quot ThisWorkbookSheets(4)Cells(j, 6) = itabtableValue(j, "GUSRVB&quot NextEnd Sub

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

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

Sub getdatafromweb()

Dim objWeb As QueryTable

Dim sWebTable As String

Dim s As String

sWebTable = 1

s = "URL;>

what sentimental At nigh

吉 岛 个 ±也 方

楲泥+斯亼

"木急"-淀 。，，

没（森么）问题 的

ditbaidu/>

有些网页写得很复杂，iframe内又套iframe，直接从IE对象获取内层iframe中的元素是获取不到的。需要逐层进去，一层也不可跳过。对于每个iframe，用 fcontentWindowDocumentgetElementByid 获取iframe内的子元素。而不是直接从ieDocument去getElementByid。

整个连接起来看是很长的：ieDocumentgetElementByid("第一层iframe")contentWindowDocumentgetElementByid("第二层ifrem")

属性选择器

其中一个iframe的名字是随机生成的，后面的整数每次都不同。可以改成用querySelector函数，用通配符匹配。

End语句。Visual Basic遇到End语句就结束运行。

Trim去除前后空格。Str整数转字符串。Round小数取整。InStr搜索匹配子字符串。

循环语句while wend、while do loop……两种？

以上就是关于怎么自动获取网页自动更新的数据excel vba全部的内容，包括:怎么自动获取网页自动更新的数据excel vba、求Excel VBA代码才用XMLHTTP的方法提取一网页内表格、怎么用VBA获取SAP internal table的资料.等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！