数据导出问题！
我想把网页中table中数据，以excel表的形式导出来，该如何做。请指教 问题点数：0、回复次数：2Top
1 楼Dctong（韦人）回复于 2003-08-04 14:55:14 得分 0
<script language="vbscript">
Sub DataOut()
Row=data.Rows.length
Set ExcelApp=CreateObject("Excel.application")
ExcelApp.Visible=false
set ExcelBook=ExcelApp.Workbooks.Add
Set ExcelSheet=ExcelBook.WorkSheets(1)
For i=0 to Row-1
Column=data.Rows(i).Cells.length
For j=0 to Column-1
ExcelSheet.Cells(i+1,j+1)=data.rows(i).cells(j).innerTEXT
Next
Next
ExcelApp.visible=true
End Sub
</script>
<table id=data>
<tr><td></tr>
</table>Top
