Vba excel google chrome

I found an easier way to do it and it works perfectly even if you don’t know the path where the chrome is located.

First of all, you have to paste this code in the top of the module.

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

After that you have to create this two modules:

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

With this you will be able (if you want) to set a variable for the url or just leave it like hardcode.

Ps: It works perfectly for others browsers just changing «Chrome.exe» to opera, bing, etc.

Я нашел более простой способ сделать это, и он отлично работает, даже если вы не знаете, где находится хром.

Прежде всего, вы должны вставить этот код в верхнюю часть модуля.

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» на opera, bing и т. Д.

Here, are step to open Google Chrome using VBA

Step 1) Declare and initialize the variables in the subroutine as displayed below

Sub test2()
Dim driver as new webdriver
Dim rowc, cc, columnC as integer

Step 2) To open google chrome using selenium and VBA, write driver.start “chrome” and press F5.

Ниже будет код.

Sub test2()
Dim driver as new webdriver
Dim rowc, cc, columnC as integer
Driver.start "Chrome"
Application.Wait Now+Timevalue("00:00:20")
End sub

Модуль будет выглядеть следующим образом:

Предположим, что дневной трейдер хочет ежедневно получать доступ к данным с веб-сайта. Каждый раз, когда дневной трейдер нажимает кнопку, он должен автоматически вытягивать рыночные данные в Excel.

На указанном выше веб-сайте необходимо будет проверить элемент и посмотреть, как структурированы данные. Получите доступ к приведенному ниже исходному коду HTML, нажав control + Shift + I

<table class="datatable">
<thead>
<tr>
<th>Company</th>
<th>Group</th>
<th>Pre Close (Rs)</th>
<th>Current Price (Rs)</th>
<th>% Change</th>
</tr>

Исходный код будет следующим:

Как видно, данные структурированы как единая таблица HTML. Следовательно, для извлечения целых данных из таблицы HTML потребуется разработка макроса, который извлекает информацию заголовка таблицы HTML и соответствующие данные, связанные с таблицей. Выполните следующие задачи, как показано: –

Шаг 1) Сформулируйте цикл for, который просматривает информацию заголовка HTML в виде коллекции. Драйвер селена должен найти информацию заголовка таблицы HTML. Для этого мы используем метод FindElementByClass () и FindElementByTag (), чтобы выполнить задачу, как показано

Модуль VBA будет выглядеть следующим образом:

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
rowc = 2
Application.ScreenUpdating = False
driver.Start "chrome"
driver.Get "http://demo.guru99.com/test/web-table-element.php"
For Each th In driver.FindElementByClass("dataTable").FindElementByTag("thead").FindElementsByTag("tr")
cc = 1
For Each t In th.FindElementsByTag("th")
Sheet2.Cells(1, cc).Value = t.Text
cc = cc + 1
Next t
Next th

Шаг 2) Затем драйвер селена найдет данные таблицы, используя аналогичный подход, как упомянуто выше. Вы должны написать следующий код: –

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
rowc = 2
Application.ScreenUpdating = False
driver.Start "chrome"
driver.Get"http://demo.guru99.com/test/web-table-element.php"
For Each th In driver.FindElementByClass("dataTable").FindElementByTag("thead").FindElementsByTag("tr")
cc = 1
For Each t In th.FindElementsByTag("th")
Sheet2.Cells(1, cc).Value = t.Text
cc = cc + 1
Next t
Next th
For Each tr In driver.FindElementByClass("dataTable").FindElementByTag("tbody").FindElementsByTag("tr")
columnC = 1
For Each td In tr.FindElementsByTag("td")
Sheet2.Cells(rowc, columnC).Value = td.Text
columnC = columnC + 1
Next td
rowc = rowc + 1
Next tr
Application.Wait Now + TimeValue("00:00:20")
End Sub

Модуль VBA будет выглядеть следующим образом:

Excel можно инициализировать с помощью атрибута Range листа Excel или с помощью атрибута ячейки листа Excel. Чтобы уменьшить сложность сценария VBA, данные сбора инициализируются атрибутом ячеек Excel листа 2, представленного в рабочей книге. Кроме того, атрибут text помогает получить текстовую информацию, размещенную под тегом HTML.

