Метод Application.OpenXML (Project)

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

Синтаксис

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

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

Параметры

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

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

Long

Замечания

Схема Project XML доступна в пакете SDK для Project, так как файл mspdi_pj15.xsd. Вы можете создать XML-файл, сохранив проект в ФОРМАТЕ XML, а затем изменив файл. При программном создании XML-строки необходимо проверить ее на соответствие схеме, прежде чем использовать ее с методом OpenXML .

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

Примечание.

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

Пример

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