Excel表格怎么添加附件？如何快速插入？
作者：佚名|分类：EXCEL|浏览：167|发布时间：2025-04-06 20:26:09
Excel表格怎么添加附件？如何快速插入？
在Excel中添加附件是一个实用的功能，可以帮助我们在表格中嵌入文档、图片或其他类型的文件，以便于查看和分析。以下是如何在Excel中添加附件以及如何快速插入附件的详细步骤。
一、使用“插入”选项卡添加附件
1. 打开Excel文件：首先，打开你想要添加附件的Excel文件。
2. 选择插入位置：在Excel表格中，选择你想要插入附件的位置。
3. 点击“插入”选项卡：在Excel的菜单栏中，找到并点击“插入”选项卡。
4. 选择“对象”：在“插入”选项卡中，找到“对象”按钮并点击。
5. 选择“由文件创建”：在弹出的“对象类型”对话框中，选择“由文件创建”。
6. 浏览文件：点击“浏览”按钮，在弹出的文件选择窗口中找到你想要插入的附件文件。
7. 插入附件：选择文件后，点击“确定”。此时，附件将以对象的形式插入到Excel表格中。
8. 调整附件大小和位置：你可以通过拖动附件周围的边框来调整其大小，或者通过拖动附件本身来调整其位置。
二、使用快捷键快速插入附件
如果你经常需要在Excel中插入附件，可以使用快捷键来提高效率。
1. 打开Excel文件：与上述步骤相同，首先打开Excel文件。
2. 选择插入位置：在表格中选择你想要插入附件的位置。
3. 使用快捷键：按下`Alt + F11`键，打开VBA编辑器。
4. 插入模块：在VBA编辑器中，选择“插入”菜单，然后选择“模块”。
5. 编写代码：在打开的模块窗口中，输入以下代码：
```vba
Sub InsertAttachment()
Dim objAttachment As Object
Set objAttachment = ThisWorkbook.VBProject.VBComponents.Add(1)
objAttachment.CodeModule.InsertLines 1, "With ThisWorkbook.VBProject.VBComponents.Add(1)" & vbCrLf & _
" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 2, ""Dim objAttachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 3, ""Set objAttachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 4, ""objAttachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 5, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 6, "" .CodeModule.InsertLines 2, ""Dim objAttachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 7, "" Set objAttachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 8, "" objAttachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 9, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 10, "" .CodeModule.InsertLines 2, ""Dim objAttachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 11, "" Set objAttachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 12, "" objAttachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 13, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 14, "" .CodeModule.InsertLines 2, ""Dim objAttachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 15, "" Set objAttachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 16, "" objAttachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 17, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 18, "" .CodeModule.InsertLines 2, ""Dim objAttachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 19, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 20, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 21, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 22, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 23, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 24, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 25, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 26, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 27, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 28, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 29, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 30, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 31, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 32, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 33, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 34, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 35, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 36, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 37, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 38, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 39, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 40, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 41, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 42, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 43, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 44, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 45, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 46, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 47, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 48, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 49, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 50, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 51, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 52, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 53, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 54, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 55, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 56, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 57, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 58, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 59, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 60, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 61, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 62, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 63, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 64, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 65, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 66, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 67, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 68, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 69, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 70, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 71, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 72, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 73, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 74, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 75, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 76, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 77, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 78, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 79, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 80, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 81, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 82, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 83, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 84, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 85, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 86, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 87, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 88, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 89, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 90, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 91, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 92, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 93, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 94, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 95, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 96, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 97, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 98, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 99, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 100, "" obj_attachment.CodeModule.InsertLines 1, ""With ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
" .CodeModule.InsertLines 101, "" .CodeModule.InsertLines 1, ""Sub InsertAttachment()"" & vbCrLf & _
" .CodeModule.InsertLines 102, "" .CodeModule.InsertLines 2, ""Dim obj_attachment As Object"" & vbCrLf & _
" .CodeModule.InsertLines 103, "" Set obj_attachment = ThisWorkbook.VBProject.VBComponents.Add(1)"" & vbCrLf & _
"