Foxtable(狐表)用户栏目专家坐堂 → 分组行导出


  共有1832人关注过本帖树形打印复制链接

主题:分组行导出

帅哥哟,离线,有人找我吗?
lur320
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1032 积分:8989 威望:0 精华:0 注册:2015/8/12 16:28:00
分组行导出  发帖心情 Post By:2024/8/8 14:05:00 [显示全部帖子]

 下面这个表格,想要实现分组行根据+或者-的状态导出为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()
[此贴子已经被作者于2024/8/8 14:05:31编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lur320
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1032 积分:8989 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2024/8/8 14:12:00 [显示全部帖子]

 我可以导出分组的行,问题的关键在于被折叠的行也会导出来,怎么实现不导处被折叠的行?

 回到顶部
帅哥哟,离线,有人找我吗?
lur320
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1032 积分:8989 威望:0 精华:0 注册:2015/8/12 16:28:00
  发帖心情 Post By:2024/8/8 14:33:00 [显示全部帖子]

 就是按照目录树的点选方式导出excel,怎么判断行是否是打开的状态?

 回到顶部