Application.OpenXML method (Project)

Artikel
04/07/2023

Öffnet ein Projekt aus einer XML-Zeichenfolge.

Syntax

Ausdruck. OpenXML( _XML_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
XML	Erforderlich	String	Zeichenfolge mit einer gültigen Project-XML-Zeichenfolge, die dem XML-Schema von Project entspricht.

Rückgabewert

Long

Hinweise

Das Project-XML-Schema ist als die Datei mspdi_pj15.xsd in Project SDK, verfügbar. Sie können eine XML-Datei erstellen, indem Sie beim Speichern eines Projekts zu XML, und klicken Sie dann die Datei bearbeiten. Wenn Sie eine XML-Zeichenfolge programmgesteuert erstellen, sollten Sie es anhand des Schemas überprüfen, bevor Sie ihn mit der OpenXML -Methode verwenden.

Die OpenXML -Methode gibt 0 zurück, wenn sie erfolgreich war.

Hinweis

[!HINWEIS] Sie können auch die FileOpenEx -Methode verwenden, um eine gültige Project-XML-Datei zu öffnen. Die OpenXML -Methode dient hauptsächlich zum Öffnen eines Projekts mithilfe einer XML-Zeichenfolge.

Beispiel

Im folgenden Beispiel wird eine Datei mit dem Namen OneTaskEdited.xml geöffnet, die erstellt wurde, indem ein Projekt als XML gespeichert und dann die Datei bearbeitet wurde, um Standardwerte zu entfernen. Das Beispiel erfordert einen Verweis auf die Microsoft Scripting Runtime-Bibliothek (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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über