/ VB中WebBrowser控件运用自动获取网页表格数据网页表格内容自动提取VB源码
VB中WebBrowser控件运用自动获取网页表格数据网页表格内容自动提取VB源码
VB中WebBrowser控件运用自动获取网页表格数据网页表格内容自动提取VB源码
'此代码发布后，可随意改哈，欢迎光临我的网址导航网站http://www.97tt.orgPrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias_"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,_ByVallpFileAsString,ByVallpParametersAsString,_ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubCommand2_Click()OnErrorResumeNextRichTextBox1.Text=""DimTablesAsIHTMLElementCollectionSetTables=WebBrowser1.Document.getElementsByTagName("Table")DimTable1AsHTMLTableDimRowAsHTMLTableRow,CellAsHTMLTableCellForEachTable1InTables'NextFori=1ToTable1.rows.length-2'逐行处理SetRow=Table1.rows(i)j=0ForEachCellInRow.cells'逐列处理RichTextBox1.Text=RichTextBox1.Text+Trim(Row.cells(j).innerText)+","j=j+1Next'一行处理终了后，去除行尾的逗号并加上回车RichTextBox1.Text=Left(RichTextBox1.Text,Len(RichTextBox1.Text)-1)+vbCrLfNextNextEndSub
'此代码发布后，可随意改哈，欢迎光临我的网址导航网站http://www.97tt.orgPrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias_"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,_ByVallpFileAsString,ByVallpParametersAsString,_ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubCommand2_Click()OnErrorResumeNextRichTextBox1.Text=""DimTablesAsIHTMLElementCollectionSetTables=WebBrowser1.Document.getElementsByTagName("Table")DimTable1AsHTMLTableDimRowAsHTMLTableRow,CellAsHTMLTableCellForEachTable1InTables'NextFori=1ToTable1.rows.length-2'逐行处理SetRow=Table1.rows(i)j=0ForEachCellInRow.cells'逐列处理RichTextBox1.Text=RichTextBox1.Text+Trim(Row.cells(j).innerText)+","j=j+1Next'一行处理终了后，去除行尾的逗号并加上回车RichTextBox1.Text=Left(RichTextBox1.Text,Len(RichTextBox1.Text)-1)+vbCrLfNextNextEndSub
文件下载
资源详情
[{"title":"（5个子文件30KB）VB中WebBrowser控件运用自动获取网页表格数据网页表格内容自动提取VB源码","children":[{"title":"Form1.frm <span style='color:#111;'>4.67KB</span>","children":null,"spread":false},{"title":"工程3.vbp <span style='color:#111;'>1.35KB</span>","children":null,"spread":false},{"title":"工程3.vbw <span style='color:#111;'>53B</span>","children":null,"spread":false},{"title":"Form1.frx <span style='color:#111;'>29.34KB</span>","children":null,"spread":false},{"title":"网页表格获取.exe <span style='color:#111;'>60.00KB</span>","children":null,"spread":false}],"spread":true}]
评论信息
-
-
-
eduedu530:作为参考资料吧，触类旁通。感谢楼主分享2019-06-27 -
weixin_43194916:很好，很实用2018-10-25
-
hujian198198:主要是用来学习的，受用了2018-08-16
-
libaotian12:东西非常好2018-02-22
-
areyong:程序完整好，具体还要测试2017-05-08
其他资源
- 德勤人工智能制造业使用调查
- 领取宝即时到账在线语音音效生成器html源码
- 多线程：可见性、有序性、原子性.xmind
- 河北工业大学考研参考.zip
- 中科大最新《深度学习时髦应用》
- .net毕业生实训管理源码.zip
- 基于Linux系统推箱子.c
- C++大学教程(第七版)].(美)戴特尔习题谜底.zip
- ibm_data_server_client_win32_v11.5.part2.rar
- SDSM降尺度模型v5.2软件
- Centos7下如何安装MySQL主从集群.doc
- PrinciplesofEngineeringThermodynamicsSIVersion.pdf
- totp-c-1.0.zip
- 翻译PDF实现
- 统计推断高清中文
- MFC实现简单的学生管理系统
- 基于LabVIEW的二级倒立摆控制零碎三维仿真
- 华大半导体MCU引见20180622.pdf
- JDK环境配置.txt
- OFFICE2003_SP3_5in1.exe
免责申明
【好快吧下载】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【好快吧下载】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【好快吧下载】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，8686821#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，8686821#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明