Откройте Google Chrome из VBA / Excel

Question

Я пытаюсь открыть браузер Chrome из VBA. Я понимаю, что Chrome не поддерживает настройки ActiveX, поэтому мне любопытно, есть ли какие-нибудь обходные пути?

Dim ie As Object 
Set ie = CreateObject("ChromeTab.ChromeFrame")
ie.Navigate "google.ca" 
ie.Visible = True

Answer 1

shell("C:\Users\USERNAME\AppData\Local\Google\Chrome\Application\Chrome.exe -url http:google.ca")

Answer 2

Здесь тоже работали:

Sub test544()

  Dim chromePath As String

  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

  Shell (chromePath & " -url http:google.ca")

End Sub

Answer 3

Вы можете использовать следующий код VBA и ввести их в стандартный модуль в Excel. Список веб-сайтов может быть введен и должен быть введен таким образом в ячейку A1 в Excel - www.stackoverflow.com

ActiveSheet.Cells (1,2). Значение просто берет количество ссылок на веб-сайты, которые у вас есть на ячейку B1 в Excel, и повторяет код снова и снова на основе количества ссылок на веб-сайты, которые вы поместили на лист. Поэтому Chrome откроет новую вкладку для каждой ссылки на веб-сайт.

Надеюсь, это поможет вам с динамическим сайтом.

Sub multiplechrome()

    Dim WebUrl As String
    Dim i As Integer

    For i = 1 To ActiveSheet.Cells(1, 2).Value
        WebUrl = "http://" & Cells(i, 1).Value & """"
        Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & WebUrl)

    Next
End Sub

Answer 4

Ответ, данный @ray выше, работает отлично, но убедитесь, что вы используете правильный путь, чтобы открыть файл.Если вы щелкнете правой кнопкой мыши по своей иконке и выберете свойства, вы должны увидеть, где находится фактический путь, просто скопируйте его, и он должен работать.