在一个窗口中有一个表，选成了副本模式。

想将筛选的结果导出成为一张Excel表格，并人工指定存放位置。

导出按钮的代码为：

\'\'\'
Dim tbl As Table = Tables("考勤_Table1")
    tbl.Select(0,0)
    Syscmd.Project.ExportToExcel()

-------------

但导出的并不是筛选后的结果，而是原表的内容。

用SaveExcel又得指定存放位置。

CurrentTable.SaveExcel("C:\\data\\test.xls","订单")

有没有办法在副本的状态下点击按钮弹出对话框，让用户自行选择存放位置，文件名可以系统强制生成，也可以用户指定。

请给段小代码参考一下可否？

你看看，你看看：

http://www.foxtable.com/help/topics/0329.htm

就这样，就这样：

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