在网站上选择多个特殊格式的单元格并将结果导入回Excel



我是Excel VBA的新手。我已经在在线视频的帮助下编写了一些代码,但我不得不解决选择两个单元格作为逗号分隔的范围值的问题。但是,如果我只使用其中一个选定的单元格,则不会发生编译错误。

Sub elevation_finder()
Dim elevation As Long
Dim ieobject As InternetExplorer
Dim htmlElement As IHTMLElement
Dim i As Integer
i = 1
Set ieobject = New InternetExplorer
ieobject.Visible = True
ieobject.navigate "https://www.freemaptools.com/elevation-finder.htm"
Application.Wait Now + TimeValue("00:00:05")
ieobject.document.getElementById("locationSearchTextBox").Value = ActiveWorkbook.Sheets("Header").Range("C2").Value
End Sub

输入数字(坐标为整数(后的下一步是将结果导入回新列。

感谢帮助和建议,以改进自动坐标以查找相应高程的代码。 在此处输入图像描述

亲切问候。

应该能够使用类似的东西:

With ActiveWorkbook.Sheets("Header")
ieobject.document.getElementById("locationSearchTextBox").Value = _
.Range("B2").Value & "," & .Range("C2").Value
End with

最新更新