<html>
<head>
<title>ddd</title>
</head>
<body>
<input type="button" value="button" οnclick="createXls()"/>
<script language="javascript">
function createXls()
{
var xls = new ActiveXObject ( "Excel.Application" );
xls.visible = true;
var newBook = xls.Workbooks.Add;
newBook.Worksheets.Add;
newBook.Worksheets(1).Activate;
xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2;
xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5;
newBook.Worksheets(1).Columns("A").columnwidth=40;
newBook.Worksheets(1).Columns("A").WrapText = true;
newBook.Worksheets(1).Columns("B").columnwidth=50;
newBook.Worksheets(1).Columns("B").WrapText = true;
newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0";
newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131;
newBook.Worksheets(1).Range("A1:B1").merge();
newBook.Worksheets(1).Range("A1:B1").value="My Title";
newBook.Worksheets(1).Range("A1:B1").HorizontalAlignment=3;
newBook.Worksheets(1).Range("A1:B1").Interior.ColorIndex=2;
newBook.Worksheets(1).Range("A1:B1").Font.Bold = true;
newBook.Worksheets(1).Range("A1:B1").Font.ColorIndex = 3;
newBook.Worksheets(1).Cells(2,1).Interior.ColorIndex=15;
newBook.Worksheets(1).Cells(2,1).value="Second Row, First Column";
newBook.Worksheets(1).Cells(2,1).Font.Italic=true;
newBook.Worksheets(1).Cells(2,1).Font.Bold=true;
newBook.Worksheets(1).Cells(2,2).value="Second Row, Second Column";
newBook.Worksheets(1).Cells(3,1).value="Third Row, First Column";
newBook.Worksheets(1).Cells(3,2).value="Third Row, Second Column";
newBook.Worksheets(1).Name="My First WorkSheet";
}
</script>
</body>
</html>
2100
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
