Foxtable(狐表)用户栏目专家坐堂 → 报表模板能设置“自动筛选”吗?


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

主题:报表模板能设置“自动筛选”吗?

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


加好友 发短信
等级:二尾狐 帖子:531 积分:4727 威望:0 精华:0 注册:2013/4/20 20:08:00
报表模板能设置“自动筛选”吗?  发帖心情 Post By:2014/8/25 15:55:00 [显示全部帖子]

使用“XLS报表模板”文件输出表的数据,在报表模板文件中设置了XLS的“自动筛选”,
输出数据后,这个“自动筛选”状态还是存在,就是点击这个“自动筛选”没反映。
有办法解决吗?

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


加好友 发短信
等级:二尾狐 帖子:531 积分:4727 威望:0 精华:0 注册:2013/4/20 20:08:00
  发帖心情 Post By:2014/8/25 16:22:00 [显示全部帖子]

能给一下设置XLS文件“自动筛选”的VBA代码吗?不会这个。

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


加好友 发短信
等级:二尾狐 帖子:531 积分:4727 威望:0 精华:0 注册:2013/4/20 20:08:00
  发帖心情 Post By:2014/8/25 22:59:00 [显示全部帖子]

甜总:
1,从xls宏中拷贝的代码:
 Range("A3:H3").Select
    Selection.AutoFilter

2、我从帮助中抄写部分代码:

Book.Build() '生成细节区    ‘这二句是FT中原来生成报表文件
Book.Save(fl) '保存工作簿

’以下是抄帮助                     
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Select '在选定单元格之前,必须先选定工作表!!
Ws.Range("A3:H3").Select        '以下二行是自己加的
Ws.Selection.AutoFilter
'Ws.Range("A1:A10").Select'选定单元格
App.Visible = True

App.Quit

执行后,出现如下错误:
.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2014.8.15.1
错误所在事件:窗口,窗口2,Button1,Click
详细错误信息:
Public member 'Selection' on type 'Worksheet' not found.

请修改代码。
谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
瞩望星空
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:531 积分:4727 威望:0 精华:0 注册:2013/4/20 20:08:00
  发帖心情 Post By:2014/8/25 23:16:00 [显示全部帖子]

谢谢甜总,解决问题了。


另外,我在最后一行前加了一个命令:

Wb.Save  ‘保存工作簿,否则退出时,会提醒是否保存文件。


 回到顶部