ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: gdjxwz

[分享]网页数据下载与控制

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2008-2-16 19:22 | 显示全部楼层

[求助]如何取出网页上表格中图片的地址

本帖已被收录到知识树中,索引项:网页交互

登录163邮箱已经实现,存在一个小问题,请懂的朋友修改一下以下代码,文件见附件:

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'登录163邮箱
    Dim I As Single
    Dim username As String
    Dim password As String
    Dim 登录邮箱 As String
    Dim Doc As Object
On Error GoTo Vend:
    If WebBrowser1.ReadyState <> READYSTATE_COMPLETE Then Exit Sub
    '获得浏览器的文档对象
    Set Doc = WebBrowser1.Document
     
    Doc.body.All("username").Value = Cells(1, 2)
    Doc.body.All("password").Value = Cells(2, 2)
    Doc.body.All("登录邮箱").Click
   If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then Exit Sub

   MsgBox "成功登录"
Vend:
End Sub

AkpvzvfU.rar (11.16 KB, 下载次数: 244)
[此贴子已经被作者于2008-2-16 19:24:30编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-18 11:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

最近工作调动后,比较忙,没有及时回复你的问题,也没有时间专门去替你解决上一次短信提出的问题:

先回答你今天提出的几个问题:(回答的不正确请各位师傅批评指正)

1pDisp.LocationURL 是什么意思?

pDisp是控件,也就是webbrowserLocationURL是当前打开网页的网址

根据查询网页的不同,这个网址可能变化,也可能不变化,设计时,我通常是设置一个断点,看网页是否达到了自己的要求,然后“本地窗口”中查这个网址。

2If pDisp.LocationURL = "http://www.htky365.com/express.asp" 是什么意思?

这个在后面的说明中已说的很清楚了:'查询网页已打开

也就是说,当网址=这个网址时,表示我所需要的网页已打开了,可以进行下一步动作了。

3)我的以下代码【1-4】处为何报错?如何才能实现登录?以163邮箱为例。

至于为什么报错,我刚才说了,不同的网页,使用方法是不同的,比如当网址没有变化时,你使用这个方法就不对了,应改用其它的方法进行比对,看你所需要的网页是否已打开,具体使用什么变量进行比对,我通常是:设置一个断点,然后在“本地窗口”中看哪些变量发生了变化,几次摸索才能最后确定,这个方法很笨,也许其他的大师有更好的意见。

至于2-4的报错,当你的第1个条件不正确时,后面跟着出错很正常。

 

163邮箱登录出错:

我们单位的网络登录163邮箱一直有问题(其它邮箱没问题,怪事,所以我在单位时是无法登录我的163邮箱的),因此出测试不了。大概看了一下:Dim username As String    Dim password As String    Dim 登录邮箱 As String这三句可以不要,当然要也应该没什么问题。

 

TA的精华主题

TA的得分主题

发表于 2008-2-23 14:35 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-2-24 20:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

再次请教

具体问题如下:

我想调用 中国汽车信息网 上的车辆(共有300页,9809种车)的详细参数。

首先打开 车辆列表页 (如图一),车辆是用复选框列出来的,用鼠标点击选中后(每次可以选三个),再点击“详细技术参数”按钮,这样打开了一个新窗口,即“车辆产品详细列表”窗口(如,图二,选不同的车,每次打开的新窗口地址是一样的。采用的调用方法为 POST)。

现在想把新窗口,即“车辆产品详细列表”中的表格内容保存到Excel表中。请问具体如何实现?

图一

图二


附:车型列表网址http://www.autoinfo.gov.cn/app/cpzz/qcsearch_cp.jsp?pages=1&cllb=6&zw=kc&file=kc&cpsb=&cpxh=&cpmc=&pici=&qymc=&wenjian=kc

车辆产品详细技术参数网址http://www.autoinfo.gov.cn/app/cpzz/qcxx.jsp?wenjian=kc 需要从“车型列表网页中 点及按钮打开,直接打开则显示错误。

车辆列表处表格结构如下:

