用VBA下载google图片

最新推荐文章于 2025-08-04 16:20:47 发布
原创 最新推荐文章于 2025-08-04 16:20:47 发布 · 989 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#vba #google #path #string #function #api

这段VBA代码演示了如何通过循环从Google图片搜索中下载指定关键词的图片。首先，它创建一个XMLHTTP对象来获取网页内容，然后解析响应以找到图片链接，并使用ADODB.Stream保存图片到本地。在杨志宁的建议下，改用API：URLDownloadToFile进行下载，提高了效率。

最低0.47元/天 解锁文章
ccwanlxg
关注
VBA自学应用（6）——URLDownloadToFile下载图片
一位VBA和JSA、书法爱好者
01-01 3203
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, ByVal dwReserved As Long, _ ByVal lpfn...
利用Excel VBA将坐标点直接转换为谷歌地球的kml格式文件（ExcelToKml）
数字地质
09-23 1万+
谷歌地球使用的是WGS84坐标系统，美国的GPS系统使用的就是WGS84，换而言之，我们在野外所用的手持GPS、带导航功能的手机以及车载GPS所用的都是WGS84系统，本文所讲述的是利用Excel VBA将WGS84坐标下的经纬度坐标转换为谷歌地球（Google Earth）可以直接打开的kml文件，无需再进行转换，方便实用。
vba，选中带有图片连接的单元格时，自动下载图片
jieru_liu的博客
03-30 1145
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo ErrL With Target If Left(.Value, 8) = "https://" And Right(.Value, 3) = "jpg" Then '如果单元格内容为网址 '添加网络图片，并设置为图片大小位置随单元格变化而变化 ActiveSheet.S
Vba_下载网络文件（图片）
weixin_42769855的博客
03-09 4132
Vba_Excel URLDownloadToFile 函数 ——下载网络图片到存放到本地磁盘 /** * imageURl 下载的图片地址 * savePath 存储的磁盘位置，绝对路径 * DownloadWebImage 处理结果 true of false **/ Public Function DownloadWebImage(imageUrl As String, savePath...
VBA下载糗事百科图片
baidu_41549282的博客
06-15 489
Sub 下载糗事百科图片()    Dim b() As Byte    For pagenum = 1 To 15        Dim xmlhttp As Object        Set xmlhttp = CreateObject("MSXML2.XMLHTTP")        strurl = "https://www.qiushibaike.com/pic/" & "pa...
EXCEL VBA批量下载URL链接地址图片、URL链接地址图片转为图片
热门推荐
sdy的博客
09-06 2万+
在EXCEL里，需要大量引用网上链接图片，例如python的爬虫把图片链接爬取之后，需要在EXCEL内展示图片，可以使用VBA批量将URL链接地址图片转为图片； 1.复制以下代码到VBA内，（不知道VBA是什么的传送门：https://blog.youkuaiyun.com/weixin_39416561/article/details/82428684） Sub 链接转图片() For Each R...
如何使用VBA批量下载图片
神奇的BI
06-01 2283
实例需求：根据Excel表格A列中的链接下载图片，B列为文件名，C列为文件类型。
vb.net+VBA+js网络图片ocr识别
01-15
【vb.net+VBA+js 网络图片 OCR 识别】的知识点涵盖了多个领域，主要包括以下几个方面： 1. **跨平台技术**：虽然没有直接提及，但是vb.net、VBA和JavaScript的组合暗示了跨平台开发的可能性。vb.net是.NET框架的一...
VBA批量图片操作：流程自动化中的图像管理策略
首先介绍了VBA处理图片的基础理论，包括图像对象模型、文件系统对象的使用和图片处理的逻辑设计。接着，本文详细探讨了图片导入导出、转换调整、自动化注释标记等实用操作，并分析了VBA与Excel集成实现流程自动化的...
记录成功用selenium爬取百度图片
m0_49525050的博客
06-02 1860
在VS中用selenium爬取百度图片 忘了爬取动态图片花了多长时间了，现在终于成功爬取百度图片了，从安装selenium开始，出了好多bug，也参考了一些up主的视频代码，现在终于成功了，但这只是最最基本，简单的，但有了这个基础，我想其他的要求再努力很快就能出来，现在我就将我从配置过程一步一步讲起。 1、配置各类环境 1）在window系统找到“命令指示符”，在框内输入"pip install selenium",按回车键，就可以开始下载selenium了（这种方法速度应该比较慢，但我觉得方便，下载安装包
vba批量存储excel图片
11-03
VBA实现批量按文件名存储excel图片到文件夹里，非常方便快捷，不用手动一张一张另存为图片了，为excel办公减少了不必要的时间
vba 插入图片
03-19
根据某一列的值获取相应的图片名称，插入到某一列
VBA多线程编程
02-16
1个exceL VBA环境下进行多线程编程的好例子
Excel2010VBA批量插入或导出图片
09-16
以前用Excel2003做了些宏，在网上还有不少粉丝，因一些功能在Excel2010中无法使用，故重新整理，欢迎指正； 本Excel中的宏在Excel2010中测试表现出色; 运行宏前，要保证EXCEL没有禁用宏。 Michael Ho QQ: 9900060 ----------------------- 本Excel有以下功能： 插入图片1 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet2到新工作簿，并插入你所选文件夹中的全部JPG图片到B列，对应的图片名自动填到C列； 3.图片的大小会自动适应Sheet2的B3单元格，因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的大小。 -------- 插入图片2 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet3到新工作簿，并插入你所选文件夹中的全部JPG图片制作图册，对应的图片名自动填到图片下方； -------- 插入图片3 如果用户自己的Excel文件中有一列是型号，该宏可以插入指定文件夹里以型号命名的JPG图片到另一列； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏InsertPic3）； 4.然后会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 5.在弹出的对话框中指定型号在第几列，图片要插入到第几列，以及从哪一行开始； 6.图片的大小会自动适应你设定的第一行要插入图片的单元格，因此提前调整那个单元格的大小可以控制插入图片的大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+d (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏DelPic）； ------------- 导出活动工作表中被选中的一张JPG图片 Ctrl+e 导出活动工作表中被选中的一张JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.请选中一张要导出的图片； 4.在你的文件中按Ctrl+e (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputOnePic）； 5.在弹出的对话框中指定图片要保存的名字； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存。 2.在桌面上会自动新建一个"OutputPic"的文件夹，导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ------------- 导出活动工作表中所有JPG图片 Ctrl+f 导出活动工作表中所有JPG图片，并且图片名自动使用指定列中的图片名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+f (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputAllPic）； 4.在弹出的对话框中指定图片所在列，图片名所在的列； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存； 2.在桌面上会自动新建一个"OutputPic"的文件夹，所有导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ---------------- 对指定文件夹中的JPG图片进行重命名 Ctrl+r 利用活动工作表中的所有图片的旧名与新名的对照，对指定文件夹中JPG图片进行重命名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+r (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏RenamePic）； 4.在弹出的对话框中指定图片旧名所在列和图片新名所在的列； 1.可以结合插入图片的宏，将所有图片的旧名输入到Excel中，再在另一列中填上新图片名，然后使用该宏。 2.如果顺利运行，会在原来那个文件夹下面新建一个叫“New”的子文件夹，所有重命好名的图片会自动放入子文件夹里； 3.如果文件夹中已有相同名字的文件，则后面的文件会覆盖原来的文件。
VBA 下载图片到word
to_gengqing的专栏
10-15 1038
<br />如果你需要到网上下载图片到Word文档,下面的代码可以帮到你<br />首先添加引用 "Microsoft WinHTTP Services,vesion <br /> <br />Sub htmlCopyLoadPicture()<br />    Dim WinHttpReg As WinHttp.WinHttpRequest<br />  <br />   ' Dim myArr() As String<br />    'Dim i As Long<br />     Dim d() A
VBA-Excel图片下载到本地文件夹
maodajitui的博客
08-04 499
3. 图片宽和高也可修改，默认宽为500，长为550。要求路径不存在或者要清空（清空是因为如果已存在对应图片则不会更新）2. url所在列（建议使用默认形式，第。打开包含商品信息和图片url的excel。一定要在路径末尾添加“\”Alt+F11进入vba。
单元格 图片导出excel_利用VBA下载钉钉系统导出Excel数据中的图片
weixin_36221923的博客
01-13 3885
钉钉是个非常不错的工具，在我们日常使用中经常要上传一些图片，有的是为了打卡，有的为了审批流程，实际使用中都有照片的上传，但是将有照片的数据导出时，其在Excel中是显示该图片的一个链接，如果上传的是多张照片则是一组照片链接，如果我们想保存其中的照片或者是查看，会很不方便。如图所示：钉钉中下载的示例数据 今天我就结合Excel中导出的数据，结合VBA，将钉钉中导出的数据中的图片全部下载到本地。具体...
Google TakeOut图片下载器
寒冰屋的专栏
01-30 2069
目录 介绍 背景 使用应用程序 关于源代码 下载管理器 使用下载管理器 内部下载管理器 StartDownload()函数 TraverseFolderTree函数 RetrieveImage函数 IdownloadProgressNotifier接口 接口函数 Form1类 IDownloadProgressNotifier接口实现 下载源339.3 KB 介绍 ...
Excel VBA实现图片网址变为图片，以及导入本地图片
weixin_43560960的博客
06-22 1万+
前段时间爬了一些数据，但是只有excel文本，文本中有图片地址，想让图片显示出来，这就需要用到VBA了。 1-建立一个宏，名字随意 然后点编辑，复制以下内容（如果你的地址不在第一列，可以更改cells(i,1) i的值，或者把数据弄到第一列） On Error Resume Next i = 1 Do While i <= Cells(Rows.Count, 1).End(xlUp)....
这些开源的OCR工具中哪个可以使用vba调用
最新发布
11-06
可以使用VBA调用的开源OCR工具，其中比较常用的是Tesseract-OCR。Tesseract-OCR是一款由HP实验室开发、Google维护的开源OCR引擎，用户可以不断训练其字库，增强图像转换文本的能力，甚至可以以它为模板，开发出符合自身需求的OCR引擎 [^3]。 在VBA中调用Tesseract-OCR，通常需要借助其命令行工具，以下是一个简单示例代码： ```vba Sub CallTesseractOCR() Dim ShellObj As Object Dim Command As String ' 设置Tesseract-OCR的路径和要处理的图片路径 Dim TesseractPath As String TesseractPath = "C:\Program Files\Tesseract-OCR\tesseract.exe" ' 根据实际安装路径修改 Dim ImagePath As String ImagePath = "C:\Path\To\Your\Image.png" ' 根据实际图片路径修改 Dim OutputPath As String OutputPath = "C:\Path\To\Your\Output" ' 根据实际输出路径修改 ' 构建命令行命令 Command = """" & TesseractPath & """" & " " & """" & ImagePath & """" & " " & """" & OutputPath & """" ' 创建Shell对象并执行命令 Set ShellObj = CreateObject("WScript.Shell") ShellObj.Run Command, 0, True ' 读取输出文件内容 Dim FileContent As String Open OutputPath & ".txt" For Input As #1 FileContent = Input$(LOF(1), 1) Close #1 ' 可以在这里对FileContent进行进一步处理，比如显示在单元格中 Range("A1").Value = FileContent Set ShellObj = Nothing End Sub ```
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值