关于excel和word

Question

</SCRIPT>  
<script language="vbscript"> 
Sub buildDoc 
set table = document.all.data  //data为你表格的id
row = table.rows.length 
column = table.rows(1).cells.length Set objWordDoc = CreateObject("Word.Document") //objWordDoc.Application.Documents.Add theTemplate, False 
objWordDoc.Application.Visible=True Dim theArray(20,10000) 
for i=0 to row-1 
for j=0 to column-1 
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT 
next 
next 
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题 objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") 
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range 
With rngPara 
.Bold = True //将标题设为粗体 
.ParagraphFormat.Alignment = 1 //将标题居中 
.Font.Name = "隶书" //设定标题字体 
.Font.Size = 18 //设定标题字体大小 
End With 
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range 
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) for i = 1 to column objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1) 
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1 
next 
For i =1 to column 
For j = 2 to row 
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j) 
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 
Next 
Next End Sub 
</SCRIPT>  <input type="button" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint">