Set XLapp = CreateObject("Excel.Application") \' creo il file excel
Set XLWB = XLApp.Workbooks.Add () \' scrivo il foglio
XLapp.Range("A1").Value ="pippo"
XLapp.activeworkbook.saveas( "C:\pippo.xls" ) \'Salvo il foglio corrente
XLapp.activeworkbook.close \'Chiudo il foglio corrente
XLapp.workbooks.close \' Chiudo il foglio iniziale
Ciao
Marco
|