主题：[求助]从网页上抓取数据

On Error Goto Qt

昏暗的ObjIE作为对象,Dom对象,r为对象,我只要,j整数

ObjIE = CreateObject(“Internetexplorer.Application”)

状态栏。消息1 = "正在查询网页信息,可能耗时较久,请耐心等待……”

StatusBar.Refresh

与ObjIE

.Navigate(“http://ball365.net/newo/mpk.html?ct=1317477534001”)“网址

做之前。ReadyState = 4

Application.DoEvents

循环

Dom = .Document

结尾

r = Dom.All.tags(35).Rows(“表”)

昏暗的TblName字符串= Inputbox(“请输入要创建的临时查询表的名称:“,“输入临时表名”,“查询结果”)

如果TblName = " "然后Goto Qt:不返回任何内容

状态栏。消息1 = "正在动态修改表结构……”

StatusBar.Refresh

昏暗的TblBld新DataTableBuilder(TblName)

因为我对r = 0(0).Cells.Length

TblBld。AddDef(“列”& i + 1,方法(字符串),250)

下一个

TblBld.Build

昏暗的资源描述如表=表(TblName)

与台

如果r。> .Rows长度。计数然后.Rows.AddNew(r。长度- .Rows.Count)

昏暗的ColName作为字符串

我= 0 r。长度- 1

j = 0 r .Cells(我)。长度- 1

ColName = .Cols(j). name

.Rows(我)(ColName)= r(i).Cells .innerText(j)

下一个

下一个

结尾

MainTable =(资源

状态栏。消息1 = "数据查询完成……”

StatusBar.Refresh

对话框(“好”)

Qt:

如果犯错。> 0然后对话框(犯错。& vbCrlf & Err.Description数量)

StatusBar.Reset

ObjIE.Quit

ObjIE =什么

Dom =什么

r =什么