ISAXXMLReader::Parse (ID:102513)

名前

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

本文 熊谷隆史さん、こんにちは。 この件は別の場所でも拝見いたしました。 xmlには無知ですが、今回の件で少し興味を持ち、 上記のidlにてTlbファイルを作って参照設定してみました。 （引数の型指定問題は論外にします。） （環境）WindowXP（SP3）、Excel2003（SP3） しかし、 Set rdr = New hoge.SAXXMLReader60 の直後、msgbox typename(rdr) で確認したら、ISAXXMLReaderではなく、「IVBSAXXMLReader」 インターフェイスですね。 IVBSAXXMLReaderはIDispatch Interfaceを継承しているので 折角作ったTypLibのVTableがおかしくなっているかと思います。 Windows7の環境がないので、検証は出来ませんが、当方の 環境では下記のような方法で問題ありませんでした。 Private Declare Function SHCreateStreamOnFileW& Lib "Shlwapi" _ (ByVal pszFile&, ByVal grfMode&, ByVal ppstm&) Sub Indentation2(strPath, doc) Dim hr As Long Dim stm As IUnknown 'IStream Dim wrt As Object Dim rdr As Object 'IVBSAXXMLReader 'STGM_READWRITE Or STGM_SHARE_DENY_WRITE Or STGM_CREATE hr = SHCreateStreamOnFileW(StrPtr(strPath), 4130&, VarPtr(stm)) If hr < 0 Then Err.Raise hr If stm Is Nothing Then Err.Raise 7 Set wrt = CreateObject("MSXML2.MXXMLWriter") wrt.Version = "1.0" wrt.Encoding = "utf-8" wrt.indent = True wrt.output = stm Set rdr = CreateObject("MSXML2.SAXXMLReader") 'New SAXXMLReader60 Set rdr.contentHandler = wrt rdr.Parse doc End Sub