作者：绿色风
分类：
时间：2022-08-17
浏览：96
楼主
xmyjk |
Q:如何用VBA制作四川省增值税票查询工具
A:- Option Explicit
- Sub test()
- Dim tmp() As String, i As Integer, arr() As String, xmlhttp As Object, N As Long
- Dim fpdm As String, fphm As String
- Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
- For N = 2 To [a65536].End(xlUp).Row
- fpdm = Cells(N, 1): fphm = Cells(N, 2)
- With xmlhttp
- .Open "get", "http://www.sc-n-tax.gov.cn/wskj/Zzsfp?invoice_number=" & fpdm & "&invoice_mark=" & fphm, False
- .send
- If InStr(.responsetext, "查无此票信息") > 0 Then
- Cells(N, 4) = "查无此票信息!"
- GoTo line1
- Else
- tmp = Filter(Split(.responsetext, "</li>"), "<li id=invoice")
- End If
- End With
- ReDim arr(4)
- For i = 1 To UBound(tmp)
- arr(i - 1) = Split(tmp(i), "_li>")(1)
- Next
- Cells(N, 4).Resize(1, 5) = arr
- Erase tmp
- Erase arr
- line1:
- Next
- Set xmlhttp = Nothing
- MsgBox "Ok"
- End Sub
 四川税票查询.zip
|
2楼
yjzstar |
获取网页信息的VBA知识要好好跟月月师傅学习啊**
 |
3楼
亡者天下 |
过来学习一下
|
4楼
acecrazy |
好东西，刚好要用到。这个是限于四川省增值税票查询吗？修改对应的查询URL是否能用？ |
5楼
acecrazy |
我需要用到上海、厦门、山东，还有北京的。
 是不是有点多了。 |
6楼
bluexuemei |
速度有点慢！ |
7楼
老糊涂 |
过来学习一下 |
8楼
白开水02 |
过来学习一下
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一