Excel,VBA,Web查询查找下面的字符串复制单元格粘贴到单元格中

时间:2014-11-24 06:39:39

标签: excel-vba vba excel

我想通过网络查询找到一系列房间号码的本地名称。 查询结果是基本表。 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

0 个答案:

没有答案