Método Application.OpenXML (Project)

  • Artigo

Abre um projeto a partir de uma cadeia de caracteres XML.

Sintaxe

expression. OpenXML( _XML_ )

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
XML Obrigatório String Cadeia de caracteres que contém uma sequência XML do Project válida que esteja em conformidade com o esquema XML do Project.

Valor de retorno

Long

Comentários

O esquema XML do Project está disponível no Project SDK, como mspdi_pj15.xsd o arquivo. Você pode criar um arquivo XML, salvar um projeto em XML e editando o arquivo. Se você criar programaticamente uma sequência de caracteres XML, você deve validá-lo contra o esquema para utilizá-lo com o método OpenXML.

O método OpenXML retorna 0 se for bem-sucedido.

Observação

[!OBSERVAçãO] Você também pode usar o método FileOpenEx para abrir um arquivo XML de projeto válido. O método OpenXML destina-se principalmente para abrir um projeto usando uma sequência de caracteres XML.

Exemplo

O exemplo a seguir abre um arquivo chamado OneTaskEdited.xml, criado salvando um projeto como XML e editando o arquivo para remover os valores padrão. O exemplo exibe uma referência para a biblioteca do 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.