Application.OpenXML 方法 (Project)

通过 XML 字符串打开项目。

语法

expression。 OpenXML( _XML_ )

expression：表示“Application”对象的变量。

参数

名称	必需/可选	数据类型	说明
XML	必需	String	包含符合 Project XML 架构的有效 Project XML 字符串的字符串。

返回值

Long

备注

该项目的 XML 架构中提供了Project SDK，为文件 mspdi_pj15.xsd。 通过将项目保存为 XML，然后编辑该文件，可以创建一个 XML 文件。 如果您以编程方式创建一个 XML 字符串，则应验证它根据架构 OpenXML 方法在使用前。

OpenXML 方法返回 0，如果它成功。

注意

[!注释] 您可以使用 FileOpenEx 方法打开有效项目的 XML 文件。 OpenXML 方法主要是通过使用 XML 字符串打开项目。

示例

以下示例将打开名为 OneTaskEdited.xml 的文件，该文件是通过先将某个项目保存为 XML 文件然后再对其编辑以删除默认值而创建的。 本示例要求引用 Microsoft Scripting Runtime 库 (scrrun.dll)。

Sub ImportXMLProject() 
    ' Requires reference to the Microsoft Scripting Runtime library (scrrun.dll). 
    Dim txtStream As TextStream 
    Dim fileName As String 
    Dim xmlContents As String 
    Dim fsObject As FileSystemObject 
 
    fileName = "C:\Project\VBA\Samples\OneTaskEdited.xml" 
    Set fsObject = CreateObject("Scripting.FileSystemObject") 
 
    If Not fsObject.FileExists(fileName) Then 
        MsgBox "The file does not exist: " & vbCrLf & fileName 
    Else 
        ' Open a text stream. 
        Set txtStream = fsObject.OpenTextFile(fileName:=fileName, IOMode:=ForReading) 
 
        xmlContents = txtStream.ReadAll 
        Application.OpenXML(xmlContents) 
        txtStream.Close 
    End If 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。