在Excel中增加超链接,可以使我们的对于其它文件的访问变得十分方便,同样也会大大增加工作效率。
本文介绍一个方法,实现添加超链接,并打开文件进行操作。
如下图所示:
图中的文件地址为自动创建的超链接,可以直接定位到要编辑的文件。
创建过程实际上只需要单击鼠标来进行,十分简单。
重点在这里介绍一个对象的方法。
对象:HyperLink
方法:CreateNewDocument
很显然,这是HyperLink对象的一个方法,以前我们也在文章中介绍过HyperLink创建超链接的一些示例。
CreateNewDocument语法如下图所示:
语法:
HyperLinkObj.CreateNewDocument (FileName 、EditNow、Overwrite)
本方法有3个参数,都是必要参数。
- Filename为文件名,可以为Excel文件,也可以为Word文件,甚至其它应用文件。
- EditNow:布尔值,默认为True,表示立即在相应应用中打开进行编辑。
- 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---