蓝天老师帮忙！请问，不显示的网页数据可以提取码

bailanhong

html2013 发表于 2013-4-11 22:47
.document.getElementById("txtSearchName").Value = cells(1,1)

有个问题，查询的结果会覆盖掉A列，怎么样调整后让数据从B列开始显示，不覆盖A列列表？还有，上述程序执行后还是只执行一个查询！其余没有查询

bailanhong

html2013 发表于 2013-4-11 20:04
Sub nature_museum查询()
    On Error Resume Next
    With CreateObject("internetexplorer.applica ...

麻烦老师再帮忙完善下代码，多谢啦！！

bailanhong

html2013 发表于 2013-4-11 20:04
Sub nature_museum查询()
    On Error Resume Next
    With CreateObject("internetexplorer.applica ...

麻烦老师帮我看看，我自己加了个循环，但不知怎么执行不了？
Sub nature_museum查询()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
    for m = 1 to 200000       
    .Visible = False
        .Navigate "http://www.nature-museum.net/Spdb/spsearch.aspx"
        While .ReadyState <> 4 Or .busy
            DoEvents
        Wend
        .document.getElementById("txtSearchName").Value = Cells(1, m)
        .document.getElementById("QueryCmd").Click
        Set r = .document.getElementById("QueryResult").All.tags("table")
        t1 = Timer
        ss = ""
        Do Until Timer > t1 + 1000
            ss = r(0).Rows(0).Cells(1).innerText
            If ss <> "" Then GoTo 1
            DoEvents
            ss = ""
        Loop
        next
1:
        For i = 0 To r.Length - 1
            Set r1 = r(i).Rows
            temp = Split(r1(0).Cells(1).innerText, vbCrLf)
            Range(Cells(i + 1, 1), Cells(i + 1, UBound(temp))) = temp
            If Left(Cells(i + 1, "C"), 2) = "别名" Then
                Range("C" & i + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
            End If
        Next i
        Set r = Nothing
        .Quit
    End With
End Sub

bailanhong

执行了没反应

bailanhong

哪位高手帮忙解决下！

bailanhong

592rmb 发表于 2013-4-11 10:33
你说的不显示数据指的是网页上的哪些数据呀？

输入后查询出来的

bailanhong

html2013 发表于 2013-4-11 20:04
Sub nature_museum查询()
    On Error Resume Next
    With CreateObject("internetexplorer.applica ...

您好，我试了，但不管怎么修改循环，都只执行一次搜索，时为什么呀？

bailanhong

蓝天老师也不会吗？

bailanhong

kangatang老师帮帮忙！

bailanhong

蓝桥玄霜版主帮帮忙！！