Командная оболочка Excel VBA для поиска Chrome

У меня есть следующий код VBA, чтобы открыть Chrome и перейти к определенной странице:

Sub ExampleSub() Dim chromePath As String chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http:google.ca") End Sub 

Я не могу найти команду использовать поисковую систему для запуска поиска Google для строки, которую я передаю, например:

 Search_String = "Where to find pizza in Tibet" Shell (chromePath & " -url " & Search_String) 

или

 Shell(chromePath & " -search " & Search_String) 

или

 Shell(chromePath & " " & Search_String) 

Я бы выполнил несколько запросов, поэтому критерии поиска должны быть динамическими.

Вы неправильно форматируете свою строку URL. Пожалуйста, рассмотрите следующее решение:

 Sub ExampleSub() Dim chromePath As String Dim search_string As String search_string = "Where to find pizza in Tibet" search_string = Replace(search_string, " ", "+") chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe" ' Uncomment the following line and comment out previous for Windows 64 versions ' chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" Shell (chromePath & " -url http://google.ca/#q=" & search_string) End Sub 

Если вы выполните поиск с google.com и просмотрите полученный URL-адрес, вы увидите, что условия поиска разделены на + . Вот почему я заменяю все пробелы на + а затем добавляю их в URL. С Уважением,

  • VBA: файлы в формате ZIP для Office для Mac
  • Удалить все файлы с расширением .c с помощью команды shell в vba
  • Excel VBA запускает команду оболочки на Mac?
  • Выполнение VBA из оболочки
  • Ошибка при выполнении RScript в Excel VBA
  • Понимание возвращаемого значения из функции оболочки
  • Запуск ac # .EXE с аргументами через WScript.Shell VBA
  • В R, открыв объект, сохраненный в Excel, через shell.exec
  • Экспорт в Excel из оболочки django
  • Ошибка при запуске объекта / команд оболочки через Excel VBA
  • vba копирование и замена файлов в zip-папке
  • Interesting Posts

    скрипт python для обработки листа excel

    Многостраничный лист экспортирует один в CSV и автосохраняется без приглашения

    Ошибка несобственного класса в кодеригенере

    Excel VBA: редактирование существующих правил условного форматирования для новых строк

    Чтение MS excel-файла из C ++

    Отображать окно сообщения в excel

    Попытка найти максимальное значение строки в диапазоне

    Графика VBA-excel в виде рисунка

    Excel – объединить строки с общими значениями и объединить различия в одном столбце

    GetVstoObject не работает с AccessViolationException

    Запуск кода VBA только после ввода определенного входного значения

    VBA не может открыть excel (слишком много разных форматов ячеек).

    Как импортировать числовые идентификаторы в виде строк, чтобы не округлять значение

    Создайте AllowEditRange условно для значения в диапазоне столбцов

    Excel. Умножьте содержимое ячейки на 12, только один раз.

    Давайте будем гением компьютера.