VB中WebBrowser控件运用 自动获取网页表格数据 网页表格内容自动提取 VB源码

时间：2014-08-30 15:21:33
【文件属性】：

文件名称：VB中WebBrowser控件运用 自动获取网页表格数据 网页表格内容自动提取 VB源码

文件大小：30KB

文件格式：RAR

更新时间：2014-08-30 15:21:33

VB中WebBrowser运用，读取网页表格内容，网页表格数据获取，网页表格提取，VB源码，VB代码

'此代码发布后，可随意改哈，欢迎光临我的网址导航网站 http://www.97tt.org Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error Resume Next RichTextBox1.Text = "" Dim Tables As IHTMLElementCollection Set Tables = WebBrowser1.Document.getElementsByTagName("Table") Dim Table1 As HTMLTable Dim Row As HTMLTableRow, Cell As HTMLTableCell For Each Table1 In Tables 'Next For i = 1 To Table1.rows.length - 2 ' 逐行处理 Set Row = Table1.rows(i) j = 0 For Each Cell In Row.cells ' 逐列处理 RichTextBox1.Text = RichTextBox1.Text + Trim(Row.cells(j).innerText) + "," j = j + 1 Next ' 一行处理完毕后，去除行尾的逗号并加上回车 RichTextBox1.Text = Left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1) + vbCrLf Next Next End Sub

立即下载

【文件预览】：
Form1.frm
工程3.vbp
工程3.vbw
Form1.frx
网页表格获取.exe

网友评论

  • 作为参考资料吧，触类旁通。感谢楼主分享
  • 很好，很实用
  • 主要是用来学习的，受用了
  • 东西非常好
  • 程序完整好，具体还要测试
  • VB中WebBrowser运用，读取网网页表格数据获取
  • 挺好的，可以用。
  • 很好用，正需要
  • 非常好的资源，正是我所需要的，感觉LZ提供，我找了好多地方都没有找到，感谢CSDN
  • 可以用，值得参考！
  • 谢谢，代码非常好，很有参考价值
  • 很有研究价值，值得学习
  • 有用，学习了！
  • 代码比较完整，很不错的一个例子。。
  • 在vb.net下不可行，对多框架下加载完毕判断不准确。
  • 代码比较完整，很不错的一个例子。。
  • 不错，很好代提供的代码，谢谢
  • 好像不能用啊
  • 代码非常好用，直接省了很多内容，哈哈
  • 代码没有任何问题，只是我把他放在，WebBrowser不忙之后的时间里可以用吗

相关文章