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

pc_12 · 发表于 2011-3-15 06:42

请问：VB可否获取网页INPUT 文本框值？

zhy400137 · 发表于 2011-3-15 08:48

不知能帮做一个云南国税的吗？谢谢
http://www.yn-n-tax.gov.cn/wssw/ ... ryCode=001035003001

xmyjk · 发表于 2011-3-15 09:35

短信发几个能查出结果的发票过来，不然不知道结果界面如何。

xmyjk · 发表于 2011-3-15 09:37

原帖由 pc_12 于 2011-3-15 06:42 发表
请问：VB可否获取网页INPUT 文本框值？

应该可以，等会帮你看，上次后来那个转跳页面的帮你修改后的，应该没问题把，就是112楼那个

[ 本帖最后由 xmyjk 于 2011-3-15 09:38 编辑 ]

xmyjk · 发表于 2011-3-15 10:38

你是要登陆进去，然后取得学校代码返回吧，我登不进去，不知道页面结构和源代码，如果方便的话，短消息提供下登陆后界面的源代码或者直接给个能登陆的那些登陆界面的数据给我

xmyjk · 发表于 2011-3-15 10:42

原帖由 zhy400137 于 2011-3-15 08:48 发表
不知能帮做一个云南国税的吗？谢谢
http://www.yn-n-tax.gov.cn/wssw/ ... ryCode=001035003001

应该没问题，尽快提供一些能查出结果的发票代码和号码，不方便就短消息发来。

xmyjk · 发表于 2011-3-15 19:31

原帖由 zhy400137 于 2011-3-15 08:48 发表
不知能帮做一个云南国税的吗？谢谢
http://www.yn-n-tax.gov.cn/wssw/ ... ryCode=001035003001

你查得了么？我查了，出现
Error 500--Internal Server Error
From RFC 2068 Hypertext Transfer Protocol -- HTTP/1.1:
10.5.1 500 Internal Server Error
The server encountered an unexpected condition which prevented it from fulfilling the request.

你查询得了吗？怀疑是不是这个网站近期的问题。

[ 本帖最后由 xmyjk 于 2011-3-15 22:02 编辑 ]

xmyjk · 发表于 2011-3-15 21:54

原帖由 pc_12 于 2011-3-15 06:42 发表
请问：VB可否获取网页INPUT 文本框值？

做好了，看看附件是不是你要的，代码如下：

Sub lg()
Dim a As String
a = "123456"
Beep
'InternetExplorer和WebBrowser需引用Microsoft Internet Controls(SHDocVw.dll)
On Error Resume Next
Dim arr As Variant
Dim IE As Object
Dim doc As Object 'MSHTML.HTMLDocument
Dim txt As String
Dim i As Integer
Dim t1 As String
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.ytgzs.com/cj/lg.asp"
IE.Visible = 1 'False
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
IE.Document.Forms(0).All("text1").Value = a
IE.Document.Forms(0).All("text2").Value = "PPPPPP"
IE.Document.Forms(0).All("submit1").Click
Do Until IE.Document.All("text1").Value <> a
DoEvents
Loop
Cells(1, 1).Value = IE.Document.All("text1").Value
' IE.Quit
Set IE = Nothing
End Sub

复制代码

pc_12 · 发表于 2011-3-16 08:23

XMYJK 版主，真的太感谢，代码很精彩。

xmyjk · 发表于 2011-3-16 09:25

原帖由 pc_12 于 2011-3-16 08:23 发表
XMYJK 版主，真的太感谢，代码很精彩。

楼主 NOT版主，笔误笔误。。。
不客气

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

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

回复 123楼 zhy400137 的帖子

回复 122楼 pc_12 的帖子