ISAXXMLReader::Parse (ID:102512)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 タイプライブラリを作成しているとの事ですが、 MSXML6.DLL では都合が悪いのでしょうか? > 環境 Windows 7/Excel 2010 同じ環境が無いので、とりあえず WinXP + Excel 2007 で動作確認。 Option Explicit '参照設定 '[Microsoft ActiveX Data Objects 2.8 Library] '[Microsoft XML, v6.0] Public Sub Test() Dim stm As ADODB.Stream Set stm = New ADODB.Stream stm.Type = adTypeBinary stm.Open Dim wrt As MSXML2.MXXMLWriter60 Set wrt = New MSXML2.MXXMLWriter60 wrt.Version = "1.0" wrt.Encoding = "UTF-8" wrt.indent = True wrt.standalone = True wrt.omitXMLDeclaration = False wrt.output = stm wrt.flush Dim doc As MSXML2.DOMDocument60 Set doc = New MSXML2.DOMDocument60 doc.async = False doc.preserveWhiteSpace = False Dim root As MSXML2.IXMLDOMElement Set root = doc.createElement("root") Dim element As IXMLDOMElement Set element = doc.createElement("ParentElement") element.setAttribute "atr1", "1" element.setAttribute "atr2", "xxxxx" root.appendChild element doc.appendChild root Dim irdr As MSXML2.ISAXXMLReader Dim ordr As MSXML2.SAXXMLReader60 Set ordr = New MSXML2.SAXXMLReader60 Set irdr = ordr irdr.putContentHandler wrt ordr.Parse doc stm.SaveToFile "C:\result.xml", adSaveCreateOverWrite stm.Close End Sub