用VBA将多个xml文件导入Excel时，如何按名称排除列？

Sub ImportXMLAndExcludeColumns()
    Dim filePath As String
    Dim fileName As String
    Dim xmlDoc As Object
    Dim xmlRoot As Object
    Dim xmlElements As Object
    Dim xmlElement As Object
    Dim lastColumn As Integer
    Dim i As Integer
    Dim excludeColumns() As String
    
    ' 填写要排除的列名称，多个列使用英文逗号分隔
    excludeColumns = Split("Column1,Column2,Column3", ",")
    
    ' 设置文件路径，可以是固定路径或通过文件对话框选择
    filePath = "C:\Path\To\Your\XML\Files\"
    
    ' 获取指定路径下的所有XML文件
    fileName = Dir(filePath & "*.xml")
    
    ' 遍历所有XML文件
    Do While fileName <> ""
        ' 打开XML文件
        Set xmlDoc = CreateObject("MSXML2.DOMDocument")
        xmlDoc.Load (filePath & fileName)
        
        ' 获取XML根元素
        Set xmlRoot = xmlDoc.DocumentElement
        
        ' 获取XML元素集合
        Set xmlElements = xmlRoot.ChildNodes
        
        ' 获取Excel中最后一列的列号
        lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
        
        ' 遍历XML元素集合，并导入到Excel中
        For Each xmlElement In xmlElements
            ' 检查元素名称是否在排除列表中
            If Not IsInArray(xmlElement.NodeName, excludeColumns) Then
                ' 导入元素名称到Excel的下一个列
                Cells(1, lastColumn + 1).Value = xmlElement.NodeName
                ' 导入元素的文本值到Excel的下一个列
                Cells(2, lastColumn + 1).Value = xmlElement.Text
                lastColumn = lastColumn + 1
            End If
        Next xmlElement
        
        ' 关闭XML文件
        xmlDoc.Close
        
        ' 导入下一个XML文件
        fileName = Dir
    Loop
End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function