以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何导出当前筛选的信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47974)
--  作者：linshibin
--  发布时间：2014/3/20 15:42:00
--  如何导出当前筛选的信息

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls"  \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("DingDan").SaveExcel(dlg.FileName, "订单")   \'保存文件
End If

 

我一旦设置过滤代码就报错
--  作者：狐狸爸爸
--  发布时间：2014/3/20 15:48:00
--  

你的过滤代码在哪里，报什么错？

 

我测试下面的代码没有问题：

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls"  \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("表A").Filter = "第一列 = \'1\'"
    Tables("表A").SaveExcel(dlg.FileName, "订单")   \'保存文件
End If
--  作者：linshibin
--  发布时间：2014/3/20 15:59:00
--  

 

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog

dlg.Filter= Tables("DingDan").Filter


dlg.Filter= "Excel文件|*.xls"  \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("DingDan").SaveExcel(dlg.FileName, "订单")   \'保存文件
End If

 

我是这么写的
--  作者：狐狸爸爸
--  发布时间：2014/3/20 16:03:00
--  

这一行删除：

 

dlg.Filter= Tables("DingDan").Filter

 
--  作者：linshibin
--  发布时间：2014/3/20 16:04:00
--  
但是我想导出现在这个表过滤好的数据，不想在这里再设置单独的过滤条件要怎么做
--  作者：Bin
--  发布时间：2014/3/20 16:07:00
--  
先筛选表,再使用SaveExcel
--  作者：狐狸爸爸
--  发布时间：2014/3/20 17:36:00
--  

是的，这本来就是保存筛选后的数据：

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls"  \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("DingDan").SaveExcel(dlg.FileName, "订单")   \'保存文件
End If

 

你加了不该加的代码