Excel如何添加附件？附件插入方法详解
作者：佚名|分类：EXCEL|浏览：63|发布时间：2025-03-18 10:08:57
Excel如何添加附件？附件插入方法详解
在Excel中，添加附件是一个实用的功能，可以帮助我们在工作表中嵌入其他文件，如图片、文档等，以便于查看和编辑。以下将详细介绍如何在Excel中添加附件，并提供详细的步骤。
一、Excel添加附件的方法
1. 使用“插入”选项卡
（1）打开Excel工作簿，选择需要插入附件的工作表。
（2）点击“插入”选项卡，在“文本”组中找到“对象”按钮。
（3）在弹出的“对象”对话框中，选择“由文件创建”选项，然后点击“浏览”按钮。
（4）在弹出的文件选择窗口中，找到并选中需要插入的附件文件，点击“确定”按钮。
（5）在“对象类型”下拉列表中，选择“附件”选项，然后点击“确定”按钮。
（6）此时，所选附件将作为对象插入到工作表中。
2. 使用“开发工具”选项卡
（1）打开Excel工作簿，选择需要插入附件的工作表。
（2）如果“开发工具”选项卡未显示，请先通过以下步骤启用：在“文件”菜单中选择“选项”，在“自定义功能区”中勾选“开发工具”，然后点击“确定”。
（3）点击“开发工具”选项卡，在“控件”组中找到“ActiveX控件”按钮。
（4）在需要插入附件的位置拖动鼠标，绘制一个矩形区域。
（5）右键点击矩形区域，选择“属性”。
（6）在“属性”窗口中，找到“Class”属性，将其值设置为“Forms.CommandButton”。
（7）在“属性”窗口中，找到“Caption”属性，将其值设置为“附件”。
（8）关闭“属性”窗口，点击矩形区域，此时将出现一个按钮。
（9）右键点击按钮，选择“查看代码”。
（10）在打开的VBA代码窗口中，找到以下代码：
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "选择附件"
.Filters.Clear
.Filters.Add "所有文件", "*.*"
If .Show = -1 Then
' 插入附件
ActiveSheet.OLEObjects.Add Class:="Forms.Document", Link:=False, _
DisplayAsIcon:=False, Left:=100, Top:=100, Width:=100, Height:=100
With ActiveSheet.OLEObjects(1)
.Object = .Object
.Object.SaveAsFile .LinkFile
End With
End If
End With
End Sub
（11）修改代码中的文件路径为实际附件的路径。
（12）关闭VBA代码窗口，点击“开发工具”选项卡，在“控件”组中找到“ActiveX控件”按钮。
（13）在需要插入附件的位置拖动鼠标，绘制一个矩形区域。
（14）右键点击矩形区域，选择“属性”。
（15）在“属性”窗口中，找到“OnAction”属性，将其值设置为“CommandButton1_Click”。
（16）关闭“属性”窗口，此时按钮将变为一个附件图标。
二、附件插入方法详解
1. 使用“插入”选项卡的方法
（1）选择需要插入附件的工作表。
（2）点击“插入”选项卡，在“文本”组中找到“对象”按钮。
（3）在弹出的“对象”对话框中，选择“由文件创建”选项，然后点击“浏览”按钮。
（4）在弹出的文件选择窗口中，找到并选中需要插入的附件文件，点击“确定”按钮。
（5）在“对象类型”下拉列表中，选择“附件”选项，然后点击“确定”按钮。
（6）此时，所选附件将作为对象插入到工作表中。
2. 使用“开发工具”选项卡的方法
（1）打开Excel工作簿，选择需要插入附件的工作表。
（2）启用“开发工具”选项卡。
（3）点击“开发工具”选项卡，在“控件”组中找到“ActiveX控件”按钮。
（4）在需要插入附件的位置拖动鼠标，绘制一个矩形区域。
（5）右键点击矩形区域，选择“属性”。
（6）在“属性”窗口中，找到“Class”属性，将其值设置为“Forms.CommandButton”。
（7）在“属性”窗口中，找到“Caption”属性，将其值设置为“附件”。
（8）关闭“属性”窗口，点击矩形区域，此时将出现一个按钮。
（9）右键点击按钮，选择“查看代码”。
（10）在打开的VBA代码窗口中，找到以下代码：
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "选择附件"
.Filters.Clear
.Filters.Add "所有文件", "*.*"
If .Show = -1 Then
' 插入附件
ActiveSheet.OLEObjects.Add Class:="Forms.Document", Link:=False, _
DisplayAsIcon:=False, Left:=100, Top:=100, Width:=100, Height:=100
With ActiveSheet.OLEObjects(1)
.Object = .Object
.Object.SaveAsFile .LinkFile
End With
End If
End With
End Sub
（11）修改代码中的文件路径为实际附件的路径。
（12）关闭VBA代码窗口，点击“开发工具”选项卡，在“控件”组中找到“ActiveX控件”按钮。
（13）在需要插入附件的位置拖动鼠标，绘制一个矩形区域。
（14）右键点击矩形区域，选择“属性”。
（15）在“属性”窗口中，找到“OnAction”属性，将其值设置为“CommandButton1_Click”。
（16）关闭“属性”窗口，此时按钮将变为一个附件图标。
三、相关问答
1. 问题：如何删除Excel中的附件？
答案：选中附件，右键点击选择“删除对象”即可。
2. 问题：如何修改Excel中附件的文件名？
答案：选中附件，右键点击选择“编辑对象”，在弹出的窗口中修改文件名，然后点击“确定”按钮。
3. 问题：如何将Excel中的附件转换为图片？
答案：选中附件，右键点击选择“另存为”，选择图片格式保存即可。
4. 问题：如何将Excel中的附件转换为PDF格式？
答案：选中附件，右键点击选择“另存为”，选择PDF格式保存即可。
5. 问题：如何将Excel中的附件转换为Word文档？
答案：选中附件，右键点击选择“另存为”，选择Word文档格式保存即可。