禁用excel保存更改提示

Question

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

我基本上试图使用Excel工作表作为模板。完整的脚本导出为pdf，但这足以重新创建问题。 BTW我试着将它保存为一个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。我以前从来没有这样做过。