| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- foxtable如何设置excel文件的自动筛选命令（找到了） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128517) |
| -- 作者：bohe -- 发布时间：2018/12/9 10:59:00 -- foxtable如何设置excel文件的自动筛选命令（找到了） 已经选择了一列，但设置自动筛选命令没找到。 [此贴子已经被作者于2018/12/9 20:36:11编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/12/9 15:49:00 -- 这个意思？
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107416&skin=0
|
| -- 作者：bohe -- 发布时间：2018/12/9 16:05:00 -- 不是的，就是excel文件设置筛选 设置后，自己选值筛选 [此贴子已经被作者于2018/12/9 16:06:34编辑过]
|
| -- 作者：bohe -- 发布时间：2018/12/9 16:47:00 -- foxtable如何控制excel，用vba设置筛选 |
| -- 作者：bohe -- 发布时间：2018/12/9 19:47:00 -- 通过excel录制宏命令得到筛选设置命令Selection.AutoFilter，请问这个在foxtable如何使用 |
| -- 作者：bohe -- 发布时间：2018/12/9 20:37:00 -- 自动筛选命令 app.ActiveWindow.Selection.AutoFilter
|
| -- 作者：有点甜 -- 发布时间：2018/12/9 20:59:00 -- 参考
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 \'以下二行是自己加的
app.Selection.AutoFilter \'Ws.Range("A1:A10").Select\'选定单元格
App.Visible = True
App.Quit
http://www.foxtable.com/webhelp/scr/2121.htm
|
| -- 作者：bohe -- 发布时间：2018/12/10 10:14:00 -- 谢谢甜版，帮助中没有说明app有这个selection属性，这个属性确实可以不要ActiveWindow，为什么app.ActiveWindow.FreezePanes = True这里就不能去掉ActiveWindow |
| -- 作者：有点甜 -- 发布时间：2018/12/10 11:14:00 --
就好像 datatables("表A").addnew 等同于 datatables("表A").datarows.addnew，但datatables("表A")不能直接用datatables("表A").datarow.clear一样。
|