2017-01-27 4 views
0

나는 일반적으로이 작업을 수행하고 검색을 찾을 수있는 모든 방법을 시도했습니다. oxl.DisplayAlerts = False이 작동하지 않습니다. 변경 사항을 저장할지 묻는 메시지가 나옵니다.excel save changes 프롬프트를 사용하지 않음

저는 본질적으로 엑셀 시트를 템플릿으로 사용하려고합니다. 전체 스크립트는 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() 

답변

1

내가 누락되었으므로 mywb.Saved = True입니다. 나는 전에 그것을 할 필요가 없었다.