关于加载静态资源http在谷歌浏览器自动转换为https的问题

关于加载静态资源http在谷歌浏览器自动转换为https的问题

报错信息如下
目前我所此时有效的方式是通过a标签打开 如各位大佬有另外的解决方式 请指教

特殊: 使用img加载图片 越过了浏览器的限制

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在 VBA 中抓取谷歌浏览器的静态网页数据需要使用 Selenium 和 ChromeDriver。请按照以下步骤进行操作: 1. 下载并安装 Selenium VBA 组件。您可以从以下链接获取最新版本:https://github.com/florentbr/SeleniumBasic/releases 2. 下载并安装 ChromeDriver,确保与您的 Chrome 浏览器版本匹配。您可以从以下链接获取最新版本:https://sites.google.com/a/chromium.org/chromedriver/downloads 3. 打开 VBA 编辑器,选择“工具”->“引用”,然后勾选“Selenium Type Library”。 4. 在 VBA 编辑器中插入以下代码: ```vba Sub 抓取谷歌浏览器静态网页数据() Dim driver As New Selenium.ChromeDriver Dim element As Selenium.WebElement Dim elements As Selenium.WebElements Dim i As Integer ' 启动 Chrome 浏览器 driver.Start "chrome" ' 导航到要抓取的网页 driver.Get "http://www.example.com" ' 使用 Selenium 提供的方法来定位元素并获取数据 Set elements = driver.FindElementsByCss("table tr") ' 假设要抓取表格的每一行数据 ' 输出数据到 Excel 表格 For i = 1 To elements.Count Set element = elements.Item(i - 1) ' 输出每一行的数据到 Excel 单元格 ThisWorkbook.Sheets(1).Cells(i, 1) = element.FindElementByCss("td:nth-child(1)").Text ThisWorkbook.Sheets(1).Cells(i, 2) = element.FindElementByCss("td:nth-child(2)").Text ' 根据实际情况修改上述代码来获取其他列的数据 Next i ' 关闭 Chrome 浏览器 driver.Quit MsgBox "数据抓取完成!" End Sub ``` 请注意,上述代码使用了 Selenium VBA 组件的方法来定位和获取网页元素。您可以根据实际情况修改代码以适应不同网页的结构和需求。另外,确保您已正确安装了 Selenium 和 ChromeDriver,并将 ChromeDriver 的路径添加到系统环境变量中。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值