1    <script language="javascript" type="text/javascript"> 
 2function doExcel() 
 3 var xls = new ActiveXObject ("Excel.Application" ); 
 4 xls.visible = true
 5 var newBook = xls.Workbooks.Add; 
 6 newBook.Worksheets.Add; 
 7 newBook.Worksheets(1).Activate; 
 8 xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2
 9 xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5
10 newBook.Worksheets(1).Columns("A").columnwidth=50
11 newBook.Worksheets(1).Columns("A").WrapText = true
12 newBook.Worksheets(1).Columns("B").columnwidth=50
13 newBook.Worksheets(1).Columns("B").WrapText = true
14 newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"
15 newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131
16 newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex="15"
17 newBook.Worksheets(1).Cells(1,1).value="First Column, First Cell"
18 newBook.Worksheets(1).Cells(2,1).value="First Column, Second Cell"
19 newBook.Worksheets(1).Cells(1,2).value="Second Column, First Cell"
20 newBook.Worksheets(1).Cells(2,2).value="Second Column, Second Cell"
21 newBook.Worksheets(1).Name="My First"
22}
 
23</script>
放在<head></head> 之间。
posted on 2007-07-11 22:59  阳春  阅读(212)  评论(0)    收藏  举报