Project () 的 Application.OpenXML 方法

會從 XML 字串開啟專案。

語法

expression。 OpenXML( _XML_ )

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
XML	必要	String	包含符合 Project XML 結構描述之有效 Project XML 字串的字串。

傳回值

Long

註解

Project XML 結構描述是提供Project SDK、 以檔案 mspdi_pj15.xsd。 您可以將專案儲存至 XML，然後編輯檔案所建立的 XML 檔案。 如果您以程式設計方式建立 XML 字串，您應依據該結構描述驗證才能 OpenXML 方法搭配使用。

如果成功， OpenXML 方法會傳回 0。

注意事項

[!注意事項] 您也可以使用 FileOpenEx 方法來開啟有效的 Project XML 檔案。 若要使用的 XML 字串開啟專案主要設計 OpenXML 方法。

範例

下列範例會開啟名為 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 支援與意見反應。