以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于SaveExcel一个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73880)

--  作者：大红袍 --  发布时间：2015/8/28 11:42:00 --   Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 dlg.FileName = "我自己的表名" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮      Tables("耗料表预览").SaveExcel(dlg.FileName,"我自己的表名")  \'保存文件 End If