Why system asks me to save change even after I call save method(VB.NET)
I used below code to open and fill an Excel file automaically. After that, save it.
However, after I call Workbook.SaveAs(Or Save), when I close the Excel file. I always be asked "The content of this file is changed, do you want to save it? But the content has already been saved indeed Then why that message is showed? How to clear it? Dim ExcelForm As New Excel.Applicatio Dim exwbook As Excel.Workboo Dim exsheet As Excel.Workshee Dim file As New FileInfo("C:\template.xls" If file.Exists = True The file.Delete( End I Dim fs As FileStream = file.Create( fs.Close( ExcelForm = CreateObject("Excel.Application" ExcelForm.Visible = Tru exwbook = ExcelForm.Workbooks.Open("C:\template.xls" exsheet = exwbook.Worksheets("template" exsheet.Cells(1, 1) = ... .. exwbook .SaveAs("C:\template.xls) 'Or exsheet.Save( |
Why system asks me to save change even after I call save method(VB.NET)
steellock,
Use this to close the workbook: exwbook.Close False HTH, Bernie MS Excel MVP "steellock" wrote in message ... I used below code to open and fill an Excel file automaically. After that, save it. However, after I call Workbook.SaveAs(Or Save), when I close the Excel file. I always be asked "The content of this file is changed, do you want to save it?" But the content has already been saved indeed. Then why that message is showed? How to clear it? Dim ExcelForm As New Excel.Application Dim exwbook As Excel.Workbook Dim exsheet As Excel.Worksheet Dim file As New FileInfo("C:\template.xls") If file.Exists = True Then file.Delete() End If Dim fs As FileStream = file.Create() fs.Close() ExcelForm = CreateObject("Excel.Application") ExcelForm.Visible = True exwbook = ExcelForm.Workbooks.Open("C:\template.xls") exsheet = exwbook.Worksheets("template") exsheet.Cells(1, 1) = ... ... exwbook .SaveAs("C:\template.xls) 'Or exsheet.Save() |
Why system asks me to save change even after I call save method(VB.NET)
Thank you, Bernie!
In fact, we may only set Saved property after call Save method. Below code is worked. ExcelForm = CreateObject("Excel.Application") ExcelForm.Visible = True exwbook = ExcelForm.Workbooks.Open("C:\template.xls") exsheet = exwbook.Worksheets("template") ... ... exwbook.Save() exwbook.Saved = True *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
All times are GMT +1. The time now is 01:11 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com