双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

vb 如何抓取网页form里的表格数据

2011-02-22 12:05:21 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

varrior 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB开发者必备：SeleniumBasic实现浏览器自动化与数据抓取浏览器自动化是现代软件开发与数据处理中的关键技术，它通过程序控制浏览器行为，模拟用户操作。其核心原理基于WebDriver协议，该协议定义了与浏览器交互的标准接口，允许外部程序发送指令驱动浏览器。这项技术的价值在于能够将重复性、规律性的网页操作自动化，极大提升工作效率和准确性。在工程实践中，浏览器自动化广泛应用于Web自动化测试、数据采集（爬虫）、报表自动生成、系统集成等场景。对于Visual Basic（VB6/VBA）开发者而言，SeleniumBasic是一个关键的COM封装库，它巧妙地将Seleni 阅读详情

vb 如何抓取网页form里的表格数据？？
如<form name="dfd" post="\h.htnl">
<td> 123 </td>
</form>
如何抓取数据“123”呢？请教各位大侠了，先谢过。

...全文

VB/VBA浏览器自动化实战：SeleniumBasic安装、元素定位与数据抓取浏览器自动化是提升数据处理与软件测试效率的关键技术，其核心原理是通过程序指令模拟用户操作浏览器。Selenium WebDriver作为业界标准，为多种编程语言提供了实现这一能力的基础。对于VB/VBA开发者而言，SeleniumBasic通过COM技术封装了WebDriver，使其能在熟悉的VB6或Office VBA环境中无缝集成，直接驱动Chrome等主流浏览器。这项技术的价值在于，它能将繁琐、重复的网页操作（如数据抓取、表单填写）自动化，尤其适用于需要与Web服务交互的遗留系统或办公自动化场景。通过阅读详情

varrior

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

无·法 2011-03-11

打赏
举报

显然是客户端，而且还是vb内嵌webbrowser的形式。方法有二：
1.直接dhtml方式访问获取，参考11楼。
2.用document.body.innerhtml得到页面源代码，然后用vb字符串处理函数分析取得，或者用正则。

另外如果不用webbrowser的话可以用xmlhttp下载得到页面源代码，然后处理方法同上面的2。

vansoft 2011-03-11

打赏
举报

你在哪儿抓取啊？
客户端和服务端的方法是不一样的。

pdprf 2011-03-10

打赏
举报

WEBBROWSER1.document.getElementsByTagName("table")(2).rows(0).cells(2).innerText

'rows代表行
'cells代表列
'自己修改一下012这些数据即可.

csorca 2011-02-23

打赏
举报

Public Function FindStrMulti$(Strall$, FirstStr$, EndStr$, SplitStr$) '提取字符串或网页源代码中所有指定代码
'参数
'总文本,起始字符串,终止字符串,分隔符
Dim i&, j&
j = 1
Do
i = InStr(j, Strall, FirstStr)
If i = 0 Then
Exit Do
End If
i = i + Len(FirstStr)
j = InStr(i, Strall, EndStr)
If j > 0 Then
FindStrMulti = IIf(Len(FindStrMulti) > 0, FindStrMulti & SplitStr, "") & Mid(Strall, i, j - i)
Else
Exit Do
End If
Loop
End Function

这个函数可以截取指定字符串之间的内容哦

msgbox FindStrMulti(str1, "<td>", "</td>", "")

天锋 2011-02-23

打赏
举报

Private Sub Command1_Click()
a = "<form name=""dfd"" post=""\h.htnl""><table><td> 123 </td></table></form>"
b = InStr(a, "<td>")
c = InStr(a, "</td>")
MsgBox Replace(Replace(Mid(a, b), "<td>", ""), Mid(a, c), "")

End Sub

简单地写了一下，根据你的要求，但是还有很多别的方法的。

zydscaline 2011-02-23

打赏
举报

[Quote=引用 7 楼 sushy001 的回复:]
document.getElementByName("dfd").childNodes[0].childNodes[0].innerText
[/Quote]这样就行？

sushy001 2011-02-23

打赏
举报

document.getElementByName("dfd").childNodes[0].childNodes[0].innerText

zzyong00 2011-02-23

打赏
举报

ID总是有的，如果不是显式的赋值，哪么默认就是0 1 2 ............

神马被哪个妞占用了呢 2011-02-22

打赏
举报

可用正则表达式，取出网页源码后，过滤掉所有<>内的内容。

三断笛 2011-02-22

打赏
举报

因为form有name,且还有其他属性,所以可以先取到form对象,再取form下的table,因为form下只有一个table.
还可以遍历DOM的td元素.

如果html符合xml规范,还可以用xml Dom查询到.
直接分析字符串,或用正则也能搞定吧,方法多多

hdigboy0451 2011-02-22

打赏
举报

找123两边的特征啊，你是怎么找到123的程序就是怎么找的。找到123前面字符的特征，再找后面字符的特征，用MID处理字符串就能找到123

ah_2018 2011-02-22

打赏
举报

xmlhttp啊。或者WEBBROWER,网上教程一大堆。

varrior 2011-02-22

打赏
举报

不好意思，搞错了一个地方。
如<form name="dfd" post="\h.htnl">
<table>
<td> 123 </td>
</table>
</form>
如何抓取数据“123”呢,tabel 什么标示都没有，ID,Name都没有？请教各位大侠了，先谢过。

✦双11狂欢大促✦

vb 如何抓取网页form里的表格数据

相关推荐

双11狂欢大促