Sub test2()
Dim driver As New WebDriver
Dim rowc, cc, columnC As Integer
rowc = 2
Application.ScreenUpdating = False
driver.Start "chrome"
driver.Get"http://demo.guru99.com/test/web-table-element.php"
For Each th In driver.FindElementByClass("dataTable").FindElementByTag("thead").FindElementsByTag("tr")
cc = 1
For Each t In th.FindElementsByTag("th")
Sheet2.Cells(1, cc).Value = t.Text
cc = cc + 1
Next t
Next th
For Each tr In driver.FindElementByClass("dataTable").FindElementByTag("tbody").FindElementsByTag("tr")
columnC = 1
For Each td In tr.FindElementsByTag("td")
Sheet2.Cells(rowc, columnC).Value = td.Text
columnC = columnC + 1
Next td
rowc = rowc + 1
Next tr
Application.Wait Now + TimeValue("00:00:20")
End Sub

Модуль VBA будет выглядеть следующим образом:

Excel VBA to Automate Chrome using Selenium

In this topic we will learn how to install Selenium library in Windows PC & initiate Chrome browser.

Selenium is a free open source framework that help in testing & automating web applications in browser.

Many programmers use this for automated web data extraction like stock quotes, sports betting , new updates, social media feeds, public directories etc., that refresh data periodically.

Steps to add Selenium type library to Excel VBA for Windows PC

Follow this step by step process carefully to learn Web Data extraction basics.

If you miss even a tiny detail, the process might fail to launch Chrome or extract data from the web browser.

1.Selenium VBA Download

To Automate Chrome browser with Excel VBA, first step is to download and install Selenium type library from this page:

• Selenium download page.

Download the latest version & the one that is compatible for your Windows OS type. Install this to add Selenium library for Excel VBA.

2. Google Chrome Browser Version