<FORM name=form1 action=qcxx.jsp?wenjian=kc method=post target=_blank encType=multipart/form-data>
<TABLE class=word cellSpacing=0 cellPadding=0 width="80%" align=center border=0>
<TBODY>
<TR>
<TD width=10><INPUT type=checkbox CHECKED value=96801 name=cp_id></TD>
<TD>五菱牌LZW6400CV3客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox CHECKED value=96904 name=cp_id></TD>
<TD>中顺牌SZS6503E1轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox CHECKED value=96963 name=cp_id></TD>
<TD>五菱牌LZW6400C3客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=56146 name=cp_id></TD>
<TD>尼桑牌ZN6453W1G多用途乘用车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=56147 name=cp_id></TD>
<TD>尼桑牌ZN6453WAG多用途乘用车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=95932 name=cp_id></TD>
<TD>黄海牌DD6124K03客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=51039 name=cp_id></TD>
<TD>奥德赛(ODYSSEY)HG6480多用途乘用车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=18571 name=cp_id></TD>
<TD>天坛牌BF6570客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=95323 name=cp_id></TD>
<TD>奥德赛(ODYSSEY)牌HG6480B多用途乘用车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=82849 name=cp_id></TD>
<TD>福田牌BJ6536B1DWA-S轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=92057 name=cp_id></TD>
<TD>依维柯牌NJ6593ER6依维柯轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081127 name=cp_id></TD>
<TD>长安牌SC6761CG3城市客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081062 name=cp_id></TD>
<TD>江铃全顺牌JX6477-M轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081063 name=cp_id></TD>
<TD>江铃全顺牌JX6477A-M轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081064 name=cp_id></TD>
<TD>江铃全顺牌JX6477-L轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081065 name=cp_id></TD>
<TD>江铃全顺牌JX6547-M轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081066 name=cp_id></TD>
<TD>江铃全顺牌JX6547-H轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081067 name=cp_id></TD>
<TD>江铃全顺牌JX6477A-L轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081068 name=cp_id></TD>
<TD>江铃全顺牌JX6547A-M轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081069 name=cp_id></TD>
<TD>江铃全顺牌JX6547A-H轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=07081123 name=cp_id></TD>
<TD>长城牌CC6460VM00轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7071224 name=cp_id></TD>
<TD>合客牌HK6818K客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7051123 name=cp_id></TD>
<TD>宇通牌ZK6126HGB双层观光城市客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7050883 name=cp_id></TD>
<TD>金杯牌SY6513KS1BH轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7050884 name=cp_id></TD>
<TD>金杯牌SY6513KS3BH轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7050733 name=cp_id></TD>
<TD>庆铃牌QL6471PFUS轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7050294 name=cp_id></TD>
<TD>黄海牌DD6181S05城市客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A7050732 name=cp_id></TD>
<TD>庆铃牌QL6471PFUR轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A1390 name=cp_id></TD>
<TD>东风牌ZN6470V1K轻型客车(第F9批)</TD></TR>
<TR>
<TD width=10><INPUT type=checkbox value=A0208 name=cp_id></TD>
<TD>庆铃牌QL6471D12轻型客车(第F9批)</TD></TR>
<TR>
<TD>&nbsp;</TD>
<TD>
<DIV align=center>
<P>&nbsp;</P>
<P><INPUT class=word type=submit value=详细技术参数 name=Submit2> </P></DIV></TD></TR></TBODY></TABLE></FORM>

[此贴子已经被作者于2008-2-24 20:38:14编辑过]

再次请教

再次请教

再次请教

再次请教

TA的精华主题

TA的得分主题

发表于 2008-2-24 20:39 | 显示全部楼层

车辆产品详细参数列表网页结构如下:

