Excel使用VBA批量插入Object

前言

老姐让我帮她写个程序，要在Excel中插入附件啥的，不然她五一放假就要加班了，所以我就在加班的期间查了查资料，一开始理解错题意，以为是要把PDF转换为Excel，还想着要用Python来写，后面发现，是要插入附件，可以用VBA来写。

由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率，例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单）等。（百度百科）

环境配置

为了使用VBA，我们需要开启Excel的开发者工具

文件 -> 选项 - > 自定义功能区 -> （右侧的)主选项卡 -> 勾选开发工具 -> 确定

回到主界面，点击

开发工具 -> 宏 -> 宏名 -> 输入 batchImportObject -> 创建 -> 进入 Visual Basic代码编辑区

复制粘贴一下代码，全选覆盖掉刚才创建的代码

Sub batchImportObject()
'Columns(1).Delete
On Error Resume Next
Dim f As String
Dim file() As String
Dim i, k, x
x = 1
i = 1: k = 1
ReDim file(1 To i)
file(1) = InputBox("请输入要查找的文件夹：") & "\"
Do Until i > k
f = Dir(file(i), vbDirectory)
Do Until f = ""
If InStr(f, ".") = 0 Then
k = k + 1
ReDim Preserve file(1 To k)
file(k) = file(i) & f & "\"
End If
f = Dir
Loop
i = i + 1
Loop
For i = 1 To k
f = Dir(file(i) & "*.*")
Do Until f = ""
'Range("a" & x) = f
ActiveSheet.OLEObjects.Add(Filename:=file(i) & f, _
Link:=False, _
DisplayAsIcon:=True, _
IconIndex:=0, _
Left:=10, Top:=10 + x, _
IconLabel:=file(i) & f).Select
x = 50 + x
f = Dir
Loop
Next
End Sub复制代码

而后保存文件，保存文件的具体步骤请看这里

大体的意思就是保存的文件类型需要更改为带有宏的文件

之后回到Excel中，点击

宏 -> 选择 batchImportObject -> 在弹出的输入框中输入所需要导入文件的文件夹路径 -> 等待或卡顿一段事件 -> 理论上就大功告成了

注意

文件夹下的所有文件都会被导入，所以请保证都是需要导入的文件*
如果导入文件过大或者数量太多，程序可能无响应，等待一段时间应该就可以了 *

转载于:https://juejin.im/post/5ae67964f265da0ba351d316

Excel使用VBA批量插入Object相关推荐

【Excel】VBA批量修改文件名
Excel:VBA批量修改文件名 Dim filePath As Variant '定义filepath为变量 Dim obj As Object '定义obj为变量对象 Dim fld, ff, g ...
Excel根据名字批量插入图片
Excel根据名字批量插入图片一.如果图片名称与Excel名称不一致时(如下图1) (图1) 1. 先将文件名批量形成文档txt,先新建一个文本文档1.TXT 打开后输入批处理命令:dir . &g ...
利用CAD VBA批量插入多段线
CAD VBA批量插入多段线,利用一维动态数组 Sub aa() '定义一个运行过程 Dim arr() As Double '定义一个空的动态数组 m = 4 '随便定一个值 nn = Array( ...
Excel 2010 VBA 入门 103 利用VBA批量插入图片
目录示例代码: Shapes.Shape和 ShapeRange Shapes对象插入图形的方法 Excel的坐标图形大小的调整获取图片的原始大小将图片按比例缩放至单元格图片批量插入的步骤 ...
Excel 文件怎么批量插入首页、扉页、尾页？怎么将某个 Excel 文件批量插入到其它 Excel 文件的指定位置？
概要:在我们日常办公中,经常会碰到需要给一批 Excel 文件批量插入首页或者尾页,或者在指定的位置插入新的 Sheet 的需求.「我的ABC软件工具箱」就实现了批量在指定位置插入新的内容的功能,可以 ...
excel表格怎么调整行高和列宽_如何在Excel中竖向批量插入图片，这个简单方法你知道吗...
酌酒与君君自宽,人情翻覆似波澜.白首相知犹按剑,朱门先达笑弹冠.草色全经细雨湿,花枝欲动春风寒.世事浮云何足问,不如高卧且加餐. --[唐]王维<酌酒与裴迪> 不知道大家有没有遇到过这种情 ...
c# 读取Excel，并批量插入到数据库
public static string BD_MaterialImport(string FilePath){try{#region 读取工作表,导入数据 //此连接可以操作.xls与.xlsx文件 ...
Excel使用VBA自动调整插入图片大小到单元格
文章目录前言 VBA是什么? 使用步骤 1.新建一个xls表格 2.开启宏功能 3.打开宏界面 4.复制粘贴代码把宏命令添加到快捷访问上总结前言最近突然要做大量带图片的Excel表格,Off ...
如何在Excel中用VBA批量生成“照相机“图片
什么?你不知道照相机是什么??那参见我这篇文章吧 Excel做数据海报需求描述目前的状况是这样的,我有1个总表,26个子表.26个子表是按照总表的某个字段拆分出来的.然后我需要生成26个子表的照相 ...

Excel使用VBA批量插入Object

前言

环境配置

注意

Excel使用VBA批量插入Object相关推荐

最新文章

热门文章