From Chrome settings, check for version of the browser installed (chrome://settings/help)

• Sample: Version 91.0.4472.77 – Official Build 64-bit

It is a older version mentioned above. In your PC, it could be a advanced version.

3. Chromedriver Download

The next and final software required for Selenium to to work is Chromedriver.

Go to this Google sites page and download version Zip version of Chromedriver relative to the Chrome installed in your pc:

• Latest Chrome driver download page
• Use this link to download older version of Chrome driver

Do not run the exe file inside this zip folder. Follow the steps explained below.

4. Setup Chromedrver Folder

Extract Chromedriver.exe from Zip file downloaded in previous step & replace the chromedriver.exe in below path.

• C:Users%username%AppDataLocalSeleniumBasic

A file with same name might be present already in this folder. Rename it to Chromedriverbkp.exe and then extract the latest file from zip to this folder.

Add Selenium Reference to Excel VBA

The installation step is done. Selenium library is installed in your PC and should be available within Excel VBA environment.

Lets find it out whether everything went fine till now.

5. Add reference to Excel VBA Selenium Type Library 

Open a Excel file, save it as .xlsm file, press Alt + F11 to view VBA editor. Then add selenium to Excel VBA project from this menu option.

• Tools – References – Selenium Type Library

6. Sample Code – Excel VBA Selenium Chrome

Add a new module, copy paste this code to EXcel VBA editor. When you run the code, you wil be able to see a Chrome browser is getting opened, opens the url & then gets closed.

Sub InitBrowser()
    Dim objChrome As New Chromedriver
    objChrome.SetProfile "C:Users<getUserName>AppDataLocalGoogleChromeUser DataDefault"
    objChrome.Start "chrome", "https://www.google.com"
    objChrome.Get "/"
End Sub

Note: If you would like the browser to stay after the code gets executed, define the “objChrome” as a global variable outside the function.

How to Install Excel VBA Selenium Type Library – Tutorial

Here is a video tutorial that explains all these steps in detail.

Also, you can choose to mention the username for the profile manually or make the VBA to get the active username and will it automatically.

This is a basic step for extracting webdata using Chrome using Excel VBA. In case you would like to extract web data without using Chrome for simple static pages, use this code.

Once you understand this basic concepts, then from here on it is easy to get the HTML code of any web page. Then you can use the built in functions available within Selenium type library & prase the data to Excel worksheet.

It is also possible to send data back to Chrome. Therefore it is easy to automate a whole lot of operations like Form filling, clicking a button, apply search criteria filters in any webpage. So, overall, selenium is a great option to automate chrome and alos other browsers like Firefox & Edge.

Hi Andrew,

Subsequent to my earier post, i made some adjustments. I am still stuck at how to get the output data into one results sheet in the pivot table format. Your assistance would be greatly appreciated. The sample input data is valid for this code. 

Thanks much!

Option Explicit

Private chromebrowser As Selenium.ChromeDriver ‘ declaration at the module level. note we changed DIM to Private

Sub LoopScrapePropTaxWebsiteNew()

Dim FindBy As New Selenium.By ‘ declaration of an auto instancing BY object to query any changes to HTML class name

Dim PropertyOwnerQueryResults As Selenium.WebElements ‘ Declaration of a variable that can take multiple web elements
Dim PropertyTaxResults As Selenium.WebElements   ‘ Declaration of a variable that can take only one web element
Dim PropertyOwnerQueryResult As Selenium.WebElement
Dim PropertyTaxResult As Selenium.WebElement
Dim PropInfoTable As Selenium.WebElement
Dim PropTaxtable As Selenium.WebElement
Dim ValNo As String
Dim StratNo As String

Set chromebrowser = New Selenium.ChromeDriver

chromebrowser.Start ‘The base URL in google chrome
chromebrowser.Get «https://ptsqueryonline.fsl.org.jm/PTSOnlineWeb/ptsquery.jsp» ‘ access the home page. If we wanted to access any page, we would just indicate the page name after the forward slash

Application.ScreenUpdating = False  ‘This line will turn off the screen flickering

    chromebrowser.FindElementByName(«valuationno»).SendKeys ValNo

    If chromebrowser.IsElementPresent(FindBy.Name(«stratalotno»), 5000) = False Then ‘ this is to account for any changes in class name as time passes. the number is the timeout period in millisecond, ie 3000 milliseconds is 3 sec
        chromebrowser.Quit ‘ code to exit the chrome browser
        MsgBox «Could not find search input box», vbExclamation  ‘ Code to diplay message box with error
        Exit Sub  ‘ Exit sub routine
    End If ‘ end if statement

    chromebrowser.FindElementByName(«stratalotno»).SendKeys StratNo

    If chromebrowser.IsElementPresent(FindBy.Class(«btn»), 5000) = False Then ‘ this is to account for any changes button name as time passes. the number is the timeout period in millisecond, ie 3000 milliseconds is 3 sec
        chromebrowser.Quit ‘ code to exit the chrome browser
        MsgBox «Could not find submit button», vbExclamation  ‘ Code to diplay message box with error
        Exit Sub  ‘ Exit sub routine
    End If ‘ end if statement

    chromebrowser.FindElementByClass(«btn», 3000).Click

‘—————Retriving the results of the property tax query

    Set PropertyOwnerQueryResults = chromebrowser.FindElementsByClass(«form-horizontal»)

    If PropertyOwnerQueryResults.Count = 0 Then      ‘ Condition to account for an empty result set
        ‘chromebrowser.Quit
        MsgBox «No Results Found» & » » & «for Valuation No» & » » & ValNo, vbExclamation
        Exit Sub
    End If

        For Each PropertyOwnerQueryResult In PropertyOwnerQueryResults ‘ loops through the web elements

End Sub

Sub ProcessTable(TableToProcess As Selenium.WebElement)

    Dim AllRows As Selenium.WebElements
    Dim SingleRow As Selenium.WebElement
    Dim AllRowCells As Selenium.WebElements
    Dim SingleCell As Selenium.WebElement
    Dim OutputSheet As Worksheet
    Dim RowNum As Long, ColNum As Long
    Dim TargetCell As Range
    

End Sub

Is there a way how to open Chrome on VBA.