在Excel中增加超鍊接，可以使我們的對于其它文件的訪問變得十分方便，同樣也會大大增加工作效率。

本文介紹一個方法，實現添加超鍊接，并打開文件進行操作。

如下圖所示：

圖中的文件地址為自動創建的超鍊接，可以直接定位到要編輯的文件。

創建過程實際上隻需要單擊鼠标來進行，十分簡單。

重點在這裡介紹一個對象的方法。

對象：HyperLink

方法：CreateNewDocument

很顯然，這是HyperLink對象的一個方法，以前我們也在文章中介紹過HyperLink創建超鍊接的一些示例。

CreateNewDocument語法如下圖所示：

語法：

HyperLinkObj.CreateNewDocument (FileName 、EditNow、Overwrite)

本方法有3個參數，都是必要參數。

1. Filename為文件名，可以為Excel文件，也可以為Word文件，甚至其它應用文件。
2. EditNow：布爾值，默認為True，表示立即在相應應用中打開進行編輯。
3. Overwrite:布爾值，默認為False,表示不覆蓋原文件。True則覆蓋後再打開進行編輯，謹慎設置。

示例：

Private Sub NewLinkEditFile() Dim objHyper As Object, HyperName As String Dim R As Range, ir As Long HyperName = Application.InputBox("輸入文件名", "輸入文件名...", "文件1") If HyperName = False Then Exit Sub If VBA.Len(VBA.Trim(HyperName)) = 0 Then Exit Sub Set R = Range("B3") ir = Range("B" & Rows.Count).End(xlUp).Row If ir < R.Row Then ir = R.Row - 1 If ir >= Rows.Count Then ir = R.Row - 1 ir = ir 1 Set R = Cells(ir, R.Column) Set objHyper = Me.Hyperlinks.Add(anchor:=R, _ Address:=ThisWorkbook.Path & "\" & HyperName & ".xlsx") objHyper.CreateNewDocument Filename:=ThisWorkbook.Path _ & "\" & HyperName & ".xlsx", editnow:=True, overwrite:=True Set objHyper = Nothing Set R = Nothing End Sub

關鍵代碼：

objHyper.CreateNewDocument Filename:= "新文件1.xlsx", editnow:=True, overwrite:=False

這樣就新建了一個超鍊接，自動添加到工作表列表當中了。

以後使用直接點擊超鍊接，就可以打開文件進行編輯。

歡迎關注、收藏

---END---