Obsah
Chcete mít možnost zadat hledané slovo do buňky a poté spustit makro pro vyhledávání na Googlu? Tím se vrátí výsledky v novém okně aplikace Internet Explorer
Hledat Google z buňky
1. Vložte následující kód do modulu
Sub LaunchSite () Dim newsite as Object Set newsite = CreateObject ("InternetExplorer.application") newsite.Visible = True newsite.Navigate _ "http://www.google.com/search?hl=en&ie=UTF-8&q=" _ & ActiveCell.Text End Sub
2. Zadejte hledané slovo nebo frázi do buňky, stiskněte klávesu Enter, poté znovu klikněte na buňku a spusťte makro!
Další informace o přístupu k aplikaci Internet Explorer z VBA.
