Thema: Suchbegriffe an Google übergeben und Ergebnis aufrufen

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