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

xmyjk

额，真的发票的数据借一下，我才能知道真的发票的网页的结构，不然没办法做后续的
不方便透露数据的发短消息给我。我不会外传的。

120HYH

已发，请查收，谢

120HYH

最好是把结果下到EXCEL。能不能不打开IE的情况下把查到信息下载下来。

xmyjk

不打开IE很简单.Visible = false就可以了；或者在窗体上用WEBBROWSER控件替代IE也行
但是还是要把数据下下来再隐藏，我先研究下，窗体里面数据段落的捕捉。

haihunshan

真是有高人啊，能用VBA操作网页。受教了。

wflqj123

正确就写正确，错误就写错误！

xmyjk

下载结果的是写了一部分，但是有点问题
请高手看下，谢谢，如附件
Do While .Busy
DoEvents
Loop
好像根本控制不住。
以附件2 为准。

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

120HYH

请高手帮忙啊。这是个实用价值的东西。谢谢。

120HYH

把网上信息下到另一个工作表或本表的后几列也可以

xmyjk

勉强搞定了，麻烦高手修改下，谢谢

1. Sub Test()
   
2. Dim intnum As Integer
   
3. Dim i As Integer
   
4. Dim strfpdm As String
   
5. Dim strfphm As String
   
6. Dim strxhfswdjh As String
   
7. Dim strxhfmc As String
   
8. Dim sglkpje As Single
   
9. Dim strkprq As String
   
10. Dim Strtext1 As String
    
11. Dim objie1 As Object
    
12. Dim stronm As String
    
13. Dim objdoc As Object
    
14. 
    
15. intnum = Application.WorksheetFunction.CountA([A:A])
    
16. For i = 1 To intnum - 1
    
17. Set objie1 = CreateObject("InternetExplorer.Application")
    
18. With objie1
    
19. .Visible = False
    
20. .navigate "http://app.gd-n-tax.gov.cn/wssw/jsp/common/query/invoice_checking/invoice_checking_input.jsp"
    
21. Do Until .Readystate = 4
    
22. DoEvents
    
23. Loop
    
24. strfpdm = Cells(i + 1, 1).Value
    
25. strfphm = Cells(i + 1, 2).Value
    
26. strxhfswdjh = Cells(i + 1, 3).Value
    
27. strxhfmc = Cells(i + 1, 4).Value
    
28. strkpje = Format(Cells(i + 1, 5).Value, "0.00")
    
29. strkprq = Cells(i + 1, 6).Value
    
30. 
    
31. .document.All("fpdm").Value = strfpdm
    
32. .document.All("fphm").Value = strfphm
    
33. .document.All("xhfswdjh").Value = strxhfswdjh
    
34. .document.All("xhfmc").Value = strxhfmc
    
35. .document.All("kpje").Value = strkpje
    
36. .document.All("kprq").Value = strkprq
    
37. .document.All("check_code").Value = .document.All("INVOICE_CHECKING_CHECKCODE").Value
    
38. .document.All.submit_btn.Click
    
39. 
    
40. Do Until .locationname = "广东省国家税务局发票查验:结果"
    
41. DoEvents
    
42. Loop
    
43. Do Until .Readystate = 4
    
44. DoEvents
    
45. Loop
    
46. Application.Wait (Now + TimeValue("0:00:02"))
    
47. Strtext1 = .document.body.innertext
    
48. Sheets(1).Cells(i + 1, 8) = Strtext1
    
49. End With
    
50. Next i
    
51. MsgBox "Ok"
    
52. End Sub
    

复制代码

EXCEL见附件