vba html形式 table,ms access - VBA: Scraping information from HTML Table - Stack Overflow

I'm trying to pull information from an html table. I want to add each element with in the table to a collection. This is what I have so far.

Dim htmlTable As Object

Dim coll2 As Collection

Set coll2 = New Collection

Set IE = New InternetExplorerMedium

With IE

'.AddressBar = False

'.MenuBar = False

.Navigate ("PASSWORDED SITE")

.Visible = True

End With

Set htmlTable = IE.Document.getElementById("ctl00_ContentPlaceHolder1_gvExtract")

Set tableItem = IE.Document.getElementsByTagName("td")

With coll2

For Each tableItem In htmlTable.innerHTML

.Add tableItem

Next

End With

I have a problem with this line For Each tableItem In htmlTable.innerText I tried diffent variations of htmlTable.innerText each throwing differant errors.

This is the HTML Extract for the table.

DeleteDownloadExtract DateUser Id Owner
DeleteWork Order Inquiry - Work Order06/20/2017 07:50:37MBMAYO
DeleteWork Order Inquiry - Work Order06/20/2017 07:39:29MBMAYO
DeleteWork Order Inquiry - Work Order06/20/2017 07:23:54MBMAYO
DeleteWork Order Inquiry - Work Order06/20/2017 07:16:16MBMAYO
DeleteWork Order Inquiry - Work Order06/20/2017 07:14:06MBMAYO

The goal is to store each

as an item for a collection and then retrieve the date for example 06/20/2017 07:50:37 from it. This table Grows so I think an array is out of the question?

Edit from comment:

I have been trying call this function, I'm getting a object does not support this method error:

Public Function htmlCell(id As String) As String

htmlCell = IE.getElementById("ctl00_ContentPlaceHolder1_gvExtract")

.get‌​ElementsByTagName("t‌​d")(id).innerHTML

End Function

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值