我想通过网络查询找到一系列房间号码的本地名称。 查询结果是基本表。 URL需要可变房间号。房间号码在sheet1 A1:A600中 Web查询将具有sheet2的目标 在sheet2中找到带有字符串“Local Name”的单元格,将其下方的单元格复制并粘贴到第一页中当前房间号旁边的单元格中。 如果发现错误或没有找到任何内容,请转到下一个房间号码。
我的vba经验非常少,所以我们非常感谢您提供的任何帮助。
以下是我认为类似的内容:
Sub RoomName()
Dim IE As Object ' InternetExplorer
Dim roomNum As Range
Dim localName As String
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
For Each roomNum In Range("A1:A600")
URL = "http://www.nonpublicsite.org/campusname" & roomNum &
With IE
.Navigate URL
'open the url redirect results to sheet2
'find string (Local Name) copy cell below the result and paste into sheet1 next to the current room number in the loop
Sheets("Sheet2").Cells.ClearContents
On Error Resume Next
Next roomNum
End Sub