用于导出XML的VBA宏，如果某个单元格的值为"OFF“，则该宏将避免一行

Sub ExportToXML()
    Dim ws As Worksheet
    Dim xmlFile As String
    Dim xmlData As String
    Dim i As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置XML文件路径
    xmlFile = "C:\path\to\output.xml"
    
    ' 初始化XML数据
    xmlData = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
    xmlData = xmlData & "<data>" & vbCrLf
    
    ' 遍历每一行数据
    For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
        ' 判断某个单元格的值是否为"OFF"
        If ws.Cells(i, 1).Value <> "OFF" Then
            ' 将该行数据添加到XML数据中
            xmlData = xmlData & "    <row>" & vbCrLf
            xmlData = xmlData & "        <column1>" & ws.Cells(i, 1).Value & "</column1>" & vbCrLf
            xmlData = xmlData & "        <column2>" & ws.Cells(i, 2).Value & "</column2>" & vbCrLf
            ' 添加更多列...
            xmlData = xmlData & "    </row>" & vbCrLf
        End If
    Next i
    
    ' 结束XML数据
    xmlData = xmlData & "</data>"
    
    ' 将XML数据写入文件
    Open xmlFile For Output As #1
    Print #1, xmlData
    Close #1
    
    ' 提示导出完成
    MsgBox "导出XML文件成功！"
End Sub