欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

怎么从网页上读取数据

更新时间: 2014-01-05 02:27:42 责任编辑: Author_N1

 

如何从网页上读取数据

--参考方法--
Clear
Public oIE,objTable
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
cCurrency = "eur"  && have 55 values of currency available.
oIE.Navigate("http://info.1688.com/detail/1147877390.html")
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10
        Exit
    Endif
    Inkey(0.2)
Enddo

objCollection=oIE.Document.getElementsByTagName("table").[0]  && Eighth in the Table

objTable = objCollection

Create Cursor 水泥价格 (单品 C(4), 出厂标准 C(10), 地域 C(4), 价格 N(10,2), 涨跌 N(6,2), 报价日期 C(10))

For Each objRow In objTable.Rows
    If objRow.cells(0).innertext # "单品"
        ? objRow.cells(0).innertext
        Insert Into 水泥价格 (单品, 出厂标准, 地域, 价格, 涨跌, 报价日期);
            VALUES (objRow.cells(0).innertext, objRow.cells(1).innertext, objRow.cells(2).innertext, ;
            VAL(objRow.cells(3).innertext), Val(objRow.cells(4).innertext), objRow.cells(5).innertext)
    Endif
Next
oIE.Quit()
Go Top
Browse Last
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:42
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10093/
本文WWW.DOC100.NET DOC100.NET版权所有。