在excel工作表中插入并重命名文档对象
时间:2023-05-02 20:21:09
在Excel中,我们可以在工作表中插入文档对象并设置链接,这样可以直接单击该对象即可打开相应的文档。因此,我们可以将与此工作表相关的文档当作文档对象放置在工作表中,在需要时单击快速打开,非常方便。
插入文档对象的操作方法如下。
在功能区“插入”选项卡的“文本”组中,单击“对象”按钮,如下图1所示。
图1
打开“对象”对话框,在“由文件创建”选项卡中,单击“浏览”按钮,如下图2所示。
图2
在“浏览”对话框中,找到想要插入的文档,如下图3所示。
图3
单击“插入”“确定”,即在工作表中插入了文档对象,如下图4所示。
图4
单击该对象,即可迅速打开该文档,如下图5所示。
图5
如果在上图2所示的“对象”对话框中选中了“显示为图标”复选框,则插入的文档对象显示如下图6所示。
图6
当然,也可以使用VBA代码来完成文档对象的添加,并且同时修改该对象的名称。代码如下:
Sub LoadExcelDoc()
Dim myWorkbook As Object
Dim strFilename As String
On Error Resume Next
‘使用文件对话框选择想要的文件
strFilename = Application.GetOpenFilename _
(Title:=”请选择要打开的文件”, _
FileFilter:=”Excel文件 *.xls* (*.xls*),”)
‘添加文档对象
Set myWorkbook = ActiveSheet.OLEObjects.Add_
(Filename:=strFilename, _
Link:=False, _
DisplayAsIcon:=True, _
IconFileName:= _
“C:\Windows\Installer\{90160000-000F-0000-0000-0000000FF1CE}\xlicons.exe”,_
IconIndex:=0, _
IconLabel:=strFilename)
‘修改添加的对象的名称
myWorkbook.Name = “我的工作簿”
End Sub
注意,代码中IconFileName参数的图标编码可能不同,你可以先按照上文使用Excel对象功能插入文档的操作宏制宏,然后查看宏代码确认你的计算机上的图标编码。
运行代码,将弹出选择文件对话框,选取要插入的文件后,结果如下图7所示。
图7
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win7系统删除提示文件夹访问被拒绝的解决方法
![](https://img.aspxhome.com/file/2023/27/a230319_0s.jpg)
diskgenius怎么设置uefi bios启动项?diskgenius设置启动项方法教程
![](https://img.aspxhome.com/file/2023/30/a268868_0s.jpg)
盗版用户是无法升级Windows 10 需确保Win7/8拥有正版授权
![](https://img.aspxhome.com/file/2023/28/a250281_0s.png)
wps文字中将图片如何设置背景
剪映Windows电脑专业版里面的素材可不可以作为商用?
![](https://img.aspxhome.com/file/2023/7/a328989_0s.jpg)
Win10 RS1预览版将至,Edge浏览器扩展官网曝光
![](https://img.aspxhome.com/file/2023/5/a317200_0s.jpg)
电脑版wps文档如何自定义符号栏
![](https://img.aspxhome.com/file/2023/4/a183474_0s.png)
wps批注如何一次性全部删除掉?
![](https://img.aspxhome.com/file/2023/30/a263717_0s.png)
搜狗输入法打不了汉字怎么办
Win11桌面右侧通知栏怎么关闭?Win11关闭右侧通知栏教程
![](https://img.aspxhome.com/file/2023/27/a238224_0s.jpg)
excel中创建图表的操作方法
![](https://img.aspxhome.com/file/2023/8/a162218_0s.png)
wmburn.exe是什么进程
怎么在excel中使用函数计算
Win10录屏功能不工作怎么办?Win10录屏功能不工作的解决方法
![](https://img.aspxhome.com/file/2023/26/a219712_0s.jpg)
win10如何关闭自动播放_win10如何关闭自动播放的方法
![](https://img.aspxhome.com/file/2023/3/a301101_0s.png)
wps表格如何存为图片
Excel中进行数字型数字与字符型数字相互转换的方法
华为平板成功刷win10详细图文教程
![](https://img.aspxhome.com/file/2023/1/a277362_0s.png)
Win10怎么直接查看raw缩略图?Win10查看raw缩略图教程
![](https://img.aspxhome.com/file/2023/25/a218323_0s.png)
升级win10预览版10586后电脑屏幕闪烁不停该怎么办?
![](https://img.aspxhome.com/file/2023/28/a246426_0s.jpg)