超链接代码(html源码网站)

在Excel中添加超链接可以让我们很方便的访问其他文件，也会大大提高工作效率。

介绍了一种添加超链接和打开文件进行操作的方法。

如下图所示:

图中的文件地址是自动创建的超链接，可以直接定位到要编辑的文件。

其实创建过程只需要点击鼠标，非常简单。

本文主要讨论对象的方法。

对象:超链接

方法:创建新文档

显然，这是一个超链接对象的方法。在上一篇文章中，我们还介绍了一些创建超链接的例子。

CreateNewDocument语法如下图所示:

语法:

HyperLinkObj。创建新文档(文件名、立即编辑、覆盖)

这个方法有三个参数，这三个参数都是必需的。

Filename为文件名，可以为Excel文件，也可以为Word文件，甚至其它应用文件。EditNow：布尔值，默认为True，表示立即在相应应用中打开进行编辑。Overwrite:布尔值，默认为False,表示不覆盖原文件。True则覆盖后再打开进行编辑，谨慎设置。

示例:

private Sub newlink editfile()Dim obj yper As Object，HyperName As StringDim R As Range，IR As long hyperpename = Application。InputBox(& # 34；输入文件名& # 34；, "输入文件名...", "1")如果HyperName = False，则退出SubIf VBA。莱恩(VBA。Trim(HyperName)) = 0，然后退出子集R = Range(& # 34；B3 & # 34；)IR = Range(& # 34；B&第34名；&行。数数)。结束(xlUp)。RowIf ir & ltR . Row Then IR = R . Row-1 if IR & gt；=行。Count然后ir = R.Row - 1ir = ir + 1Set R = Cells(ir，R.Column)Set objHyper = Me。Hyperlinks.Add(anchor:=R，_ Address:=ThisWorkbook。路径& & # 34；\"& HyperName & & # 34。xlsx & # 34)objHyper。CreateNewDocument文件名:=ThisWorkbook。Path _ & & # 34\"& HyperName & & # 34。xlsx & # 34，editnow: = true，overwrite:= true set obj yper = nothing set r = nothing end子键代码:

objHyper。CreateNewDocument文件名:= & # 34；新文件1.xlsx & # 34，editnow:=True，overwrite:=False

这样，一个新的超链接被创建并自动添加到工作表列表中。

以后，您可以直接单击超链接打开文件进行编辑。

欢迎，收藏

-结束-