网上批量查询发票

蓝天630902

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

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

不断完善，请及时更新，

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


现已已完成：

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

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

2013-3-20 11:49 上传

点击文件名下载附件

kangatang

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

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

                                                                                ---- kangatang 题词

少如

老师过年好!
您能否作一个2003版的贴上来吗?
谢谢!

JLF2003

蓝老师新年快乐!
作品很有实用价值,谢谢!

liucqa

好大的工程！                                                                 

luckeyyang

蓝天老师辛苦了！

luckeyyang

我 试验时  提示找不到工程或对象。。。。。

ccwan

我贴上发票信息
发票代码： 1300113140
发票号码：04846857
开票单位：河北中石冶金材料有限公司
票面金额(元)：116479.9

cumulonimbus

ccwan 发表于 2013-2-21 15:20
我贴上发票信息
发票代码： 1300113140
发票号码：04846857

呵呵，没河北啥事

cumulonimbus

我发现一个有趣的现象，如果我把图片粘贴到工作表中，验证码的图片会立即会更改，呵呵
      .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