禁用 excel 保存更改提示

Question

我已经尝试了我通常使用的所有方法以及我可以搜索到的内容。 oxl.DisplayAlerts = False 无效。我仍然被问到是否要保存更改。

我实际上是在尝试使用 excel sheet 作为模板。完整的脚本导出为 pdf，但这足以重现问题。顺便说一句，我尝试将其保存为 xltx 文件（模板），但仍然得到保存提示。

Dim oxl As New Excel.Application
Dim apppath2 As String = My.Application.Info.DirectoryPath.ToString
Dim mywb As Excel.Workbook = oxl.Workbooks.Open(Filename:=apppath2 & "\fuse template.xlsx", [ReadOnly]:=True)
oxl.Visible = False

Dim mysheet As Excel.Worksheet = mywb.Sheets(1)
mysheet.Cells(10, 5) = l_region.Text
mysheet.Cells(11, 5) = comb_emc_name.Text

oxl.DisplayAlerts = False
mywb.Close(False)
mysheet = Nothing
mywb = Nothing
oxl = Nothing
GC.Collect()

Answer 1

我失踪了mywb.Saved = True。我以前从来没有这样做过。