禁用excel保存更改提示

Question

我已经尝试了我通常执行此操作的所有方法以及我可以找到的搜索结果。 oxl.DisplayAlerts = False 不工作。我仍然被问到是否要保存更改。

我实际上是在尝试使用 excel 工作表作为模板。完整的脚本导出为 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。我以前从来没有这样做过。