| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于tabcontrol中很多表 导出到excel的问题！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15669) |
| -- 作者：gaoyong30000 -- 发布时间：2012/1/5 16:30:00 -- [求助]关于tabcontrol中很多表 导出到excel的问题！ 比如page1 有表a；page2 有表b；page3 有表c
我用了系统的代码后 Syscmd.Project.ExportToExcel()
发现只导出表a
我打算在每个page上 弄一个导出到excel的按钮 该怎么写相应的代码 导出相应的表！ |
| -- 作者：czy -- 发布时间：2012/1/5 16:35:00 -- http://www.foxtable.com/help/topics/0559.htm
|
| -- 作者：IVY7323 -- 发布时间：2012/1/5 16:39:00 -- 這個是將鼠標點到哪個表 , 就導出到哪個表 我試過沒問題的 |
| -- 作者：gaoyong30000 -- 发布时间：2012/1/7 11:03:00 -- thank you |
| -- 作者：gaoyong30000 -- 发布时间：2012/1/7 12:39:00 -- SaveExcel
不怎么灵活哎 没法灵活指定导出位置 系统的Syscmd.Project.ExportToExcel()导出很灵活
该怎么弄？ [此贴子已经被作者于2012-1-7 12:39:25编辑过]
|
| -- 作者：blackzhu -- 发布时间：2012/1/7 13:55:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "电子表格|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Tables("表A").SaveExcel(dlg.FileName,"表A") End If |