VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Google zu einem Suchbegriff gefundene Links auflisten

Gruppe

Extern

Bereich

Internet

Thema

Bei Google zu einem Suchbegriff gefundene Links auflisten

Problem

Bei Google soll eine Suchanfrage gestartet und aus der Ergebnisliste alle Links in einer Tabelle gelistet werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.




StandardModule: Modul1

Sub HTMLAuslesen()
   Dim wks As Worksheet
   Dim lRow As Integer, iRow As Integer, iRowT As Integer
   Dim sSearch As String
   sSearch = "http://www.google.de/search?"
   sSearch = sSearch & "q=excel&hl=de&btnG=Google-Suche"
   sSearch = sSearch & "&meta=lr%3Dlang_de"
   Application.ScreenUpdating = False
   Workbooks.Open sSearch
   Set wks = ActiveSheet
   lRow = wks.Cells(Rows.Count, 1).End(xlUp).Row
   Workbooks.Add
   For iRow = 1 To lRow
      If wks.Cells(iRow, 1).Hyperlinks.Count = 1 Then
         iRowT = iRowT + 1
         Cells(iRowT, 1) = wks.Cells(iRow, 1).Hyperlinks(1).Address
      End If
   Next iRow
   wks.Parent.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Internet