将Excel电子表格导出为XML，并在导出过程中或导出后按字母顺序对数组进行排序？

当然可以。使用MSXML对象，可以在VBA中运行XSLT转换。您可以使用LoadXML()或将XSLT嵌入为VBA字符串（如果不包含URL），也可以将其嵌入为单独的文件Load()。

以下是单独的文件路径：

XSLT（另存为外部.xsl）

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

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

  <xsl:template match="Grid">
    <xsl:copy>      
      <xsl:apply-templates select="Funds">
        <xsl:sort select="Name"/>
      </xsl:apply-templates>
    </xsl:copy>
  </xsl:template>

</xsl:transform>

VBA巨集

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")

' LOAD XML
xmldoc.async = False
xmldoc.Load ActiveWorkbook.Path & "\Original.xml"  

' LOAD XSL
xsldoc.async = False
xsldoc.Load ActiveWorkbook.Path & "\XSLT_File.xsl"

' TRANSFORM
xmldoc.transformNodeToObject xsldoc, newdoc
newdoc.Save ActiveWorkbook.Path & "\Output.xml"

输出

<?xml version="1.0" encoding="UTF-8"?>
<Grid>
    <Funds>
        <Name>Company A 2030</Name>
        <Symbol>TCON30</Symbol>
        <Replacement>New A 2030</Replacement>
        <ReplacementSymbol>CPN30</ReplacementSymbol>
    </Funds>
    <Funds>
        <Name>Company B 2020</Name>
        <Symbol>TCON20</Symbol>
        <Replacement>New B 2020</Replacement>
        <ReplacementSymbol>CPN20</ReplacementSymbol>
    </Funds>
    <Funds>
        <Name>Company C 2010</Name>
        <Symbol>TCON10</Symbol>
        <Replacement>New C 2010</Replacement>
        <ReplacementSymbol>CPN10</ReplacementSymbol>
    </Funds>
</Grid>

注意：您的标签随<Funds>打开和<Fund>关闭而关闭。检查这是否只是SO上的错字，还是您的原始代码正在呈现格式不正确的XML。