ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 37983|回复: 114

网上批量查询发票

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2013-2-20 11:16 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:网页交互
本帖最后由 蓝天630902 于 2013-3-20 11:49 编辑

这是以激动人心的、前所未有的形式开展的工作。

这是一部不可多得的教程。肯定能够让你大开眼界!

不断完善,请及时更新,

由于网址在不断变化,网页不断更新,所以这项工作注定无尽期。


现已已完成:


北京
北京国税
 
 
天津
 
天津地税
 
河北
河北国税
河北地税
 
山西
山西国税
山西地税
 
内蒙古
 
内蒙地税
 
辽宁
辽宁国税
辽宁地税
 
吉林
吉林国税
吉林地税
 
黑龙江
 
 
 
上海
 
 
 
江苏
 
 
 
浙江
浙江国税
浙江地税
浙江国税非网络
安徽
安徽国税
安徽地税
 
福建
福建国税
福建地税
 
江西
 
 
 
山东
山东国税
山东地税
山东公安
河南
河南国税
 
 
湖北
湖北国税
 
 
湖南
 
 
 
广东
 
广东地税
 
广西
广西国税
广西地税
 
海南
 
海南地税
 
重庆
重庆国税
重庆地税
 
四川
四川国税
四川地税
 
贵州
 
 
 
云南
云南国税
云南地税
 
西藏
 
 
 
陕西
陕西国税
陕西地税
 
甘肃
甘肃国税
甘肃地税
 
青海
青海国税
青海地税
 
宁夏
宁夏国税
宁夏地税
 
新疆
新疆国税
新疆地税
 
大连
 
 
 
宁波
 
 
 
厦门
厦门国税
厦门地税
 
青岛
青岛国税
 
青岛国税申报
深圳
 
 
 




发票查询_2003-2.rar (208.1 KB, 下载次数: 2224)

发票查询_2007-2.rar

336.83 KB, 下载次数: 3293

评分

参与人数 19鲜花 +31 收起 理由
YZC51 + 2 太强大了
andy117 + 2 感谢帮助
范德萨 + 2 优秀作品
excel002009 + 2 有您这样的大师出这好贴,将来我应该会学吧
wqfzqgk + 2 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

发表于 2013-2-20 11:32 | 显示全部楼层
本帖最后由 kangatang 于 2013-2-20 14:24 编辑

在这个验证码横行的时代,不自动识别验证码,已经失去批量处理的意义。

感谢蓝天老师的辛苦佳作,击破了各个验证码的障碍,使得批量处理成为可能。

                                                                                ---- kangatang 题词

TA的精华主题

TA的得分主题

发表于 2013-2-20 11:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-2-20 12:15 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-2-21 01:16 | 显示全部楼层
好大的工程!                                                                 

TA的精华主题

TA的得分主题

发表于 2013-2-21 14:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-2-21 15:12 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-2-21 15:20 | 显示全部楼层
我贴上发票信息
发票代码: 1300113140
发票号码:04846857
开票单位:河北中石冶金材料有限公司
票面金额(元):116479.9

TA的精华主题

TA的得分主题

发表于 2013-2-21 19:06 | 显示全部楼层
ccwan 发表于 2013-2-21 15:20
我贴上发票信息
发票代码: 1300113140
发票号码:04846857

呵呵,没河北啥事

TA的精华主题

TA的得分主题

发表于 2013-2-21 21:25 | 显示全部楼层
我发现一个有趣的现象,如果我把图片粘贴到工作表中,验证码的图片会立即会更改,呵呵
      .Navigate "http://www.sd-n-tax.gov.cn/inquiry/inquiry09/tycx/fplxcx.jsp"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Set img = .Document.All.tags("img")(0)
        Set CtrlRange = .Document.body.createControlRange()
        CtrlRange.Add img
        CtrlRange.execCommand "Copy", True
        n = [i65536].End(xlUp).Row + 1
        Cells(n, "h").Select
        ActiveSheet.Paste
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-8-24 12:58 , Processed in 0.104332 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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