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

←解決時は質問者本人がここをチェックしてください。

戻る