专家坐堂-SaveExcel，对于已经存在的表格，会提示已存在是否替换，如何去掉这个询问，直接替换呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=137070)

--  作者：teng0731
--  发布时间：2019/6/27 15:31:00
--  SaveExcel，对于已经存在的表格，会提示已存在是否替换，如何去掉这个询问，直接替换呢？

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

SaveExcel，对于已经存在的表格，会提示已存在是否替换，如何去掉这个询问，直接替换呢？

--  作者：有点甜
--  发布时间：2019/6/27 16:06:00
--

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog

dlg.OverwritePrompt = false

dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Tables("sheet2").SaveExcel(dlg.FileName, "订单") \'保存文件

End If

--  作者：teng0731
--  发布时间：2019/6/27 17:00:00
--
谢谢！