1. 首頁 > 生活百科 > >

在excel工作表中插入并重命名文檔對象

小知識生活百科

在Excel中，我們可以在工作表中插入文檔對象并設置鏈接，這樣可以直接單擊該對象即可打開相應的文檔 。因此，我們可以將與此工作表相關的文檔當作文檔對象放置在工作表中，在需要時單擊快速打開，非常方便 。
插入文檔對象的操作方法如下 。
在功能區“插入”選項卡的“文本”組中，單擊“對象”按鈕，如下圖1所示 。

在excel工作表中插入并重命名文檔對象


圖1
打開“對象”對話框，在“由文件創建”選項卡中，單擊“瀏覽”按鈕，如下圖2所示 。
在excel工作表中插入并重命名文檔對象


圖2
在“瀏覽”對話框中，找到想要插入的文檔，如下圖3所示 。
在excel工作表中插入并重命名文檔對象


圖3
單擊“插入”“確定”，即在工作表中插入了文檔對象，如下圖4所示 。
在excel工作表中插入并重命名文檔對象


圖4
單擊該對象，即可迅速打開該文檔，如下圖5所示 。
在excel工作表中插入并重命名文檔對象


圖5
如果在上圖2所示的“對象”對話框中選中了“顯示為圖標”復選框，則插入的文檔對象顯示如下圖6所示 。
在excel工作表中插入并重命名文檔對象


圖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所示 。
在excel工作表中插入并重命名文檔對象


【在excel工作表中插入并重命名文檔對象】圖7

    猜你喜歡