VBAのSaveAsXMLDataメソッド

こちらでは、エクセルVBAのSaveAsXMLDataメソッドの解説になります。

メソッドとは、オブジェクトを操作する命令文のことでオブジェクトの動作になります。メソッドを利用するにはオブジェクト名とメソッド名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.メソッド名

SaveAsXMLDataメソッド

SaveAsXMLDataメソッドは、指定された XML スキーママップに対してマップされたデータを、XML データファイルへエクスポートします。

XML ワークシート形式でファイルを保存する機能以外の XML 機能を利用できるのは、Microsoft Office Professional Edition 2003 および Microsoft Office Excel 2003 だけです。

キーワード	省略	説明
構文	expression.SaveAsXMLData(Filename, Map)
expression	×	必ず指定します。このトピックの [対象] をクリックして表示されるオブジェクトのうちの 1 つを返すオブジェクト式を指定します。
Filename	×	必ず指定します。文字列型 (String) の値を使用します。保存するファイルの名前を表す文字列を指定します。完全パスを含めることもできます。完全パスを含めない場合は、ファイルはカレントフォルダに保存されます。
Map	×	必ず指定します。XmlMap オブジェクトを使用します。データに対して適用するスキーママップを指定します。

Excel が、指定されたスキーママップを使用してデータをエクスポートすることができない場合は、このメソッドは実行時エラーを発生させます。Excel が、指定されたスキーママップを使用してデータをエクスポートできるかどうかをチェックするには、IsExportable プロパティを使用します。

次の使用例は、Excel がスキーママップ "Customer" を使用してデータをエクスポートできるかどうかを検証し、スキーママップ "Customer" に対してマップされたデータを "Customer Data.xml" というファイルへエクスポートします。


Sub ExportAsXMLData()    Dim objMapToExport As XmlMap    
    Set objMapToExport = ActiveWorkbook.XmlMaps("Customer")    
    If objMapToExport.IsExportable Then
        ActiveWorkbook.SaveAsXMLData "Customer Data.xml", objMapToExport    Else
        MsgBox "スキーマ マップ " & objMapToExport.Name & _
               "を使用して、ワークシートの内容を XML データへエクスポートすることはできません。"    End If
End Sub