Содержание
Вы хотите иметь возможность вводить поисковое слово в ячейку, а затем запускать макрос для поиска в Google? Это возвращает результаты в новом окне Internet Explorer.
Поиск в Google из ячейки
1. Поместите следующий код в модуль
Sub LaunchSite () Dim newsite As Object Set newsite = CreateObject ("InternetExplorer.application") newsite.Visible = True newsite.Navigate _ "http://www.google.com/search?hl=ru&ie=UTF-8&q=" _ & ActiveCell.Text End Sub
2. Введите слово или фразу для поиска в ячейку, нажмите ввод, затем снова щелкните ячейку и запустите макрос!
Узнайте больше о доступе к Internet Explorer из VBA.
