以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51899)
--  作者：散客
--  发布时间：2014/6/5 11:47:00
--  设置
 

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

 

保存窗口中的表格很实用！

这段代码可以加上表格标题和实线、页眉、页脚吗？

 

输入代码时无精灵，求高手指点
--  作者：Bin
--  发布时间：2014/6/5 11:50:00
--  
导出后,再用VBA处理http://www.foxtable.com/help/topics/2121.htm