CreateNewDocument 方法

       

新建一个链接到指定超链接的文档。

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