用了高级表格的筛选功能，导出来还是未筛选

esan520

如图，生成了一个高级表格，用了筛选模块，想导出筛选后的高级表格，但是发现导出后的表格全部数据都在。想导出筛选后的高级表格，怎么弄？





补充内容 (2022-12-23 09:36):
.版本 2

.版本 2
.支持库 eExcel2000
.支持库 eGrid

.子程序 _按钮_导出_被单击
.局部变量 文件名, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 文本, 文本型
.局部变量 首单元格, 文本型
.局部变量 颜色值, 整数型
.局部变量 单元格对象, 对象
.局部变量 表格对象, 对象
.局部变量 工作簿对象, 对象

通用对话框1.文件名 ＝ 到文本 (取现行时间 ())
.如果真 (通用对话框1.打开 () ＝ 真)
    文件名 ＝ 通用对话框1.文件名

    .如果真 (Excel程序1.创建 () ＝ 假)
        信息框 (“Excel 程序创建失败！可能没有安装 Excel 程序”, 0, )
        返回 ()
    .如果真结束
    Excel工作簿1.置程序 (Excel程序1)
    Excel工作簿1.激活工作簿 ()
    Excel工作簿1.表格序号 ＝ 1
    Excel程序1.标题 ＝ 文件名
    Excel程序1.显示 ＝ 假  ' 如果不想显示出来，用 假 值
    .计次循环首 (高级表格_生产表.行数, i)
        .计次循环首 (高级表格_生产表.列数 － 1, j)
            首单元格 ＝ 转换字母 (j) ＋ 到文本 (i)
            文本 ＝ 高级表格_生产表.取数据 (i － 1, j － 1)
            Excel工作簿1.首单元格 ＝ 首单元格
            Excel工作簿1.尾单元格 ＝ 首单元格
            Excel工作簿1.内容 ＝ 文本
            单元格对象 ＝ Excel工作簿1.取单元格对象 ()
        .计次循环尾 ()
    .计次循环尾 ()
    表格对象 ＝ Excel工作簿1.取表格对象 ()
    表格对象.读对象型属性 (“Cells”, ).读对象型属性 (“EntireColumn”, ).写属性 (“AutoFit”, )
    工作簿对象 ＝ Excel工作簿1.取工作簿对象 ()
    工作簿对象.读对象型属性 (“Application”, ).写属性 (“DisplayAlerts”, 假)
    Excel工作簿1.保存 (文件名)
    工作簿对象.读对象型属性 (“Application”, ).方法 (“Quit”, )
    Excel工作簿1.释放 ()
    Excel工作簿1.关闭 ()
    Excel程序1.释放 ()
    Excel程序1.退出 ()
    信息框 (“保存转换文件到：” ＋ #换行符 ＋ 文件名, #信息图标, “转换完成”)

.子程序 _按钮_按时间筛选_被单击

扩展_高级表格筛选 (窗口_生产表, 高级表格_生产表, 0)

StarAdmire

是不是你筛选写错了？

xbwdl

源码放上来

esan520

StarAdmire 发表于 2022-12-23 09:22
是不是你筛选写错了？

筛选是用的模块里的

esan520

esan520 发表于 2022-12-23 09:38
筛选是用的模块里的

这个是筛选使用的模块。我用了里边的 “扩展_高级表格筛选  " 这个命令筛选的，导出来是全部数据。

esan520

StarAdmire 发表于 2022-12-23 09:22
是不是你筛选写错了？

这个是筛选使用的模块。我用了里边的 “扩展_高级表格筛选  " 这个命令筛选的，导出来是全部数据。

esan520

StarAdmire 发表于 2022-12-23 09:22
是不是你筛选写错了？

这个是筛选使用的模块。我用了里边的 “扩展_高级表格筛选  " 这个命令筛选的，导出来是全部数据。

esan520

StarAdmire 发表于 2022-12-23 09:22
是不是你筛选写错了？

模块里的筛选应该是把不要的数据给隐藏起来了，但是测试出来也不是通过设置行高为0隐藏的，不知道他是咋隐藏的

esan520

我已经解决，先找出隐藏行，导出后再删除这些隐藏行就可以