heting

            BlogJava :: 首頁 :: 新隨筆 :: 聯系 :: 聚合  :: 管理 ::
            40 隨筆 :: 9 文章 :: 45 評論 :: 0 Trackbacks
          <html><head>

          <script language="javascript" type="text/javascript">
                
          function MakeExcel() {

                  
          var i, j, n;

                  
          try {

                    
          var xls = new ActiveXObject("Excel.Application");

                  }


                  
          catch(e) {

                    alert( 
          "要生成該表,您必須安裝Excel電子表格軟件,同時瀏覽器須使用“ActiveX 控件”,您的瀏覽器須允許執行控件。請點擊【幫助】了解瀏覽器設置方法!");

                      
          return "";

                  }


                  xls.visible 
          =true// 設置excel為可見

                  
          var xlBook = xls.Workbooks.Add;

                  
          var xlsheet = xlBook.Worksheets(1);

               
                  xlsheet.Cells(
          2,1).Value = "卡號";

                  xlsheet.Cells(
          2,2).Value = "密碼";

                  xlsheet.Cells(
          2,3).Value = "計費方式";

                  xlsheet.Cells(
          2,4).Value = "有效天數";

                  xlsheet.Cells(
          2,5).Value = "金額";


                  xlsheet.Range(xlsheet.Cells(
          1,1),xlsheet.Cells(1,7)).mergecells=true;

                  xlsheet.Range(xlsheet.Cells(
          1,1),xlsheet.Cells(1,7)).value="發卡記錄";
                  
                 
                  
                  xlBook.SaveAs(
          "C:\\TEST.XLS");
                  
                  
          // 用 Application 對象用 Quit 方法關閉 Excel。
                  
                  xlBook.Application.Quit();

                  xls
          =null;

                  xlBook
          =null;

                  xlsheet
          =null;

                }


              
              
          </script>
          </head><body><input type='button' value="生成" onclick='MakeExcel()'></body></html>


          posted on 2009-11-07 12:17 賀挺 閱讀(686) 評論(0)  編輯  收藏 所屬分類: js

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


          網站導航:
           
          主站蜘蛛池模板: 南召县| 奇台县| 苏尼特左旗| 福海县| 女性| 卓尼县| 连云港市| 尉氏县| 封开县| 富阳市| 樟树市| 五河县| 枞阳县| 镇江市| 常州市| 开化县| 延庆县| 右玉县| 子洲县| 德江县| 永城市| 顺平县| 永寿县| 平和县| 庄河市| 凉山| 海安县| 同心县| 闸北区| 德昌县| 饶阳县| 古田县| 邻水| 布尔津县| 潜山县| 肥东县| 抚松县| 濮阳市| 惠东县| 沅江市| 临沂市|