|
采用VB从网页上获取数据 [复制链接] 本帖最后由 crro 于 2012-2-14 21:45 编辑 加入有一个网页：HTTP://127.0.0.1/1.asp?id=1,表示查询ID=1时的数据，如果要查询ID=2时的数据时网址变成了：HTTP://127.0.0.1/1.asp?id=2，以此类推。 现在要做一个EXCEL文件，在一个表格中填写入“1”、“2”、“3”等数据，添加一个提交按钮，当按钮按下之后，会提取到对应网址：http://127.0.0.1/1.asp?id=1、[url=http://127.0.0.1/1.asp?id=2、HTTP://127.0.0.1/1.asp?id=3[/url],HTTP://127.0.0.1/1.asp?id=2]HTTP://127.0.0.1/1.asp?id=2、HTTP://127.0.0.1/1.asp?id=3相应的数据。 请问各位大侠可否用VB实现？程序该怎么写啊？ 分享0 收藏5 有用0 无用0 猜您喜欢 Excel vba 控制网页进行数据提交的问题，求大大们帮助 Excel 关于网页操作中碰到的几个问题 如何利用VBA关闭360浏览器？ Excel 如何通过Web浏览器获取Js变量值？ Excel 为什么win7下excel的web查询速度很慢？ 用vba随意控制音乐播放 百度推荐 举报 1234 xmyjk 12105 财富 97 鲜花 15 技术 等级 6EH能手 积分排行221帖子3197精华1微积分0 串个门 加好友 打招呼 发消息 2楼 发表于 2012-2-15 09:42:30 |只看该作者 ★《精粹》中的精粹：成为Excel高手的捷径★ ★《循序渐进学Excel》视频教程免费教您起步★ 内网吧，没有源代码，爱莫能助。 举报 crro 63 财富 0 鲜花 0 技术 等级 1EH新人 积分排行3000+帖子5精华0微积分0 串个门 加好友 打招呼 发消息 3楼 发表于 2012-2-15 11:45:20 |只看该作者 ★《Excel 2007实战技巧精粹》白金打造，重装上阵 配套视频教程免费下载中★ xmyjk 发表于 2012-2-15 09:42 内网吧，没有源代码，爱莫能助。 比如网址：http://dict.cn/yes，可以得到yes的翻译结果，如果网址http://dict.cn/love，可以得到love的翻译结果。 现在要做一个EXCEL文件，在表格中输入想要查询的单词，然后提交。可以获取对应网页的数据，也就是输入单词的翻译结果。 请问该怎么实现，谢谢大侠。 举报 xmyjk 12105 财富 97 鲜花 15 技术 等级 6EH能手 积分排行221帖子3197精华1微积分0 串个门 加好友 打招呼 发消息 4楼 发表于 2012-2-15 12:42:46 |只看该作者 ★财务、会计、人力资源、行政、生管、销售、市场、学校管理：Excel 行业应用系列视频课程精彩放送中★ crro 发表于 2012-2-15 11:45 比如网址：http://dict.cn/yes，可以得到yes的翻译结果，如果网址http://dict.cn/love，可以得到love的翻 ... Option Explicit Sub test() Dim tmp() As String, i As Integer, arr() As String, xmlhttp As Object, brr, p& brr = Range([a2], [a65536].End(3).Offset(, 1)).Value For p = 1 To UBound(brr) Set xmlhttp = CreateObject("Microsoft.XMLHTTP") With xmlhttp .Open "get", "http://dict.cn/" & brr(p, 1), False .send tmp = Filter(Split(.responsetext, """/>"), "edit-exp-dd[]"" value=""") End With ReDim arr(UBound(tmp)) For i = 0 To UBound(tmp) arr(i) = Split(tmp(i), "edit-exp-dd[]"" value=""")(1) Next brr(p, 2) = Join(arr, ";") Erase tmp Erase arr Next Set xmlhttp = Nothing [a2].Resize(UBound(brr), 2) = brr MsgBox "Ok" End Sub
|
|
|
