以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  另存为  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52482)
--  作者：gslxgl
--  发布时间：2014/6/16 22:46:00
--  另存为

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

 

 

应用上述代码时，在另存为窗口如何自动输入表名，不需要手工输入
--  作者：有点甜
--  发布时间：2014/6/16 22:55:00
--  

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Tables("粮食直补").SaveExcel(dlg.FileName, FileSys.GetName(dlg.FileName))  \'保存文件
End If
--  作者：gslxgl
--  发布时间：2014/6/16 23:13:00
--  

怎么还是没有表名啊
--  作者：有点甜
--  发布时间：2014/6/16 23:30:00
--  
以下是引用gslxgl在2014-6-16 23:13:00的发言：

怎么还是没有表名啊

 

对话框不能设置表名的啊！只能用文件名弄成表名。

 

你可以先弹出一个对话框输入表名 http://www.foxtable.com/help/topics/2063.htm