VB6.0获取webbrowser控件网页的表格内容导入数据表中。

VB6.0获取webbrowser控件网页的表格内容,近来,都在研究如何将网页数据加入Access2003或Server2000。我也积极参与。网址:http://www... VB6.0获取webbrowser控件网页的表格内容,近来,都在研究如何将网页数据加入Access2003或Server2000。我也积极参与。网址:http://www.szse.cn/main/disclosure/news/xxlb/index.shtml?txtStockCodeORname="
----是深圳市场的一组数据!!请专家帮忙
按你的代码编译报错!!以下定义变量有错!!
-----------------------
....
Dim doc As MSHTML.HTMLDocument '无此类型
Set doc = WebBrowser1.Document '未定义变量
Dim table As MSHTML.HTMLTable '用户定义类型未定义
Dim lrow As MSHTML.HTMLTableRow '用户定义类型未定义
Dim cel As MSHTML.HTMLTableCell '用户定义类型未定义
.....

我的“引用”与你一致!
您费心再给看看!!,我用的是VB6.0!!谢谢!!
展开
 我来答
远风的梦想家
推荐于2016-04-30 · TA获得超过2550个赞
知道大有可为答主
回答量:1389
采纳率:0%
帮助的人:0
展开全部
Option Explicit
'需要添加一个webbrowser控件 和一个按钮
'引用两个库,在菜单的工程-引用里,找到Microsoft HTML object library和 Microsoft activex data object 2.5/2.6两个库,然后粘贴如下代码
'不明白的百度HI我
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.szse.cn/main/disclosure/news/xxlb/index.shtml?txtStockCodeORname="

End Sub

Private Sub Form_Load()
WebBrowser1.Stop
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As MSHTML.HTMLDocument
Set doc = WebBrowser1.Document
Dim table As MSHTML.HTMLTable
Dim lrow As MSHTML.HTMLTableRow
Dim cel As MSHTML.HTMLTableCell
Set table = doc.getElementById("REPORTID_tab1")
Dim Conn As ADODB.Connection

Dim FLD() As String
Set Conn = CreateObject("ADODB.Connection")

Conn.open "provider=microsoft.jet.oledb.4.0;data source=d:\DB1.MDB"
Set lrow = table.rows(0)
ReDim FLD(0 To lrow.cells.length) As String
Dim i As Integer
Dim tbname As String
Dim sql As String
tbname = InputBox("输入导入数据库的新建的表的名字", "table1")
For i = 0 To lrow.cells.length - 1
FLD(i) = Replace(Replace(Replace(lrow.cells(i).innerText, "/", ""), "(", ""), ")", "")
sql = sql & FLD(i) & " varchar(255),"
Next i
sql = Left(sql, Len(sql) - 1)
Conn.Execute "create table " & tbname & " (" & sql & ")"
Dim j As Integer
sql = ""
For i = 0 To lrow.cells.length - 1
sql = sql & FLD(i) & ","
Next i
sql = Left(sql, Len(sql) - 1)
Dim vlist As String
For i = 1 To table.rows.length - 1
vlist = ""
Set lrow = table.rows(i)
For j = 0 To lrow.cells.length - 1
vlist = vlist & "'" & lrow.cells(j).innerText & "',"
Next j
vlist = Left(vlist, Len(vlist) - 1)
Conn.Execute "insert into " & tbname & " (" & sql & ") values (" & vlist & ")"
Next i

Conn.Close

Set Conn = Nothing
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友30cc6ab
2010-08-02 · TA获得超过574个赞
知道小有建树答主
回答量:1336
采纳率:0%
帮助的人:852万
展开全部
Dim doc As HtmlDocument
Dim table As HtmlElement
Dim tables As HtmlElementCollection
doc = WebBrowser1.Document
tables = doc.GetElementsByTagName( "TABLE ")
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式