Метод Application.OpenXML (Project)

Открывает проект из строки XML.

Синтаксис

выражение. OpenXML( _XML_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
XML	Обязательный	String	Строка, содержащая допустимую строку XML проекта, соответствующую схеме XML проекта.

Возвращаемое значение

Long

Примечания

XML-схема Project доступна в пакете SDK Project в виде файла mspdi_pj15.xsd. Чтобы создать XML-файл, сохраните проект в XML и отредактируйте файл. Если вы создаете строку XML программным путем, перед использованием ее с методом OpenXML необходимо проверить ее на соответствие схеме.

Метод OpenXML возвращает 0 в случае выполнения.

Примечание.

Вы также можете использовать метод FileOpenEx , чтобы открыть допустимый XML-файл Project. Метод OpenXML в первую очередь предназначен для открытия проекта с помощью строки XML.

Пример

В следующем примере открывается файл с именем OneTaskEdited.xml, который был создан путем сохранения проекта в формате XML и последующего редактирования файла для удаления значений по умолчанию. Для примера требуется ссылка на библиотеку 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.