新建一个链接到指定超链接的文档。
expression.CreateNewDocument(Filename, EditNow, Overwrite)
expression 该表达式返回一个 Hyperlink 对象。
Filename String 类型,必需。表示指定文档的文件名。
EditNow Boolean 类型,必需。如果为 True,则立即在关联的编辑环境中打开指定文档。默认值为 True。
Overwrite Boolean 类型,必需。如果为 True,则覆盖相同文件夹中的已有同名文件。如果为 False,则保留同名文件,同时使用 Filename 参数指定新的文件名。默认值为 False。
本示例在第一张工作表中新建一个基于新的超链接的文档,然后将该文档装入 Microsoft Excel 中进行编辑。该文档名为“Report.xls”,同时还会覆盖“\\Server1\Annual”目录下的所有同名文件。
With Worksheets(1)
Set objHyper = _
.Hyperlinks.Add(Anchor:=.Range("A10"), _
Address:="\\Server1\Annual\Report.xls")
objHyper.CreateNewDocument _
FileName:="\\Server1\Annual\Report.xls", _
EditNow:=True, Overwrite:=True
End With