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

Ladbrokes · 发表于 2012-10-20 21:08

想参照你的webbrowser 实现方式开发一个网页抓取
不知道为什么一开始就提示变量或with没有定义
就是相当于你的这行代码 Set objie1 = UserForm1.WebBrowser1

下面有我的附件，不知能否帮忙看一下，多谢了。

Sub Test()
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
Dim Strtext1 As String
Dim objie1 As Object
Dim stronm As String
Dim objdoc As Object
Dim stra As String
Cells(2, 7).Value = "正在查询"
intnum = Application.WorksheetFunction.CountA([A:A])
For i = 1 To intnum - 1
Set objie1 = UserForm1.WebBrowser1
With objie1
.navigate "http://app.gd-n-tax.gov.cn/wssw/jsp/common/query/invoice_checking/invoice_checking_input.jsp"
Do Until .Readystate = 4
DoEvents
Loop

复制代码

lab1.rar (17.74 KB, 下载次数: 37)

pzhzshun · 发表于 2012-10-24 23:22

收藏学习了！

ugyun · 发表于 2012-12-7 12:43

xmyjk 发表于 2011-1-28 20:43
东莞的税票查询XMLHTTP方式也做好了
再次谢谢ISFTEST的帮助，真是网页高手啊，学习

老师，您好，为什么现在这个东莞国税的查询不了了呢？运行后
这句代码“ strjg = Mid(getpage, InStr(getpage, "查询结果") + 177, InStr(getpage, "如需进一步查验发票真伪") - InStr(getpage, "查询结果") - 266)”变成黄色

kangatang · 发表于 2013-1-26 21:32

学习，经典作品

kangatang · 发表于 2013-1-26 22:34

各种方法都全了，学习

154955335 · 发表于 2013-1-30 11:30

好！！！！！！！！！！！！！！！！！！！！！！！！！！！

154955335 · 发表于 2013-1-30 11:31

想换个地方的，不知道代码修改哪里！

zjusky · 发表于 2013-1-30 12:47

想修改一下地方，修改为浙江的，能帮忙修改一下么，或者讲一下代码，学习。
http://etax.zjds.gov.cn/sword?tid=WsxtXtzyfpcx100BLH_init

154955335 · 发表于 2013-1-30 21:00

大哥加我QQ:154955335

gywjj · 发表于 2013-1-31 20:38

这个贴子要顶一下。收藏备用。

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

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