Application.OpenXML メソッド (Project)
XML 文字列からプロジェクトを開きます。
構文
式。 OpenXML
( _XML_
)
式Application オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
XML | 必須 | String | Project XML スキーマに準拠する有効な Project XML 文字列を含む文字列を指定します。 |
戻り値
Long
注釈
Project XML スキーマは、ファイル mspdi_pj15.xsd として Project SDK で使用できます。 XML ファイルを作成するには、プロジェクトを XML に保存して編集します。 プログラムで XML 文字列を作成する場合は、OpenXML メソッドで使用する前にその文字列がスキーマに準拠していることを確認する必要があります。
OpenXML メソッドは、成功すると 0 を返します。
注:
FileOpenEx メソッドを使用して、有効な Project XML ファイルを開くこともできます。 OpenXML メソッドは、主に XML 文字列を使用してプロジェクトを開くよう設計されています。
例
次の使用例は、プロジェクトを XML として保存し、そのファイルを編集することで作成した OneTaskEdited.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 のサポートおよびフィードバックを参照してください。