VBA/Excel에서 Google Chrome 열기

VBA/Excel에서 Google Chrome 열기

VBA에서 크롬 브라우저를 열려고 합니다.크롬이 ActiveX 설정을 지원하지 않는 것으로 알고 있는데 해결 방법이 있는지 궁금합니다.

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

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

여기서도 작동했습니다.

Sub test544()

  Dim chromePath As String

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

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

End Sub

나는 더 쉬운 방법을 찾았고 크롬이 있는 경로를 몰라도 완벽하게 작동합니다.

우선 모듈 상단에 이 코드를 붙여넣어야 합니다.

Option Explicit
Private pWebAddress As String
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

그런 다음 다음 두 개의 모듈을 만들어야 합니다.

Sub LoadExplorer()
    LoadFile "Chrome.exe" ' Here you are executing the chrome. exe
End Sub

Sub LoadFile(FileName As String)
    ShellExecute 0, "Open", FileName, "http://test.123", "", 1 ' You can change the URL.
End Sub

이를 통해 (원하는 경우) URL에 대한 변수를 설정하거나 하드 코드처럼 그대로 둘 수 있습니다.

Ps: "Chrome.exe"를 operation, bing 등으로 변경하는 것만으로도 다른 브라우저에 완벽하게 작동합니다.

당신은 아래의 vba 코드를 사용하여 엑셀에서 표준 모듈에 입력할 수 있습니다.웹 사이트 목록은 입력할 수 있으며 엑셀의 A1 셀에 이와 같이 입력해야 합니다 - www.stackoverflow.com

활성 시트.셀(1,2).Value는 Excel의 B1 셀에 있는 웹 사이트 링크 수만 사용하고 시트에 배치된 웹 사이트 링크 수를 기준으로 코드를 반복합니다.따라서 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

위의 @ray가 제공한 답변은 완벽하게 작동하지만 올바른 경로를 사용하여 파일을 열고 있는지 확인하십시오.아이콘을 마우스 오른쪽 단추로 클릭하고 속성을 클릭하면 실제 경로가 어디에 있는지 확인할 수 있습니다. 이 경로를 따라 복사하면 됩니다.

셀레늄 베이직을 사용하여 크롬을 실행하고 상호 작용할 수 있습니다.설치 후 셀레늄 유형 라이브러리에 대한 참조를 추가해야 합니다.

Option Explicit
Public Sub Demo()
    Dim d As WebDriver
    Set d = New ChromeDriver
    Const URL = "https://www.google.com/"

    With d
        .Start "Chrome"
        .get URL
        .FindElementById("lst-ib").SendKeys "Selenium basic GitHub"
         .FindElementsByTag("form")(1).FindElementByCss("input[value='Google Search']").Click
        '.Quit
    End With
End Sub

언급URL : https://stackoverflow.com/questions/5915325/open-google-chrome-from-vba-excel