Méthode Application.OpenXML (Project)

Article
04/07/2023

Ouvre un projet à partir d’une chaîne XML.

Syntaxe

expression. OpenXML( _XML_ )

expression Variable qui représente un objet « Application ».

Paramètres

Nom	Requis/Facultatif	Type de données	Description
XML	Obligatoire	String	Chaîne contenant une chaîne XML de projet valide conforme au schéma XML du project.

Valeur renvoyée

Long

Remarques

Le schéma XML du projet est disponible dans le Kit de développement logiciel (SDK) Project, en tant que fichier mspdi_pj15.xsd. Vous pouvez créer un fichier XML en enregistrant un projet en XML, puis en modifiant le fichier. Si vous créez une chaîne XML par programmation, vous devez la valider sur base du schéma avant de l’utiliser avec la méthode OpenXML.

La méthode OpenXML renvoie 0 en cas de succès.

Remarque

Vous pouvez également utiliser la méthode FileOpenEx pour ouvrir un fichier PROJECT XML valide. La méthode OpenXML est principalement conçue pour ouvrir un projet au moyen d’une chaîne XML.

Exemple

L’exemple suivant ouvre un fichier nommé OneTaskEdited.xml qui a été créé en enregistrant un projet au format XML, puis en modifiant le fichier pour supprimer les valeurs par défaut. L’exemple nécessite une référence à la bibliothèque 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via