? <SCRIPT?LANGUAGE='JavaScript'>? <!--? var?xlCenter=-4108;? var?xlbottom=-4107;? var?xlRight=-4152;? ? var?oSheet;? var?oActiveSheet;? var?oApplication;//初始化Excel對象try?{???????oApplication????=?new?ActiveXObject?(?'Excel.Application'?);??????}catch(e)?{?alert('您必須安裝Excel電子表格軟件，同時(shí)瀏覽器須使用“ActiveX?控件”！');????return?'';??}???????oApplication.visible?=?true;???????var?xlBook?=?oApplication.Workbooks.Add;oActiveSheet?=?xlBook.Worksheets(1);?//設(shè)置行高oActiveSheet.Rows('1:1').RowHeight?=?30;//設(shè)置列寬oActiveSheet.Columns('A:A').ColumnWidth?=?8;//設(shè)置單元格的內(nèi)容oActiveSheet.Cells(4,1).FormulaR1C1='日??期';?//第4行第1列//單元格選擇oActiveSheet.Range('A2:G2').Select();//另外一種高級的選擇方法oActiveSheet.Range(oActiveSheet.cells(5,3),oActiveSheet.Cells(6,4)).Select;//設(shè)置文字格式oApplication.Selection.Font.Size=15;oApplication.Selection.Font.bold=?trueoApplication.Selection.Font.Name='宋體';//合并選取的單元格oApplication.Selection.Merge();//設(shè)置選取單元格的垂直對齊和水平對齊?oApplication.Selection.HorizontalAlignment?=?xlCenter;?oApplication.Selection.VerticalAlignment?=?xlCenter;//注意，對selection的操作都適用于cells//設(shè)置自動(dòng)換行oApplication.Selection.WrapText=true;//--></SCRIPT>
Powered by: BlogJava Copyright © Javaphua