Excel之VBA常用功能应用篇：新建超链接，打开文档进行编辑

在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

这样就新建了一个超链接，自动添加到工作表列表当中了。

以后使用直接点击超链接，就可以打开文件进行编辑。