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

王南宁

各位大神，新年好
小弟在此祝各位猴年大吉，心想事成，万事如意。
今小弟遇到个VBA打开网页并输入信息的问题，一时半会儿解决不了，望各位大神给予指教，谢谢
问题是这样的:
小弟想通过VBA代码，打开一个能解析地名经纬度的网站，网站打开后，通过VBA代码,自动将地名信息输入到搜索框中，最后，该网站根据输入的地名信息,自动解析出经纬度。现在的问题就是：如何将网站解析出的经纬度赋值给某一变量，或者将解析出的经纬度导入到Excel表格中，小弟的代码通过Msgbox读取出的解析结果是:object,代码如下：请各位大神指点一下，谢谢！

Sub 打开网站并输入相关信息()
Dim ie As Object, str As String
Set ie = CreateObject("InternetExplorer.application")
  With ie
   .Navigate "http://map.yanue.net/"  'Navigate方法可以打开指定的网页
   .Visible = True '打开后要显示网页
   Do While ie.ReadyState <> 4 '如果IE加载完成
   DoEvents '在窗体加载时转交操作权
   Loop
   .Document.All.tags("textarea")(0).Value = "四川省乐山市井研县水亭巷12号(足尔康足浴按摩店东北68米)" 'Document.All("元素名称或ID")
   .Document.All.tags("button")(0).Click 'submit方法可以提交表单内容到服务器,froms(0)表示当前doc中第一个表单
End With
Shell ("taskkill /f /im 360se.exe"): Shell ("taskkill /f /im IEXPLORE.exe") '关闭默认和360浏览器
MsgBox ie.Document.All("showResults")
Set ie = Nothing
End Sub

源码中的控件ID我觉得应该是 showResults ,但为何读取不出来呢？
该网站的解析结果如下图：

打开该网页的源码，小弟猜想该网页的解析ID名为：showResults

王南宁

在线急等啊！！！

王南宁

在线急等啊！！！

王南宁

没人帮帮小弟吗？
痛哭有泪中

605751967

Dim ie As New InternetExplorer
                      ...
Do Until ie.ReadyState = READYSTATE_COMPLETE
                      ...
.Document.All.tags("textarea")(0).Value
                      ...
.Document.All.tags("button")(0).Click

王南宁

谢谢楼上这位仁兄的解答，我按照您的代码试了一下，但貌似还有些问题，所以再请这位仁兄帮忙看看，也请各位大神看看。小弟跪谢了
Sub 打开网站并输入相关信息()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.application")
  With ie
   .Navigate "http://map.yanue.net/"  'Navigate方法可以打开指定的网页
   .Visible = True '打开后要显示网页
    Do Until ie.ReadyState <> READYSTATE_COMPLETE '如果IE加载宏完成
   DoEvents '在窗体加载时转交操作权
   Loop
   .Document.All.tags("textarea")(0).Value = "四川省乐山市井研县水亭巷12号(足尔康足浴按摩店东北68米)" 'Document.All("元素名称或ID")    ’问题就出在这一句，系统提示"对象变量with块未设置
   .Document.Forms(0).submit        'submit方法可以提交表单内容到服务器,froms(0)表示当前doc中第一个表单
End With
Set ie = Nothing
End Sub

王南宁

谢谢兄弟，我解决了

王南宁

对了，还想再请问一下各位大神，我用下列代码能打开网页，并能让网页解析出代码输入的地址所对应的经纬度，现在的问题是：如何将解析出的经纬度赋值给某一变量，或者将解析出的经纬度导入到Excel表格中，小弟的代码通过Msgbox读取出的解析结果是:object,代码如下：请各位大神指点一下，谢谢
Sub 打开网站并输入相关信息()
Dim ie As Object, str As String
Set ie = CreateObject("InternetExplorer.application")
  With ie
   .Navigate "http://map.yanue.net/"  'Navigate方法可以打开指定的网页
   .Visible = True '打开后要显示网页
   Do While ie.ReadyState <> 4 '如果IE加载完成
   DoEvents '在窗体加载时转交操作权
   Loop
   .Document.All.tags("textarea")(0).Value = "四川省乐山市井研县水亭巷12号(足尔康足浴按摩店东北68米)" 'Document.All("元素名称或ID")
   .Document.All.tags("button")(0).Click 'submit方法可以提交表单内容到服务器,froms(0)表示当前doc中第一个表单
End With
Shell ("taskkill /f /im 360se.exe"): Shell ("taskkill /f /im IEXPLORE.exe") '关闭默认和360浏览器
MsgBox ie.Document.All("showResults")
Set ie = Nothing
End Sub
图片附件如下：

王南宁

请各位大神再次出手相助啊

phsu

先完成查詢的部份。至於將查詢結果載入Excel，還要想想。
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
    End With
End Sub