如何在excel中加入一个文件

有时候我们在制作表格的时候，需要对某一个表格的内容进行扩充，可以在表格中插入文档、表格等文件。那如何在excel中加入一个文件？

如何在excel中加入一个文件？

1、选中单元格后，在“插入”选项卡上的“文本”组中，点击【对象】。

2、切换至“由文件创建”栏，点击【浏览】插入文件即可。

本文以华为matebook 16为例适用于windows 10系统microsoft excel 2019版本

复制和粘贴是可以的, 它可以把对应的表格复制过来, 不过这还不能算是一个 XLS 文档对象. \x0d\x0a\x0d\x0a1. 可以通过点击菜单>>插入>>对象>>新建:从列表中选择 Microsoft Excel 工作表. 对应工具栏按钮为 "插入 Microsoft Excel 工作表".\x0d\x0a\x0d\x0a2. 菜单>>插入>>对象>>由文件创建, 选择你想要插入的 XLS 文件.\x0d\x0a\x0d\x0a这类对象可以通过双击表格进入 Excel 工作状态. (注意WORD工具栏的变化, 变成了 Excel 的工具栏)

步骤：

1、新建一个word文档，啥都没有的那种哦，

2、点击开发工具，

3、点击宏，

4、创建宏

5、遍历文件夹

Sub 批量插入对象()

Dim fs, f, f1, fc

Dim num As Integer

Dim Str(100) As String

num = -1

Set fs = CreateObject("scripting.filesystemobject")

Set f = fs.getfolder("C:\Users\adol\Desktop\mike")

Set fc = f.Files

Debug.Print "该文件夹里的所有文件有："

For Each f1 In fc

num = num + 1

'输出一下文件名，注释符是 英文状态下的‘号

Debug.Print f1

Next

Debug.Print "文件总数：" &num

End Sub

6、在编辑器里键入以下代码，遍历并插入对象；

Sub 批量插入对象()

Dim fs, f, f1, fc'定义变量

Dim num As Integer'

Dim Str(100) As String '

num = -1

Set fs = CreateObject("scripting.filesystemobject") '文件流

Set f = fs.getfolder("C:\Users\adol\Desktop\mike") '获取文件名集合，文件夹路径

Set fc = f.Files '文件集合

Debug.Print "该文件夹里的所有文件有："

For Each f1 In fc

num = num + 1'计数

Selection.InlineShapes.AddOLEObject ClassType:="Visio.Drawing.11", _

FileName:=f1, LinkToFile:=False, _

DisplayAsIcon:=False

Debug.Print f1 &"已插入文件"

Next

Debug.Print "文件总数：" &num

End Sub

---