自动查询网页信息

wooddy

蓝天630902 发表于 2012-5-15 07:42
看看吧，方法不是很好，对付着用吧：

Sub 企业个体工商户基本登记信息查询()

谢谢！但是能不能列循环？

蓝天630902

wooddy 发表于 2012-5-17 09:42
谢谢！但是能不能列循环？

企业/个体工商户名称、注  册  号，都没有，是不能列循环的。没办法

wooddy

蓝天630902 发表于 2012-5-17 11:11
企业/个体工商户名称、注  册  号，都没有，是不能列循环的。没办法

就是假设A列有50个名称嘛。然后可以一个一个的循环地run.

蓝天630902

Sub 企业个体工商户基本登记信息查询()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        For i = 1 To 50    '循环50次
        .Navigate "http://wsnj.gdgs.gov.cn/aiccps/jsp/pub/searchBase.jsp?returnUP=true"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        With CreateObject("internetexplorer.application")
                .Navigate "http://wsnj.gdgs.gov.cn/aiccps/util/queryCodeCheck.jsp"
                Do Until .ReadyState = 4
                    DoEvents
                Loop
                temp = .Document.all(0).innerText        '验证码
                .Quit
        End With
        .Document.all("corpName").Value = Cells(i, 1)    '输入Ａ列，企业/个体工商户名称
        .Document.all("registerNo").Value = Cells(i, 2)  '输入Ｂ列，注  册  号
        .Document.all("keycode").Value = temp            '输入，验  证  码
        .Document.all("Image9").Click                    '点击“查询”按钮
        '这里写你自己的东西
        Next i
    End With
End Sub

wooddy

蓝天630902 发表于 2012-5-17 20:31
Sub 企业个体工商户基本登记信息查询()
    On Error Resume Next
    With CreateObject("internete ...

在同一个窗口中打开了，一个过后，就给别一个覆盖。好像不能在不同标签页或者窗口中打开。附件见： Book1.rar (9.88 KB, 下载次数: 35)

2012-5-17 21:11 上传

点击文件名下载附件

蓝天630902

Sub 企业个体工商户基本登记信息查询()
    On Error Resume Next
For i = 1 To 50    '循环50次
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://wsnj.gdgs.gov.cn/aiccps/jsp/pub/searchBase.jsp?returnUP=true"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        With CreateObject("internetexplorer.application")
                .Navigate "http://wsnj.gdgs.gov.cn/aiccps/util/queryCodeCheck.jsp"
                Do Until .ReadyState = 4
                    DoEvents
                Loop
                temp = .Document.all(0).innerText        '验证码
                .Quit
        End With
        .Document.all("corpName").Value = Cells(i, 1)    '输入Ａ列，企业/个体工商户名称
        .Document.all("registerNo").Value = Cells(i, 2)  '输入Ｂ列，注  册  号
        .Document.all("keycode").Value = temp            '输入，验  证  码
        .Document.all("Image9").Click                    '点击“查询”按钮
        '这里写你自己的东西
    End With
Next i
End Sub

wooddy

蓝天630902 发表于 2012-5-17 21:24
Sub 企业个体工商户基本登记信息查询()
    On Error Resume Next
For i = 1 To 50    '循环50次

真的是大师！又好人！

如果我只想抽取结果页里的某些内容到EXCEL的特定列，比如D\E\F列里面分别放置地址、注册资金、法定代表人。那该多好！！！贪心了。。。

蓝天630902

Sub 企业个体工商户基本登记信息查询()
[a1:l1] = Split("企业/个体工商户名称,名称,地址,注册号,法定代表人,企业类型,经营期限,注册资本,登记机关,登记状态,成立日期,经营范围", ",")
Columns("D:D").NumberFormatLocal = "@"
    On Error Resume Next
For p = 2 To Range("a65536").End(xlUp).Row    '循环随便多少次
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://wsnj.gdgs.gov.cn/aiccps/SearchServlet?service=getEntityInfoByPage&corpName=" & Cells(p, 1)
        Do Until .ReadyState = 4
            DoEvents
        Loop
            Set r = .Document.All.tags("table")(1).Rows
            For i = 0 To r.Length - 1
                For j = 1 To r(i).Cells.Length - 1 Step 2
                n = Range("IV" & p).End(xlToLeft).Column + 1
                    Cells(p, n) = r(i).Cells(j).innerText
                Next j
            Next i
        .Quit
    End With
Next p
End Sub

蓝天630902

企业个体工商户基本登记信息查询

goldowl2011

Mark it.Thanks a  lot.