写excel demo：

Set app = wscript.createobject("Excel.application")app.visible=TrueSet workbook = app.workbooks.addSet sheet = workbook.worksheets(1)For row = 1 To 10	For col = 1 To 5		sheet.cells(row, col).value = rnd()	NextNextSet sheet = workbook.worksheets(3)sheet.range("A1:e10").formula = "=Sheet1!a1"