VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchbegriffe an Google übergeben und Ergebnis aufrufen

Gruppe

Extern

Bereich

Internet

Thema

Suchbegriffe an Google übergeben und Ergebnis aufrufen

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

    


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