<html><HEAD><TITLE>车辆产品详细参数列表</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="index.css" type=text/css rel=stylesheet></HEAD>
<BODY>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD><IFRAME name=content src="/app/news/kc-top.htm" frameBorder=0 width=760 scrolling=no height=230></IFRAME></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD width=140 bgColor=#f0f2f2>&nbsp;</TD>
<TD width=613>
<TABLE cellSpacing=0 cellPadding=0 width="76%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top height=421>
<TABLE height=225 cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top height=225>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><BR>
<TABLE cellSpacing=0 cellPadding=0 width=600 align=center border=0>
<TBODY>
<TR>
<TD bgColor=#cc3300>
<TABLE class=word cellSpacing=1 cellPadding=1 width=613 align=center border=0>
<TBODY>
<TR>
<TD width=100 bgColor=#fff8f4>&nbsp;</TD>
<TD bgColor=#fff8f4>
<DIV align=center><IMG src="/mlsw/3017cz.jpg" width=150> </DIV></TD>
<TD bgColor=#fff8f4>
<DIV align=center><IMG src="/mlsw/2915cr.jpg" width=150> </DIV></TD>
<TD bgColor=#fff8f4>
<DIV align=center><IMG src="/mlsw/4244cp.jpg" width=150> </DIV></TD></TR>
<TR>
<TD bgColor=#fff8f4 colSpan=4>
<DIV align=center>车辆新产品技术参数</DIV>
<DIV align=center></DIV></TD></TR>
<TR>
<TD bgColor=#fff8f4>产品型号名称</TD>
<TD bgColor=#fff8f4>QL6471PFUR轻型客车 </TD>
<TD bgColor=#fff8f4>ZN6470V1K轻型客车 </TD>
<TD bgColor=#fff8f4>QL6471D12轻型客车 </TD></TR>
<TR>
<TD bgColor=#fff8f4>产品商标</TD>
<TD bgColor=#fff8f4>庆铃牌 </TD>
<TD bgColor=#fff8f4>东风牌 </TD>
<TD bgColor=#fff8f4>庆铃牌 </TD></TR>
<TR>
<TD bgColor=#fff8f4>企业名称</TD>
<TD bgColor=#fff8f4>庆铃汽车股份有限公司 </TD>
<TD bgColor=#fff8f4>郑州日产汽车有限公司 </TD>
<TD bgColor=#fff8f4>庆铃汽车股份有限公司 </TD></TR>
<TR>
<TD bgColor=#fff8f4>企业地址</TD>
<TD bgColor=#fff8f4>重庆市九龙坡区中梁山协兴村1号 </TD>
<TD bgColor=#fff8f4>郑州市陇海东路62号 </TD>
<TD bgColor=#fff8f4>重庆市九龙坡区中梁山协兴村1号 </TD></TR>
<TR>
<TD bgColor=#fff8f4>电话号码</TD>
<TD bgColor=#fff8f4>(023)65260152 </TD>
<TD bgColor=#fff8f4>(0371)62169692 </TD>
<TD bgColor=#fff8f4>(023)65265674 </TD></TR>
<TR>
<TD bgColor=#fff8f4>传真号码</TD>
<TD bgColor=#fff8f4>(023)65265674 </TD>
<TD bgColor=#fff8f4>(0371)62169725 </TD>
<TD bgColor=#fff8f4>(023)65265674 </TD></TR>
<TR>
<TD bgColor=#fff8f4>邮政编码</TD>
<TD bgColor=#fff8f4>400052 </TD>
<TD bgColor=#fff8f4>450004 </TD>
<TD bgColor=#fff8f4>400052 </TD></TR>
<TR>
<TD bgColor=#fff8f4>外形尺寸(mm)<BR>长\宽\高 </TD>
<TD bgColor=#fff8f4>4710 * 1865 * 1880 </TD>
<TD bgColor=#fff8f4>4731 * 1695 * 1825 </TD>
<TD bgColor=#fff8f4>4710 * 1865 * 1835,1880 </TD></TR>
<TR>
<TD bgColor=#fff8f4>燃料种类</TD>
<TD bgColor=#fff8f4>汽油 </TD>
<TD bgColor=#fff8f4>汽油 </TD>
<TD bgColor=#fff8f4>汽油 </TD></TR>
<TR>
<TD bgColor=#fff8f4>排放依据标准</TD>
<TD bgColor=#fff8f4>GB18352.3-2005国III </TD>
<TD bgColor=#fff8f4>GB18352.3-2005国Ⅲ </TD>
<TD bgColor=#fff8f4>GB18352.2-2001,GB18285-2005 </TD></TR>
<TR>
<TD bgColor=#fff8f4>排量(ml)/功率(kw)</TD>
<TD bgColor=#fff8f4>2499 / 85 </TD>
<TD bgColor=#fff8f4>2488 / 117.7 </TD>
<TD bgColor=#fff8f4>2499 / 85 </TD></TR>
<TR>
<TD bgColor=#fff8f4>转向型式</TD>
<TD bgColor=#fff8f4>方向盘 </TD>
<TD bgColor=#fff8f4>方向盘 </TD>
<TD bgColor=#fff8f4>方向盘 </TD></TR>
<TR>
<TD bgColor=#fff8f4>货厢栏板内尺寸(mm) <BR>长\宽\高</TD>
<TD bgColor=#fff8f4>- \ - \ - </TD>
<TD bgColor=#fff8f4>- \ - \ - </TD>
<TD bgColor=#fff8f4>- \ - \ - </TD></TR>
<TR>
<TD bgColor=#fff8f4>轴数</TD>
<TD bgColor=#fff8f4>2 </TD>
<TD bgColor=#fff8f4>2 </TD>
<TD bgColor=#fff8f4>2 </TD></TR>
<TR>
<TD bgColor=#fff8f4>轴距(mm)</TD>
<TD bgColor=#fff8f4>2760 </TD>
<TD bgColor=#fff8f4>2695 </TD>
<TD bgColor=#fff8f4>2760 </TD></TR>
<TR>
<TD bgColor=#fff8f4>钢板弹簧片数</TD>
<TD bgColor=#fff8f4>-/4,-/5 </TD>
<TD bgColor=#fff8f4>-/- </TD>
<TD bgColor=#fff8f4>-/4,-/5 </TD></TR>
<TR>
<TD bgColor=#fff8f4>轮胎规格</TD>
<TD bgColor=#fff8f4>LT245/75R16,P245/75R16,LT235/75R15,P235/75R15 </TD>
<TD bgColor=#fff8f4>205/65R15 </TD>
<TD bgColor=#fff8f4>LT245/75R16,LT235/75R15 </TD></TR>
<TR>
<TD bgColor=#fff8f4>轮胎数</TD>
<TD bgColor=#fff8f4>4 </TD>
<TD bgColor=#fff8f4>4 </TD>
<TD bgColor=#fff8f4>4 </TD></TR>
<TR>
<TD bgColor=#fff8f4>轮距前/后(mm)</TD>
<TD bgColor=#fff8f4>1425 / 1440 </TD>
<TD bgColor=#fff8f4>1490 / 1475 </TD>
<TD bgColor=#fff8f4>1425 / 1440 </TD></TR>
<TR>
<TD bgColor=#fff8f4>总质量(kg)</TD>
<TD bgColor=#fff8f4>2200 </TD>
<TD bgColor=#fff8f4>2180 </TD>
<TD bgColor=#fff8f4>2200 </TD></TR>
<TR>
<TD bgColor=#fff8f4>额定载质量(kg)</TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD></TR>
<TR>
<TD bgColor=#fff8f4>整备质量(kg)</TD>
<TD bgColor=#fff8f4>1720 </TD>
<TD bgColor=#fff8f4>1635 </TD>
<TD bgColor=#fff8f4>1720 </TD></TR>
<TR>
<TD bgColor=#fff8f4>准拖挂车总质量(kg)</TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD></TR>
<TR>
<TD bgColor=#fff8f4>载质量利用系数</TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD></TR>
<TR>
<TD bgColor=#fff8f4>半挂车鞍座最大允许承载质量(kg)</TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD></TR>
<TR>
<TD bgColor=#fff8f4>额定载客(含驾驶员)(人)</TD>
<TD bgColor=#fff8f4>5 </TD>
<TD bgColor=#fff8f4>7 </TD>
<TD bgColor=#fff8f4>5 </TD></TR>
<TR>
<TD bgColor=#fff8f4>驾驶室准乘人数(人)</TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>- </TD></TR>
<TR>
<TD bgColor=#fff8f4>接近角/离去角(°)</TD>
<TD bgColor=#fff8f4>30/28 </TD>
<TD bgColor=#fff8f4>18/18 </TD>
<TD bgColor=#fff8f4>30/28 </TD></TR>
<TR>
<TD bgColor=#fff8f4>前悬/后悬(mm)</TD>
<TD bgColor=#fff8f4>805/1145 </TD>
<TD bgColor=#fff8f4>890/1146 </TD>
<TD bgColor=#fff8f4>805/1145 </TD></TR>
<TR>
<TD bgColor=#fff8f4>最高车速(km/h)</TD>
<TD bgColor=#fff8f4>135 </TD>
<TD bgColor=#fff8f4>175 </TD>
<TD bgColor=#fff8f4>135 </TD></TR>
<TR>
<TD bgColor=#fff8f4>底盘型号、类别及生产企业:</TD>
<TD bgColor=#fff8f4>
<TABLE class=word cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>QL6471PFURS<BR>庆铃汽车股份有限公司<BR>三类<BR></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE></TD>
<TD bgColor=#fff8f4>
<TABLE class=word cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>承载式车身<BR></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE></TD>
<TD bgColor=#fff8f4>
<TABLE class=word cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>QL6471D12<BR>庆铃汽车股份有限公司<BR>三类<BR></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#fff8f4>发动机型号及生产企业:</TD>
<TD bgColor=#fff8f4>
<TABLE class=word cellSpacing=0 cellPadding=0 width="100%" border=0>4ZF3-MPI<BR>庆铃汽车股份有限公司<BR></TR>
<TBODY></TBODY></TABLE></TD>
<TD bgColor=#fff8f4>
<TABLE class=word cellSpacing=0 cellPadding=0 width="100%" border=0>QR25N<BR>裕隆汽车制造股份有限公司<BR></TR>
<TBODY></TBODY></TABLE></TD>
<TD bgColor=#fff8f4>
<TABLE class=word cellSpacing=0 cellPadding=0 width="100%" border=0>4ZF1-MPI<BR>庆铃汽车股份有限公司<BR></TR>
<TBODY></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#fff8f4>车辆识别代号(vin):</TD>
<TD bgColor=#fff8f4>LWLUCRPC××××××××× </TD>
<TD bgColor=#fff8f4>LJNMEV1N××××××××× </TD>
<TD bgColor=#fff8f4>LWLUCRMC××××××××× </TD></TR>
<TR>
<TD bgColor=#fff8f4>其他:</TD>
<TD bgColor=#fff8f4>- </TD>
<TD bgColor=#fff8f4>车身可粘贴喷涂图案和行业标识。不带OBD </TD>
<TD bgColor=#fff8f4>1.该车可选装行李架,此时车高为1880mm。 </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD width=140 bgColor=#f0f2f2>&nbsp;</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD><IFRAME name=content src="/app/news/kc-bottom.htm" frameBorder=0 width=760 scrolling=no height=300></IFRAME></TD></TR></TBODY></TABLE></BODY></html>

