Excel XML导入为NULL值创建名为NULL的额外列

Question

我使用Excel 2010/VBA/XML和DOMDocument60解析器在Oracle中生成数据报告。我对nulls有问题。Oracle在xsql查询中支持null indicator=“yes”，以确保返回的记录集中包含null字段。如果字段有一个值，则XML如下所示：<代码>

我的代码调用Web服务进行查询：

Dim XML_HTTP As New MSXML2.XMLHTTP60: Call XML_HTTP.Open("POST", QUERY_URL, False): Call XML_HTTP.send

并检索XML结果：

Dim XML_OUTPUT As DOMDocument60: Set XML_OUTPUT = XML_HTTP.responseXML

它保存文件：

XML_OUTPUT.Save (FILE_PATH) 

然后从保存的文件中加载电子表格：

Call DestinationWorksheet.Parent.XmlImport(FILE_PATH, Nothing, True, DestinationWorksheet.Range("A1"))

它用XML数据填充Excel电子表格。

如果像<代码>

我尝试使用xsql设置null indicator=“no”，这消除了null列，但它有一个不同的，不可接受的问题：动态构建的列顺序，这样，如果第一条XML记录表示具有null的Oracle记录，则null字段将从XML中排除，并且仅在遇到包含这些字段的记录时才添加到Excel列列表中，在这种情况下，这些字段将添加到列列表的末尾。

我也尝试过更换

有人知道如何让Oracle使用语法吗




Answer 1

考虑使用XSLT（根据最终使用需要重新构造XML文件的声明性编程语言）来删除NULL属性。VBA可以将XSLT处理器用于Microsoft XML对象。所需的XSLT非常简单明了，其中包括身份转换以原样复制所有内容（节点和属性），然后在NULL上运行空模板匹配以删除文档中出现的任何属性。

XSLT（嵌入以下VBA字符串）

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output version="1.0" encoding="UTF-8" indent="yes" />

  <!-- Identity transform -->
  <xsl:template match="@*|node()">
    <xsl:copy>
      <xsl:apply-templates select="@*|node()"/>
    </xsl:copy>
  </xsl:template>

  <xsl:template match="@NULL">    
  </xsl:template>

</xsl:stylesheet>

VBA（作为子程序或函数合并到您的项目中，甚至将Oracle XML文件路径作为参数传递）

Sub TransformXML()

    Dim xmlDoc As Object, xslDoc As Object, newDoc As Object

    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    Set xslDoc = CreateObject("MSXML2.DOMDocument")
    Set newDoc = CreateObject("MSXML2.DOMDocument")

    xmlDoc.Load "Original.xml"
    xmlDoc.async = False            

    ' EMBEDDED XSLT ' 
    xslDoc.LoadXML "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "?>" _
            & "<xsl:stylesheet version=" & Chr(34) & "1.0" & Chr(34) _
            & "                xmlns:xsl=" & Chr(34) & "http://www.w3.org/1999/XSL/Transform" & Chr(34) & ">" _
            & "<xsl:strip-space elements=" & Chr(34) & "*" & Chr(34) & " />" _
            & "<xsl:output method=" & Chr(34) & "xml" & Chr(34) & " indent=" & Chr(34) & "yes" & Chr(34) & "" _
            & "            encoding=" & Chr(34) & "UTF-8" & Chr(34) & "/>" _
            & " <xsl:template match=" & Chr(34) & "node() | @*" & Chr(34) & ">" _
            & "  <xsl:copy>" _
            & "   <xsl:apply-templates select=" & Chr(34) & "node() | @*" & Chr(34) & " />" _
            & "  </xsl:copy>" _
            & " </xsl:template>" _
            & "<xsl:template match=" & Chr(34) & "@NULL" & Chr(34) & ">" _
            & "</xsl:template>" _
            & "</xsl:stylesheet>"

    xslDoc.async = False
    xmlDoc.transformNodeToObject xslDoc, newDoc
    newDoc.Save "OutputXML.xml"    ' READY FOR FINAL IMPORT '        

    MsgBox "Successfully transformed XML!", vbInformation

    Set xmlDoc = Nothing
    Set xslDoc = Nothing
    Set newDoc = Nothing

End Sub