没有合适的资源?快使用搜索试试~ 我知道了~
Excel批量插图小工具
13 下载量 153 浏览量
2021-01-07
12:41:22
上传
评论
收藏 151KB PDF 举报
温馨提示
试读
2页
问题描述:根据商品货号在Excel里进行图片展示 多文件批量插图 本程序下载地址:https://download.csdn.net/download/qq_35866846/12170343 有下载使用不清楚的可以后台留言 插入后效果图: 执行界面: Sub 批量插图() Dim MyFileName, MyPath As String Dim MyBook As Workbook Dim count As Integer Dim pw As String Dim address As String Dim c As Range D
资源推荐
资源详情
资源评论
Excel批量插图小工具批量插图小工具
问题描述:根据商品货号在Excel里进行图片展示
多文件批量插图
本程序下载地址:https://download.csdn.net/download/qq_35866846/12170343
有下载使用不清楚的可以后台留言
插入后效果图:
执行界面:
Sub 批量插图()
Dim MyFileName, MyPath As String
Dim MyBook As Workbook
Dim count As Integer
Dim pw As String
Dim address As String
Dim c As Range
Dim cellcolumn, piccolumn As Integer
On Error Resume Next '容错处理
address = Cells(1, 2).Value '图片文件夹所在的位置,根据图片位置修改
cellcolumn = Cells(2, 2).Value '设置款号所在列,根据自己实际情况修改
piccolumn = Cells(3, 2).Value '设置插入图片所在第几列,根据自己实际情况修改
count = 0
MyPath0 = Cells(4, 2).Value
For Each c In Range("b5:b7"): '循环读取子文件夹的文件夹名称
MyPath = MyPath0 & "\" & c.Value '拼接文件所在路径
MyFileName = Dir(MyPath & "\*.xlsx")'索引查找子文件夹下的xlsx文件
Application.ScreenUpdating = False'关闭屏幕更新,提升速度
Application.DisplayAlerts = False
Do Until MyFileName = ""
Workbooks.Open MyPath & "\" & MyFileName'打开文件循环读取文件
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.DrawingObjects.Delete'循环sheet删除原先表内插入的图片
资源评论
weixin_38637764
- 粉丝: 10
- 资源: 953
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功