如何用vba抓取网页数据

Sub cc()

CellsClearContents

Set oDoc = CreateObject("htmlfile")

With CreateObject("Win>

看起来挺复杂的，但是这个页面应该是你们内部使用的某个web系统吧，那为何不直接从数据库读取数据呢。

15872400000这个数据不难获取，在网页源码里应该是固定的某个td标签，只要知道是第几个或者和某个标志性字段有对应关系就可以。

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

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

对于这种写法不是很了解，如果用ado+sql可以帮到你。

Sub bb()

Dim cnn As ADODBConnection

Dim rs As ADODBRecordset

Set cnn = New ADODBConnection

mydata = ThisWorkbookPath & "\123mdb"

With cnn

Provider = "microsoftjetoledb40"

Open mydata

End With

Set rs = New ADODBRecordset

Sql = "select Flux_Amount from Mytable"

rsOpen Sql, cnn, 3, 2

ReDim arr(rsRecordCount)

For i = 0 To rsRecordCount - 1

arr(i) = rsFields("Flux_Amount")

rsMoveNext

Next i

MsgBox Join(arr, ",")

End Sub

应该说这种用法比较主流，复制代码到vbe，然后引用ado 28,将access与excel文件放在一个文件夹，将数据库名变动一下，就可以测试了。（要改为同你的access,表名，字段名一致）

以上就是关于如何用vba抓取网页数据全部的内容，包括:如何用vba抓取网页数据、用Excel中的vba获取网页内容填写网页表单、关于VBA提取网页数据到excel表格的代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！