ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Why system asks me to save change even after I call save method(VB.NET) (https://www.excelbanter.com/excel-programming/296262-why-system-asks-me-save-change-even-after-i-call-save-method-vbulletin-net.html)

steellock

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(


Bernie Deitrick

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()




YP Guo

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