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 賀挺 閱讀(679) 評論(0)  編輯  收藏 所屬分類: js

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


          網站導航:
           
          主站蜘蛛池模板: 崇义县| 汉阴县| 梅州市| 上高县| 阜康市| 六安市| 囊谦县| 贵德县| 象州县| 永修县| 汾西县| 邵阳市| 鄂托克前旗| 马山县| 吉林省| 将乐县| 四川省| 宾川县| 娄底市| 南皮县| 永州市| 定结县| 三明市| 施甸县| 绥阳县| 易门县| 吴旗县| 工布江达县| 乾安县| 巴马| 千阳县| 安塞县| 确山县| 抚顺县| 夹江县| 图们市| 普兰县| 萝北县| 玉林市| 若羌县| 凤阳县|