TA的精华主题

TA的得分主题

发表于 2008-2-29 10:10 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-29 10:57 | 显示全部楼层

不好意思,今天才上网。

方法2 的回复:

②方法二: 遍历已打开的IE窗口 ——>> 找到“结果网页”的hwnd(句柄),置为当前——>>

然后模拟鼠标点击一下,再sendkey:全选、复制、关闭网页——>>最后在EXCEL中粘贴。

可以给我做个完整的示例吗?我试了好多次都没做到。

这个不是在内容里已有全部的代码了吗?只不过是分两块写的,而且都有注释,应该是很清楚了的。以前我有做个这样的实例,不过是在VB中写的,想来VBA应该差不多。这中间涉及到API函数的定义,不知你定义了没有。

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-29 11:31 | 显示全部楼层

关于车辆查询的问题,呵呵,专门搞复杂的问题来问哦。

看了一下,谈一谈自己的看法,要我做一个程序出来,达到你的要求,没有一整天的时间,我是做不出来的。

谈一谈自己的想法吧:

首先说网址:

http://www.autoinfo.gov.cn/app/cpzz/qcsearch_cp.jsp?pages=1&cllb=6&zw=kc&file=kc&cpsb=&cpxh=&cpmc=&pici=&qymc=&wenjian=kc

请注意:pages=1,我查了一下,最后一页pages=330,不过这个页码可能会随着车辆数量的增加而变化,万一不行,先点击一下“最后一页”查一下这个网址了。

知道了不同的页码的不同的网址,下一步当然用循环了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-29 11:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

查询:

这个结果网页是:新开窗口,网址相同,直接打开出错。呵呵,麻烦堆一起了,控制起来很不方便。试试看

[此贴子已经被作者于2008-2-29 16:02:25编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2008-2-29 15:56 | 显示全部楼层

今天下午刚好有时间,试了好几种方法都不行,不好意思。

看来只有请winland出手了。

期待中!

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-22 18:05 , Processed in 0.046184 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表