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.