Compartir a través de


Método Application.OpenXML (Project)

Abre un proyecto desde una cadena XML.

Sintaxis

expresión. OpenXML( _XML_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
XML Obligatorio String Cadena que contiene una cadena XML de Project válida que se ajusta al esquema XML de Project.

Valor devuelto

Long

Comentarios

El esquema XML de Project está disponible en la Project SDK, como la mspdi_pj15.xsd de archivo. Puede crear un archivo XML, guardar un proyecto en formato XML y, a continuación, editar el archivo. Si crea una cadena XML mediante programación, se debe validar con respecto al esquema antes de usarlo con el método OpenXML.

El método OpenXML devuelve 0 si es correcto.

Nota:

[!NOTA] También puede usar el método FileOpenEx para abrir un archivo XML de proyecto válido. El método OpenXML está diseñado principalmente para abrir un proyecto mediante el uso de una cadena XML.

Ejemplo:

En el siguiente ejemplo, se abre un archivo denominado OneTaskEdited.xml que se creó al guardar el proyecto como XML y, a continuación, se editó para eliminar los valores predeterminados. El ejemplo requiere una referencia a la biblioteca de 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.