以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于窗体中的副本表导出为Excel  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21124)
--  作者：liguichuan
--  发布时间：2012/7/2 11:42:00
--  [求助]关于窗体中的副本表导出为Excel

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

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

导出按钮的代码为：

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

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

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

 

用SaveExcel又得指定存放位置。

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

 

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

 

请给段小代码参考一下可否？
--  作者：狐狸爸爸
--  发布时间：2012/7/2 11:52:00
--  

你看看，你看看：

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

 

[此贴子已经被作者于2012-7-2 11:57:42编辑过]