vb编程，excel单元格中内容怎么筛选遍历到xml文件中？

Question

如excel单元格内容：
衣服
1.女装
a.裤子
b.毛衣
c.鞋子
2.男装
a.裤子
b.毛衣
电器
1.冰箱
a.x型号
b.y型号
2.电视机
a.长虹
b.HTC
c.惠普
3.空调
a.格力
需要把大标题与1、2、3标题遍历显示到xml文件中，把a\b\c的内容不显示，请问各位前辈，这个怎么实现，谢谢了！

Answer 1

该回答引用ChatGPT

要实现这个功能，可以使用VBA编程来处理Excel单元格中的内容，并将需要的信息输出到XML文件中。以下是一个实现的示例代码：

Sub ExcelToXML()
    Dim xmlDoc As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    
    '创建XML文件头'
    Dim xmlHeader As Object
    Set xmlHeader = xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
    xmlDoc.appendChild xmlHeader
    
    '创建根节点'
    Dim root As Object
    Set root = xmlDoc.createElement("Root")
    xmlDoc.appendChild root
    
    '遍历单元格中的内容'
    Dim rng As Range
    Set rng = Range("A1")
    While rng.Value <> ""
        '判断是否为大标题'
        If Left(rng.Value, 1) <> "." Then
            Dim node As Object
            Set node = xmlDoc.createElement("Category")
            node.setAttribute "Name", rng.Value
            root.appendChild node
        Else
            '判断是否为1、2、3标题'
            Dim level As Integer
            level = Len(rng.Value) - Len(Replace(rng.Value, ".", ""))
            If level <= 3 Then
                '获取父节点'
                Dim parentNode As Object
                Set parentNode = root
                For i = 2 To level
                    Set parentNode = parentNode.LastChild
                Next i
                
                '创建子节点'
                Dim subNode As Object
                Set subNode = xmlDoc.createElement("Item")
                subNode.setAttribute "Name", Replace(rng.Value, ".", "")
                parentNode.appendChild subNode
            End If
        End If
        
        '下一个单元格'
        Set rng = rng.Offset(1, 0)
    Wend
    
    '保存XML文件'
    Dim xmlPath As String
    xmlPath = "C:\Example.xml"
    xmlDoc.Save xmlPath
End Sub

上述代码实现了以下功能：

• 创建一个XML文件，并在文件中添加XML文件头和根节点。

• 遍历Excel单元格中的内容，根据内容的格式判断是大标题、1、2、3标题还是a、b、c的内容。

• 如果是大标题，创建一个Category节点，并将其添加到根节点中。

• 如果是1、2、3标题，创建一个Item节点，并将其添加到对应的Category节点下。

• 最后保存XML文件。

需要注意的是，上述代码仅是一个示例，具体实现可能需要根据实际情况进行修改。同时，如果需要过滤掉a、b、c的内容，可以在代码中添加相应的判断逻辑，例如根据内容长度来判断是否为a、b、c的内容。