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 时显示的弹出窗口。