禁用Excel保存更改提示

我已经尝试了所有的方式，我通常这样做，我可以findsearch。 oxl.DisplayAlerts = False不起作用。 我仍然被问到是否要保存更改。

我本质上是试图使用Excel表格作为模板。 完整的脚本导出到pdf，但这足以重新创build问题。 顺便说一句我试着将它保存为一个xltx文件（模板），仍然得到保存promt。

 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 。 我以前从来没有这样做过。