crea foglio excel e html

'

' crea file Excel ed Html con intestazione

'

dim archivio

archivio = "articoli" & time

'

Const xlHTML = 44



Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)



objExcel.DisplayAlerts = False



objExcel.Cells(1, 1).Value = "articolo"

objExcel.Cells(1, 2).Value = "descrizione"

objExcel.Cells(1, 3).Value = "prezzo"

objExcel.Cells(1, 4).Value = "um"



objWorkbook.SaveAs "C:\" & archivio & ".xls"

objWorkbook.SaveAs "C:\" & archivio & ".html", xlHTML