ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[已解决] 用EXCEL实现网页上批量查询发票(谢谢lsftest,xmlhttp,IE/webbrowser,webquery均做出)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2011-1-11 13:48 | 显示全部楼层

兄弟牛人,谢谢,能不能再进一步,不打开IE,即不打开网站啊。谢

本帖已被收录到知识树中,索引项:网页交互
兄弟牛人,谢谢,能不能再进一步,不打开IE,即不打开网站啊。谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-1-11 15:06 | 显示全部楼层

回复 31楼 120HYH 的帖子

你指的不打开IE是什么意思,我最后一个附件就是隐藏了IE的打开
如果不打开IE的话,一样还是要上网的
不打开IE的话,就是要采用WEBBROWSER的控件了

东莞的兄弟,WEBBROWSER的控件的处理好了,看本楼的附件。
XMLHTTP和webquery等还在研究中,你这个不会弹出IE的先用吧

[ 本帖最后由 xmyjk 于 2011-1-14 00:22 编辑 ]

东莞发票WEBBROW版.rar

14.84 KB, 下载次数: 928

TA的精华主题

TA的得分主题

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

好,谢谢啊。意思是网页不打开。就可以取数。

好,谢谢啊。意思是网页不打开。就可以取数。

TA的精华主题

TA的得分主题

发表于 2011-1-11 15:50 | 显示全部楼层
发票代码:123456
发票号码:654321

http://www.xm-n-tax.gov.cn/Brows ... at.fpzw.fphm=654321

发票代码:888888
发票号码:999999

http://www.xm-n-tax.gov.cn/Brows ... at.fpzw.fphm=999999

http://club.excelhome.net/viewth ... p;extra=&page=1

由于你没有提供有效的发票号码、代码,所以现在只知道无效的发票查询是这样的,不知道有效的查询是否也是这样的。。自己试试吧。。

不要干坏事。。。。。

[ 本帖最后由 lsftest 于 2011-1-11 16:07 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-1-11 16:08 | 显示全部楼层

楼上兄弟,是如何做的

楼上兄弟,是如何做的

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-1-11 16:24 | 显示全部楼层

回复 35楼 120HYH 的帖子

你可以下载下30楼的附件
那个东东已经是网页不打开,就可以取数。
所以我有点不明白你的需求。
因为表单的东西,而且是有验证码的网站,使用POST的查询方式好像很难办到,或者如果有高手看到,也麻烦看看东莞兄弟的这个问题
我只能做到还是聪网页控件的取值。

[ 本帖最后由 xmyjk 于 2011-1-11 16:26 编辑 ]

TA的精华主题

TA的得分主题

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

回复 34楼 lsftest 的帖子

高手啊
http://www.xm-n-tax.gov.cn/Brows ... at.fpzw.fphm=654321
谢谢了,我明白了,这样就不用考虑弹出窗口的问题了,十分感谢,谢谢
我也是工作需求,不会干坏事。
就是东莞兄弟的那个查询网站,是有验证码的,因此请教下,如果采用以上的方式,可以绕开验证码么?

[ 本帖最后由 xmyjk 于 2011-1-11 16:31 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-1-11 17:45 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 xmyjk 于 2011-1-11 16:29 发表
高手啊
http://www.xm-n-tax.gov.cn/Brows ... out.jsp&szsat.f ...

由于没有实际有效的发票数据作测试,所以不知道参数返回服务器后服务器还会不会校验,所以不好说,不过这网站设计得不怎的,校验码可以轻松取得吧。。
建一个Webquery连到那站上去,发送参数:
fpdm=11111&fphm=22222&xhfswdjh=00000000000000000000&xhfmc=34rfdf&kpje=33333&kprq=2011-01-03&INVOICE_CHECKING_CHECKCODE=7000&check_code=7000
上面:
发票代码:11111
发票号码:22222
税务登记号:一串0,你自己用要查询的登记号代替吧。
销货方:34rfdf
开票金额:33333
日期:2011-01-03
校验码:7000
如何做查询看我上面第三个链结贴里的那些回复。

但由于也没有有效的发票数据作测试,现在这个查询返回的结果是告诉你“销货方名称有误!请确认您输入的销货方(收款方)名称是否正确。”,同样地,也不知道还会不会再作校验码的验证,但原理就这样,自己试试吧。。

不要做坏事。。。。

TA的精华主题

TA的得分主题

发表于 2011-1-11 19:54 | 显示全部楼层
原帖由 xmyjk 于 2011-1-11 16:29 发表
高手啊
http://www.xm-n-tax.gov.cn/Brows ... out.jsp&szsat.f ...

你的情况可能跟东莞那位朋友的有些不同,如果你用实际的发票数据试过我上面说的方法是有效的,那么建议直接使用xmlhttp来提交网址,接收返回网页源码判断结果作保存就是了,使用xmlhttp的原因是因为这东西速度比webbrowser、inet这些方法速度快。
在vb中怎么使用xmlhttp在网上搜搜就有,很多。。。

TA的精华主题

TA的得分主题

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

以上各位大师好。我刚来上网。不好意思。谢谢帮忙。

以上各位大师好。我刚来上网。不好意思。谢谢帮忙。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-6-15 15:28 , Processed in 0.039291 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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