再次请教:用VBA打开网页并输入相关信息

王南宁

好的，谢谢楼上这位仁兄
期待仁兄的好消息

王南宁

在线等待中，跪谢等待中，万分期待中，心急如焚中！

phsu

正常情況下，下列程式應該可顯示查詢的內容，但很奇怪，卻顯示空白。這方面還真不知道問題出在哪裡。有待高手出招。
Sub 打开网站并输入相关信息()
    Dim ie As Object
    Dim myItem
    Dim myButton
    Dim Result
    Set ie = CreateObject("InternetExplorer.application")
    With ie
        .Navigate "http://map.yanue.net/"
        .Visible = True
        Do Until .ReadyState = 4
        Loop
        Set myItem = .Document.getelementbyid("addrs")
        myItem.Value = "四川省乐山市井研县水亭巷12号(足尔康足浴按摩店东北68米)"
        Set myButton = .Document.getelementbyid("toLatLngBtn")
        myButton.Click
        Set Result = .Document.getelementbyid("showResults")
        MsgBox Result.innerText
    End With
End Sub

605751967

phsu 发表于 2016-2-22 22:44
正常情況下，下列程式應該可顯示查詢的內容，但很奇怪，卻顯示空白。這方面還真不知道問題出在哪裡。有待高 ...

思前想后

学习了，留个记号

王南宁

解决了，谢谢各位

phsu

王南宁 发表于 2016-2-23 10:58
解决了，谢谢各位

最後是怎麼獲取資料到Excel的？

songboman

phsu 发表于 2016-2-23 19:54
最後是怎麼獲取資料到Excel的？

我也用你的代码试了一下，只有一次正确显示了，其它也是空白。我看另一篇纹章他在点查询按钮后又等待了一次浏览器加载完成，我猜你是点完按钮就读取结果，网站反应有时间，所以你读取的是个空结果。我在点查询后加入了等待3秒的代码，就正常了。
写入EXCEL用cells(1,1)=Result.innerText就好了吧。

志65

songboman 发表于 2017-12-22 21:22
我也用你的代码试了一下，只有一次正确显示了，其它也是空白。我看另一篇纹章他在点查询按钮后又等待了一 ...

我也先问，最好数据是怎么获取的

点点爸

受教了.....