使用访问 vba 打开时不需要的 excel 保存提示

Question

我有一个访问 VBA 程序，它打开一个 excel 文件以检索一些数据。

Private Function getSampleDescription() As Boolean
' Assign the Excel Object
If gfcHandleErrors Then On Error GoTo errorExit:

getSampleDescription = True
Dim excelapp As Object
Set excelapp = CreateObject("excel.application")

' Assign the workbook
Dim wb As Object
Set wb = excelapp.Workbooks.Open(fileName:=fileName, ReadOnly:=True, Password:=sampleFilePassword)

'Assign the sheet
Dim sh As Object
Set sh = wb.worksheets("Sample Description")

它一直运行良好，但最近（不知道为什么），我收到一个 Excel 提示，询问保存、不保存或取消。

这发生在 Workbooks.Open 语句之后。如果我选择保存，我会收到将 Excel 表保存到 ExcelFilename 的副本的提示。一旦我保存代码然后正常进行。如果我选择不保存代码，则正常进行。如果我选择取消，提示会再次出现；再次选择“取消”会中止代码。

知道这是什么原因吗？可能是我的工作簿或工作表上的密码保护。我怎样才能让它停止！

在 Windows 7 上运行的 Access 和 Excel 2010 版本。

感谢您的帮助...

Answer 1

只需将以下内容添加到 VBA 代码的最顶部即可。

Application.DisplayAlerts = False

这基本上可以阻止任何警报窗口弹出并破坏您的代码。请注意：如果您不想在从中检索数据后保存 Excel 文件，我认为这应该可以正常工作。

Answer 2

我知道这个问题是 3 年前提出的，但似乎没有添加答案。 Excel 提示保存文档，因为您的代码执行打开过程并将文件重新评估为只读，这实际上是文档本身的更改，因此需要保存过程。

Application.DisplayAlerts = False
ChangeFileAccess XlFileAccess.xlReadOnly
Application.DisplayAlerts = True

正如其他用户之前所说，上述代码将抑制提示框，但不要忘记在特定代码执行后将其恢复为 True，因为您可以防止显示其他错误。