循环IE找到URL

Question

我试着通过运行IE编写VBA脚本来循环并检测在url中“行程”

然后输入2场的文本字符串： 代码 姓氏

然后点击ok

加载完成后可见后

谢谢 周杰伦

Answer 1

这将遍历IE中的所有打开的选项卡并将URL返回到A列。
然后，您可以搜索一个字符串并返回找到的单元格的地址。之后，您可以将Code和Surname（不管那是什么？）添加到该单元格。 使用此http://vba-corner.livejournal.com/4623.html来弄清楚如何在IE中打开新编辑的URL。

Option Explicit 

Sub GetURLofOpenIETabs() 
    Dim mainWorkBook As Workbook 
    Dim i As Integer 
    Dim objShell As Object, objAllWindows As Object 
    Dim ow 
    Dim rngSearch As Range 

    i = 2 

    Set objShell = CreateObject("Shell.Application") 
    Set objAllWindows = objShell.Windows 
    Set mainWorkBook = ActiveWorkbook 

    For Each ow In objAllWindows 
     If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then 
      mainWorkBook.Sheets("Sheet1").Range("A" & i) = ow.locationURL 
      i = i + 1 
     End If 
    Next 

    Set rngSearch = Sheet1.Cells.Find("text to find") 

    If rngSearch Is Nothing Then 
    ' do nothing 
    Else 
     MsgBox rngSearch.Address 
    End If 
End Sub