主题：请教：SaveExcel函数保存后其他工作表数据有效性不可用是什么原因

利用SaveExcel保存到指定工作簿的工作表中时，出现两个问题，请指教：

1.提示文件已经存在是否替换？，能否不让它提示

2.保存后，其他工作表中的数据有效性下拉都失效，如何解决处理呢？

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