解决问题给100分！！！

Question

在论坛搜索一下,这方面的贴子很多的.

Answer 1

<script language="vbscript">
   sub buildexcel
    set table=document.all.datagrid1
    row=table.rows.length
    column=table.rows(1).cells.length
     Set xlApp = CreateObject("Excel.Application")
     xlApp.Visible = True
    set workbook=xlApp.workbooks.add
    workbook.worksheets("Sheet1").range("A1").value="项目"
    workbook.worksheets("Sheet1").range("B1").value="工作人员"
    workbook.worksheets("Sheet1").range("C1").value="开始时间"
    workbook.worksheets("Sheet1").range("D1").value="结束时间"
    workbook.worksheets("Sheet1").range("E1").value="考勤情况"
   ' workbook.worksheets("Sheet1").rows(1).cells(1).value
   for i=0 to row-1
       workbook.worksheets("Sheet1").rows(i+2).cells(1).value=table.rows(i+1).cells(0).innerTEXT
       workbook.worksheets("Sheet1").rows(i+2).cells(2).value=table.rows(i+1).cells(1).innerTEXT
       workbook.worksheets("Sheet1").rows(i+2).cells(3).value=table.rows(i+1).cells(2).innerTEXT
       workbook.worksheets("Sheet1").rows(i+2).cells(4).value=table.rows(i+1).cells(3).innerTEXT
       workbook.worksheets("Sheet1").rows(i+2).cells(5).value=table.rows(i+1).cells(4).innerTEXT
    next
 end sub
我这是将DATAGRID中的数据写入EXCEL中