1
<script language="javascript" type="text/javascript">
2
function 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> 之间。
<script language="javascript" type="text/javascript"> 2
function 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>


浙公网安备 33010602011771号