heting

BlogJava :: 首頁 :: 新隨筆 :: 聯(lián)系 :: 聚合

:: 管理 ::

40 隨筆 :: 9 文章 :: 45 評(píng)論 :: 0 Trackbacks

<

2009年11月

>

日

一

二

三

四

五

六

25

26

27

28

29

30

31

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

1

2

3

4

5

常用鏈接

留言簿(3)

隨筆分類

隨筆檔案

文章檔案

2008年9月 (9)

搜索

閱讀排行榜

評(píng)論排行榜

js生成xls

function MakeExcel() {

var i, j, n;

try {

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

}

catch(e) {

alert( "要生成該表，您必須安裝Excel電子表格軟件，同時(shí)瀏覽器須使用“ActiveX 控件”，您的瀏覽器須允許執(zhí)行控件。請(qǐng)點(diǎn)擊【幫助】了解瀏覽器設(shè)置方法！");

return "";

}

xls.visible =true; // 設(shè)置excel為可見

var xlBook = xls.Workbooks.Add;

var xlsheet = xlBook.Worksheets(1);

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

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

xlsheet.Cells(2,3).Value = "計(jì)費(fèi)方式";

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

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="發(fā)卡記錄";

xlBook.SaveAs("C:\\TEST.XLS");

// 用 Application 對(duì)象用 Quit 方法關(guān)閉 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) 評(píng)論(0) 編輯收藏所屬分類: js

新用戶注冊(cè) 刷新評(píng)論列表


只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關(guān)文章: window.showModalDialog div+css 居中問題 js生成xls