请选择 进入手机版 | 继续访问电脑版

 找回密码
 立即注册
查看: 6110|回复: 2

[簡易教學] Excel VBA 中使用 Google Chrome

[复制链接]

88

主题

19

回帖

534

积分

区板主

积分
534
发表于 2021-10-29 15:56:14 | 显示全部楼层 |阅读模式
本帖最后由 cn 于 2021-10-29 16:45 编辑

今天為大家介紹一個簡單的方法, 在 Excel (或其他 Office 軟件, 如 Word, Access, Outlook 等) 使用 Google Chrome
目的是使用 Google Chrome 直接把數據抓取到 Excel 之中, 由於 Excel 本身的數據處理能力和通用性, 為收集數據提供了一個直接的解決方案

方法如下:

1. 安裝 SeleniumBasic, 目前版本仍為 2016年時的 v2.0.9.0
seleniumbasic.jpg
https://github.com/florentbr/SeleniumBasic/releases/tag/v2.0.9.0

SeleniumBasic-2.0.9.0.rar (22.57 MB, 下载次数: 0)

下載並安裝

2. 由於 SeleniumBasic 內自帶的 WebDriver 也是 2016年的, 所以我們需要更新一下

https://sites.google.com/a/chromium.org/chromedriver/

比如我目前電腦Chrome 版本是 95, 但上面提供最新的是 94.0.4606.41

https://chromedriver.storage.goo ... omedriver_win32.zip

chromedriver_win32.zip (5.72 MB, 下载次数: 0)

3. 複製 chromedriver.exe 到 SeleniumBasic 目錄中, 路徑如下:
C:\Users\yourName\AppData\Local\SeleniumBasic

把紅色的改成你 Windows 的用戶名 Username

seleniumfolder.jpg

4. 打開 Excel 裡的 VBA 的編輯器, 選擇 Tools --> Reference

vbaref.jpg
勾選 Selenium Type Library, 然後確認

5. 現在你的 Excel 已可以使用 VBA 操作 Google Chrome 瀏覽器了
可以用下面代碼測試:
  1. Dim mybrowser As selenium.ChromeDriver
  2. Private Sub btnClick_Click()
  3.   Set mybrowser = New selenium.ChromeDriver
  4.   mybrowser.Start
  5.   mybrowser.Get "https://google.com"
  6. End Sub
复制代码


注意, 我在最上面使用 Dim mybrowser As selenium.ChromeDriver 而不是在一個 Sub 以內是因為在 Sub 完成時會把你的瀏覽器關掉

具體可以因應需求而變動

源碼文件請在附件中下載查看

source_code.rar (15.45 KB, 下载次数: 1)

有問題的同學也歡迎留言探討

回复

使用道具 举报

0

主题

1

回帖

14

积分

新手上路

积分
14
发表于 2022-8-21 14:54:17 | 显示全部楼层
运行时错误 -2146232576(80131700)
回复

使用道具 举报

88

主题

19

回帖

534

积分

区板主

积分
534
 楼主| 发表于 2023-12-2 20:45:29 | 显示全部楼层
qjguan 发表于 2022-8-21 14:54
运行时错误 -2146232576(80131700)

是運行哪一步是錯誤? 後來解決了嗎?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|AI 社区

GMT+8, 2024-5-23 11:59 , Processed in 0.030461 second(s), 22 queries .

Copyright © 2021 AI 社区

快速回复 返回顶部 返回列表