saveas覆盖数据后出现excel问题

Question

所以我写了下面的代码打开我的excel文件并将其保存为文本文件

Dim xl As New Excel.Application
Dim xlBook As Excel.Workbook = xl.Workbooks.Open("C:\ExcelData.xlsx")
Dim xlSheet As Excel.Worksheet = xlBook.Sheets("Sheet1")

xlSheet.SaveAs("C:\Data.txt", Excel.XlFileFormat.xlTextWindows)

xlBook.Close

问题是在保存文件之后i9t提示我要保存更改，当我单击是时，它会覆盖excel中最新的已修改工作表的文件。

如何阻止覆盖并阻止它提示我进行更改？

Answer 1

如果您在宏的开头添加以下行：

Application.DisplayAlerts = False

然后在运行期间不会出现任何对话框。这将包括关闭xlBook时显示的弹出窗口。