code to close an excel sheet without saving it .(via msgbox)
 

Hi

I have developed some code for Excel application through which i am going to
create an excel appliaction and open a workbook by name "ABC.xls" and insert
a value of 500 in sheet by name "sheet1" in the cell(10,10). Now my
requirement goes some thing like this. I used the code like objexcel.close in
order to close the application without saving it. At that time as we all know
that a small popup message comes up asking for "DO YOU WANT TO SAVE THE
CHANGES FOR BOOK1.XLS" with YES,NO and CANCEL Buttons. so we generally click
either YES OR NO button manually . but i want to click either YES OR NO
Button programatically using VBA OR VB code. Please deem it as urgent. MY
code for this goes some thing like this.



Set fso = CreateObject("Excel.Application")
Set objExcel = fso
Set objWorkBook = objExcel.Workbooks.Open("C:\allfiles.xls")

Set objWorkSheet = objWorkBook.Worksheets("Sheet1")
objWorkSheet.Cells(2, 2).Value = 1500
objExcel.Visible = True
'objWorkBook.Save '(I should not use this line of code)
objWorkBook.Close
objExcel.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing
Set objWorkSheet = Nothing


Any help is highly appreciated.


Regards,
Vinesh .

code to close an excel sheet without saving it .(via msgbox)
 

Vinesh,

Use the SaveChanges parameter of the close method:

objWorkBook.Close False

or

objWorkBook.Close True

False doesn't save, True does.

HTH,
Bernie
MS Excel MVP


"Satyam Reddy" wrote in message
...

Hi

I have developed some code for Excel application through which i am going to
create an excel appliaction and open a workbook by name "ABC.xls" and insert
a value of 500 in sheet by name "sheet1" in the cell(10,10). Now my
requirement goes some thing like this. I used the code like objexcel.close in
order to close the application without saving it. At that time as we all know
that a small popup message comes up asking for "DO YOU WANT TO SAVE THE
CHANGES FOR BOOK1.XLS" with YES,NO and CANCEL Buttons. so we generally click
either YES OR NO button manually . but i want to click either YES OR NO
Button programatically using VBA OR VB code. Please deem it as urgent. MY
code for this goes some thing like this.



Set fso = CreateObject("Excel.Application")
Set objExcel = fso
Set objWorkBook = objExcel.Workbooks.Open("C:\allfiles.xls")

Set objWorkSheet = objWorkBook.Worksheets("Sheet1")
objWorkSheet.Cells(2, 2).Value = 1500
objExcel.Visible = True
'objWorkBook.Save '(I should not use this line of code)
objWorkBook.Close
objExcel.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing
Set objWorkSheet = Nothing


Any help is highly appreciated.


Regards,
Vinesh .

code to close an excel sheet without saving it .(via msgbox)
 

Change
objWorkbook.Close
to
objWorkbook.Close False

"Satyam Reddy" wrote:


Hi

I have developed some code for Excel application through which i am going to
create an excel appliaction and open a workbook by name "ABC.xls" and insert
a value of 500 in sheet by name "sheet1" in the cell(10,10). Now my
requirement goes some thing like this. I used the code like objexcel.close in
order to close the application without saving it. At that time as we all know
that a small popup message comes up asking for "DO YOU WANT TO SAVE THE
CHANGES FOR BOOK1.XLS" with YES,NO and CANCEL Buttons. so we generally click
either YES OR NO button manually . but i want to click either YES OR NO
Button programatically using VBA OR VB code. Please deem it as urgent. MY
code for this goes some thing like this.



Set fso = CreateObject("Excel.Application")
Set objExcel = fso
Set objWorkBook = objExcel.Workbooks.Open("C:\allfiles.xls")

Set objWorkSheet = objWorkBook.Worksheets("Sheet1")
objWorkSheet.Cells(2, 2).Value = 1500
objExcel.Visible = True
'objWorkBook.Save '(I should not use this line of code)
objWorkBook.Close
objExcel.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing
Set objWorkSheet = Nothing


Any help is highly appreciated.


Regards,
Vinesh .