Deleting the excel sheet before exiting the script

[nageshpv]

I have to delete a excel sheet before exiting the script.
Please help me out!
Thanks
-Nagesh

[nageshpv]

Hey I found this,

Code:

Public Sub DeleteAFile(filespec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") On error resume next fso.DeleteFile(filespec) End Sub

This is working just fine for me.

[Rekha]

Hi,
What about the following script.
It creates an excel file with 5 sheets.
Then removes the second sheet.
You will find the mentioned sheet deleted from the workbook.

Let me know whether it works out for you or not!

Code:

Set xls=createobject("excel.application") Set xls1=xls.workbooks.add For i=0 to 4 xls1.worksheets.add next xls.worksheets(1).name="Browsers" 'xls.worksheets(2).delete xls1.saveas"E:\Child Object Properties2.xls" xls.save xls.quit Set xls=nothing Set xls1=nothing

[nageshpv]

Hi..

This piece of code works fine. That is interesting.
Also i have posted another issue in the forum for changing the color of the cells in the datasheet. Please help me out with that too.