vba 修改条件格式（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

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

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

欢迎关注、收藏

---END---