dim excls
set excls=Createobject("Excel.Application")
set Book=excls.workbooks.add
set sheet1=Book.activesheet
sheet1.cells(1,1)="******** ********"
sheet1.saveas "Path of file"
excls.quit
Вторая модель
Datatable.addsheet "Sheet name"
datatable.importsheet"File name,source sheer","destination sheet"
'now all the data are stored in sheet name at run time
'any query pls mail to me : vasuth2008@gmail.com