Javaphua Blog

          BlogJava 首頁 新隨筆 聯系 聚合 管理
            46 Posts :: 5 Stories :: 46 Comments :: 0 Trackbacks

          常用鏈接

          留言簿(4)

          隨筆檔案

          文章檔案

          收藏夾

          Blog

          優秀的技術站點

          技術鏈接

          資源站點

          搜索

          最新隨筆

          最新評論

          閱讀排行榜

          評論排行榜

          利用腳本操作Excel文件,一些基礎的東西,主要涉及到生成Excel文件,和寫入單元格內容,設置字體、寬高等,以及如何合并單元格,更高級的可以通過錄制宏來查看。


          ?
          1.?<SCRIPT?LANGUAGE='JavaScript'>
          ?
          2.?<!--
          ?
          3.?var?xlCenter=-4108;
          ?
          4.?var?xlbottom=-4107;
          ?
          5.?var?xlRight=-4152;
          ?
          6.?
          ?
          7.?var?oSheet;
          ?
          8.?var?oActiveSheet;
          ?
          9.?var?oApplication;

          10.?//初始化Excel對象

          11.?try?{?

          12.???????oApplication????=?new?ActiveXObject?(?'Excel.Application'?);

          13.???????}

          14.?catch(e)?{?

          15.?alert('您必須安裝Excel電子表格軟件,同時瀏覽器須使用“ActiveX?控件”!');

          16.?????return?'';

          17.???}???????

          18.?oApplication.visible?=?true;???????

          19.?var?xlBook?=?oApplication.Workbooks.Add;

          20.?oActiveSheet?=?xlBook.Worksheets(1);?

          21.?//設置行高

          22.?oActiveSheet.Rows('1:1').RowHeight?=?30;

          23.?//設置列寬

          24.?oActiveSheet.Columns('A:A').ColumnWidth?=?8;

          25.?//設置單元格的內容

          26.?oActiveSheet.Cells(4,1).FormulaR1C1='日??期';?//第4行第1列

          27.?//單元格選擇

          28.?oActiveSheet.Range('A2:G2').Select();

          29.?//另外一種高級的選擇方法

          30.?oActiveSheet.Range(oActiveSheet.cells(5,3),oActiveSheet.Cells(6,4)).Select;

          31.?//設置文字格式

          32.?oApplication.Selection.Font.Size=15;

          33.?oApplication.Selection.Font.bold=?true

          34.?oApplication.Selection.Font.Name='宋體';

          35.?//合并選取的單元格

          36.?oApplication.Selection.Merge();

          37.?//設置選取單元格的垂直對齊和水平對齊

          38.??oApplication.Selection.HorizontalAlignment?=?xlCenter;

          39.??oApplication.Selection.VerticalAlignment?=?xlCenter;

          40.?//注意,對selection的操作都適用于cells

          41.?

          42.?//設置自動換行

          43.?oApplication.Selection.WrapText=true;

          44.?//-->

          45.?</SCRIPT>

          ?

          posted on 2006-05-18 19:37 Javaphua 閱讀(328) 評論(0)  編輯  收藏

          只有注冊用戶登錄后才能發表評論。


          網站導航:
           
          主站蜘蛛池模板: 巴南区| 乐至县| 龙里县| 绍兴县| 厦门市| 富锦市| 疏附县| 嘉义市| 台南市| 高要市| 云南省| 化州市| 都江堰市| 龙州县| 正安县| 屯门区| 钦州市| 兴仁县| 白朗县| 永仁县| 仁寿县| 福建省| 科尔| 新河县| 东港市| 鸡东县| 内黄县| 蕉岭县| 嘉兴市| 张家川| 北海市| 正镶白旗| 金华市| 务川| 盐源县| 宝丰县| 阳城县| 安顺市| 北川| 建德市| 潜江市|