VBA Google of IE openen met zoektekst

Status
Niet open voor verdere reacties.

JelleKoen

Gebruiker
Lid geworden
30 okt 2012
Berichten
58
Goedemorgen,
Ik heb een groot aantal emailadressen nodig van scholen. De naam van de school en de plaats zijn bekend. Ik heb ze ook gekoppeld in een apart veld.
Deze inhoud kopieer ik en plak dan deze zoektekst in Google (mag ook IE) zijn, waarna de zoekresultaten en de link naar de website tevoorschijn komen.
Maar is het vanuit Access ook mogelijk om de zoektekst dmv vba-code mee te geven bij het openen van de browser? Dat ik dus niet meer hoef te kopiëren en plakken.
Heeft iemand een oplossing?
Groeten,
Jelle
 
Ben inmiddels een stuk verder. Ik mis alleen nog het meegeven van de gekopieerde tekst bij het openen van Google. Iemand daarmee bekend?
Dus bij de 'FollowHyperlink'

Code:
Private Sub Tekst54_Click()
    prcNaarClipboard Me.Tekst54.Value
    Application.FollowHyperlink "https://www.google.nl/"
End Sub

Sub prcNaarClipboard( _
    ByVal inText As String _
    )
    'Muiderberg, 25 januari 2022
    'https://desmondoshiwambo.wordpress.com/2012/02/23/how-to-copy-and-paste-text-tofrom-clipboard-using-vba-microsoft-access/
    
    Dim objClipboard As Object
  
    Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        objClipboard.SetText inText
        objClipboard.PutInClipboard
  Set objClipboard = Nothing
End Sub
 
Ach vrij simpel toch:
Code:
Application.FollowHyperlink "https://www.google.nl/search?q=" & Me.Tekst54.Value
Opgelost dus
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan