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

120HYH · 发表于 2011-1-10 18:58

大师们。象我们东莞的，这个能做吗？有验证啊，请帮忙

http://app.gd-n-tax.gov.cn/wssw/ ... _checking_input.jsp

xmyjk · 发表于 2011-1-10 19:14

兄弟，你的我研究了下，也是表单，用POST方法
不过你的存在一个验证码，这个比较头疼，除了验证码的，我都能搞定，验证码的还是需要高手出来帮个忙。
有人能帮忙吗，谢谢了。

噢，那个验证码好像没用，可以再源代码中取到，我看看能不能做出来，兄弟，等下。

[ 本帖最后由 xmyjk 于 2011-1-10 19:45 编辑 ]

120HYH · 发表于 2011-1-10 19:59

好的，谢谢兄弟啊。

xmyjk · 发表于 2011-1-10 20:40

简单的处理了一下，你看看，等会再添加下工作表的数据引入

Sub Test()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://app.gd-n-tax.gov.cn/wssw/jsp/common/query/invoice_checking/invoice_checking_input.jsp"
Do Until .Readystate = 4
DoEvents
Loop
.Document.All("fpdm").Value = "12345678"
.Document.All("fphm").Value = "123456"
.Document.All("xhfswdjh").Value = "111111111111111"
.Document.All("xhfmc").Value = "abcde"
.Document.All("kpje").Value = "888.88"
.Document.All("kprq").Value = "2011-01-09"
.Document.All("check_code").Value = .Document.All("INVOICE_CHECKING_CHECKCODE").Value
.Document.All.submit_btn.Click
End With
MsgBox "Ok"
End Sub

复制代码

120HYH · 发表于 2011-1-10 20:41

好啊。兄弟帮我完善，我不会啊。谢谢你了。

xmyjk · 发表于 2011-1-10 21:13

做好了，代码如下：

Sub dgfpchaxun()
Dim intnum As Integer
Dim i As Integer
Dim strfpdm As String
Dim strfphm As String
Dim strxhfswdjh As String
Dim strxhfmc As String
Dim sglkpje As Single
Dim strkprq As String
intnum = Application.WorksheetFunction.CountA([A:A])
For i = 1 To intnum - 1
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://app.gd-n-tax.gov.cn/wssw/jsp/common/query/invoice_checking/invoice_checking_input.jsp"
Do Until .Readystate = 4
DoEvents
Loop
strfpdm = Cells(i + 1, 1).Value
strfphm = Cells(i + 1, 2).Value
strxhfswdjh = Cells(i + 1, 3).Value
strxhfmc = Cells(i + 1, 4).Value
strkpje = Format(Cells(i + 1, 5).Value, "0.00")
strkprq = Cells(i + 1, 6).Value
.Document.All("fpdm").Value = strfpdm
.Document.All("fphm").Value = strfphm
.Document.All("xhfswdjh").Value = strxhfswdjh
.Document.All("xhfmc").Value = strxhfmc
.Document.All("kpje").Value = strkpje
.Document.All("kprq").Value = strkprq
.Document.All("check_code").Value = .Document.All("INVOICE_CHECKING_CHECKCODE").Value
.Document.All.submit_btn.Click
End With
Next i
End Sub

复制代码

EXCEL的表格如附件

120HYH · 发表于 2011-1-10 21:40

谢谢，我试下。

rainheart119 · 发表于 2011-1-10 21:55

真是个高手哦。在这里学到很多东西。

120HYH · 发表于 2011-1-10 22:10

如果发现问题马上请教。现在没找到真的普通发票。

120HYH · 发表于 2011-1-10 22:24

真的可以。太厉害了。

		自动登录	找回密码
密码			免费注册

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

大师们。象我们东莞的，这个能做吗？有验证啊

回复 11楼 120HYH 的帖子

好的，谢谢兄弟啊。

东莞的查询可以了

好啊。兄弟帮我完善，我不会啊。谢谢你了。

谢谢，我试下。

如果发现问题马上请教。

真的可以。太厉害了。