vba - 在 VBA 宏中计算和关联 XML 数据

Question

我正在尝试编写一个读取 XML 文件的 Excel 宏。此 XML 文件由一系列字段列表组成，每个字段都包含在 <master> </master> 中。 .这些有一个随机数<master>标签。每组主标签包含两个其他字段:<proto></proto>和 <status></status> ，以及我不关心此宏的许多其他字段。
<proto>和 <status>每个字段都可以具有三个不同条目之一。在 <proto> 中说 I、II 和 III <status> 中的红色、黄色和绿色.所以一个文件的格式可能如下:

<master>
 <proto>
    III
  </proto>
  <status>
    red
  </status>
</master>

有几十个或几百个，只是具有不同的值。

我要做的是在这里计算每种可能性组合的数量，并将每个组合分配给一个变量。

因此，例如，变量 proto1red将有 <master> 的总次数字段同时包含 <proto>I</proto>和 <status>red</status>和变量 proto2red将有 <master> 的总次数字段包含 <proto>II</proto>和 <status>red</status> .

这就是我开始的地方，基本上只是试图调整我编写的一个不同的脚本，它计算 csv 文件中的各种项目。

Dim intChoice As Integer
Dim strPath As String
'Remove all other filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'Add a custom filter
Call Application.FileDialog(msoFileDialogOpen).Filters.Add( _
    "CR Files Only", "*.cr")
'make the file dialog visible to the user
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'determine what choice the user made
If intChoice <> 0 Then
    'get the file path selected by the user
    crfile = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)

(.cr 只是用于 xml 文件的扩展名，用于我们使用的自定义应用程序)。在这部分之后只是变暗的变量和其他文件类型的相关行。我不确定如何使用 VBA 来计算我之前描述的字段，并将该数字分配给变量。

Answer 1

考虑XSLT ，专为转换 XML 文件而设计的专用语言。具体来说，使用 Muenchian Method它根据特定值(如 PROTO 和 STATUS)使用键索引文档，并可用于计算不同的分组(即所有组合)。 VBA 可以通过 MSXML 库使用 XSLT，甚至可以将扁平化输出作为表格结构导入工作簿:

XSLT (另存为 .xsl 文件以在 VBA 中获取)

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
    <xsl:output indent="yes"/>
    <xsl:strip-space elements="*"/>

    <xsl:key name="combn_key" match="MASTER" use="concat(descendant::PROTO, descendant::STATUS)" />

    <xsl:template match="/SILVERS">
        <root>
          <xsl:apply-templates select="ISILVER/MASTER[generate-id() = 
                                       generate-id(key('combn_key', concat(descendant::PROTO, descendant::STATUS))[1])]"/>
        </root>
    </xsl:template>

    <xsl:template match="MASTER">
        <data>
            <xsl:variable name="pair" select="concat('proto', descendant::PROTO, descendant::STATUS)"/>
            <pair><xsl:value-of select="$pair"/></pair>
            <count><xsl:value-of select="count(. | key('combn_key', concat(descendant::PROTO, descendant::STATUS)))"/></count>
        </data>
    </xsl:template>

</xsl:stylesheet>

VBA

' SET REFERENCE TO Micrsoft XML, v#.#
Dim xmldoc As New MSXML2.DOMDocument, xslDoc As New MSXML2.DOMDocument, newDoc As New MSXML2.DOMDocument

' LOAD XML AND XSL FILES
xmldoc.async = False
xmldoc.Load "C:\Path\To\Input.xml"

xslDoc.async = False
xslDoc.Load "C:\Path\To\XSL\Script.xsl"

' TRANSFORM XML
xmldoc.transformNodeToObject xslDoc, newDoc
newDoc.Save "C:\Path\To\Output.xml"

' IMPORT RESULT XML
Application.Workbooks.OpenXML "C:\Path\To\Output.xml", , xlXmlLoadImportToList

XML 输出

<?xml version="1.0" encoding="utf-8"?>
<root>
  <data>
    <pair>protoIIIRed</pair>
    <count>1</count>
  </data>
  <data>
    <pair>protoIRed</pair>
    <count>1</count>
  </data>
</root>

Excel 导入(相同的配对将增加计数超过 1)