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

xmyjk

已经整理完毕，已建电梯了哈。

由于工作性质，经常要查验发票
需要在厦门国税（http://www.xm-n-tax.gov.cn/nsfw/fpcx/fpzwcx/）这个网站里面查询发票状况
由于发票量每次都很大，一张一张手工查非常费时间，效率很低。
现在采用VBA进行批量自动查询，并下载结果到excel相应区域。

XMLHTTP的做法见48楼(http://club.excelhome.net/viewth ... =1139642#pid4606410)。
webquery方式见67楼(http://club.excelhome.net/viewth ... =1139642#pid4611278)。

广东国税（http://app.gd-n-tax.gov.cn/wssw/ ... _checking_input.jsp）的查询自动化也做好了，
XMLHTTP方式在59楼(http://club.excelhome.net/viewth ... =1139642#pid4609725)。
WEBBROWSER做法在32楼(http://club.excelhome.net/viewth ... =1139642#pid4564692)。
webquery方式在67楼(http://club.excelhome.net/viewth ... =1139642#pid4611278)。
IE方式的在30楼（http://club.excelhome.net/viewth ... =1139642#pid4564303）

河南国税（http://www.12366.ha.cn/server/fpzwcx/index.jsp）的XMLHTTP方式也做好了，在89楼(http://club.excelhome.net/viewth ... =1139642#pid4631262)。

武汉国税的（http://219.140.196.6/cms/wh05/index.jsp）的XMLHTTP方式查询的在第113楼（http://club.excelhome.net/viewth ... =1139642#pid4767934）

另外帮其他网友也顺带解决了一些网页控制的问题，
IE控制方面又增加了，弹出窗口方式的网页，通过修改页面代码，改为本页转向的方式后，再进行页面控制，讲解见112楼(http://club.excelhome.net/viewth ... =1139642#pid4693071)

东莞地税（http://www.gdltax.gov.cn/portal/ ... rtletStyleName=menu）的XMLHTTP也做好了，见：http://club.excelhome.net/viewth ... =1139642#pid4897232

再次谢谢lsftest的帮助和指点。

[ 本帖最后由 xmyjk 于 2011-5-20 23:34 编辑 ]

120HYH

这个有实用价值，请高手出招

120HYH

这个查询网上发票，确实有用。请高手做啊。

xmyjk

有高手能帮个忙么，尝试了几种方式都做不出来

120HYH

高手呢。我也想知道！

xmyjk

自己先顶一个，通过论坛的内容帮助，我现在已经会表单查询了，只剩下下载网页和从工作表取数据了，继续完善ING，也望高手们帮助
先把自己的代码贴出来，望纠正，谢谢

Sub Gotochaxun()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.xm-n-tax.gov.cn/nsfw/fpcx/fpzwcx/"
Do Until .ReadyState = 4
DoEvents
Loop
.document.All("szsat.fpzw.fpdm").Value = "11111111"
.document.All("szsat.fpzw.fphm").Value = "111111"
.document.form.submit
End With
End Sub

120HYH

请高手们再出手相助。谢谢。

120HYH

我试了，不能工作表一行一行取数，及下载数据。请大家完善。

xmyjk

1. Sub Gotochaxun()
   
2. Dim intnum As Integer
   
3. Dim i As Integer
   
4. Dim strdaima As String
   
5. Dim strhaoma As String
   
6. 
   
7. intnum = Application.WorksheetFunction.CountA([A:A])
   
8. With CreateObject("InternetExplorer.Application")
   
9. .Visible = True
   
10. .navigate "http://www.xm-n-tax.gov.cn/nsfw/fpcx/fpzwcx/"
    
11. Do Until .ReadyState = 4
    
12. DoEvents
    
13. Loop
    
14. For i = 1 To intnum - 1
    
15. strdaima = Cells(i + 1, 1).Value
    
16. strhaoma = Cells(i + 1, 2).Value
    
17. .document.All("szsat.fpzw.fpdm").Value = strdaima
    
18. .document.All("szsat.fpzw.fphm").Value = strhaoma
    
19. .document.form1.submit
    
20. Next i
    
21. End With
    
22. End Sub
    

复制代码

文件见附件，现在继续完善读取弹出窗口到EXCEL工作表的步骤。

120HYH

兄弟确是是牛，谢谢。