主题：分组行导出

 下面这个表格，想要实现分组行根据+或者-的状态导出为excel，就是客户展开那些行，就导出那些行，如何实现？

此主题相关图片如下：屏幕截图 2024-08-08 140435.png

最好是能带上格式。怎么修改代码？

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For Each c As Col In CurrentTable.cols
    If c.Visible Then
        Sheet(0, c.Index).Value = c.Caption
    End If
Next

For r As Integer = 0 To CurrentTable.Rows.Count - 1 '填入数据
    For Each c As Col In CurrentTable.cols
        If c.Visible Then
        Sheet(r + 1, c.Index).Value = CurrentTable.rows(r)(c.name)
        End If
    Next
Next
'保存并打开excel文件
Book.Save(SpecialFolder.DesktopDirectory & "\下载数据" & Date.today & ".xls")
Dim Proc As New Process
Proc.File = SpecialFolder.DesktopDirectory & "\下载数据" & Date.Today & ".xls"
Proc.Start()