Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchbegriffe an Google übergeben und Ergebnis aufrufen

Gruppe

Internet

Problem

Über eine UserForm soll Google nach einem Suchbegriff suchen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: DieseArbeitsmappe

Private Sub Suchen_Click()
   Dim sSuche As String
   Dim sLink1 As String
   Dim sLink2 As String
   sLink1 = "http://www.google.de/search?hl=de&ie=ISO-8859-1&oe=ISO-8859-1&q=+"
   sLink2 = "&btnG=Suche&meta="
   
Call Shell("C:\Programme\Internet Explorer\IEXPLORE.EXE")

End Sub

ClassModule: frmSearch

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdSearch_Click()
   Dim sLink1 As String
   Dim sLink2 As String
   sLink1 = "http://www.google.de/search?hl=de&ie=ISO-8859-" & _
      "1&oe=ISO-8859-1&q=+"
   sLink2 = "&btnG=Suche&meta="
   Shell ("C:\Programme\Internet Explorer\IEXPLORE.EXE " & _
      sLink1 & txtSearch.Text & sLink2), vbMaximizedFocus
   Unload Me
End Sub
StandardModule: Modul2

Sub CallForm()
   frmSearch.Show
End Sub