導(dǎo)出Excel

一童漩。導(dǎo)出Excel有兩種:

1.

function ExportExcel(tableid){//讀取表格中每個單元到EXCEL中

try

{

var curTbl = document.getElementById(tableid);

var oXL = new ActiveXObject("Excel.Application"); //創(chuàng)建AX對象excel

var oWB = oXL.Workbooks.Add(); //獲取workbook對象

var oSheet = oWB.ActiveSheet; //激活當(dāng)前sheet

var Lenr = curTbl.rows.length; //取得表格行數(shù)

for (i = 0; i < Lenr; i++){

var Lenc = curTbl.rows(i).cells.length; //取得每行的列數(shù)

for (j = 0; j < Lenc; j++){

oSheet.Cells(i + 1, j + 1).value = curTbl.rows(i).cells(j).innerText; //賦值

}

}

oXL.Visible = true; //設(shè)置excel可見屬性

}

catch(e)

{

alert(e.message);

}

}

2:

function dataToExcel(tableid) {//整個表格拷貝到EXCEL中

var curTbl = document.getElementById(tableid);

var oXL;

try {

oXL = GetObject("", "Excel.Application");

}

catch (E) {

try {

oXL = new ActiveXObject("Excel.Application");

}

catch (E2) {

//alert("Please confirm:\n1.Microsoft Excel has been installed.\n2.Internet Options=>Security=>Setting \"Enable unsafe ActiveX\"");

alert("請確認(rèn):\n1.機(jī)器上Excel已經(jīng)安裝.\n2.Internet 選項=>安全=>Internet \"對沒有標(biāo)記為安全的ActiveX控件進(jìn)行初始化和腳本運(yùn)行喝滞,設(shè)定為啟用\"");

return;

}

}

//創(chuàng)建AX對象excel

var oWB = oXL.Workbooks.Add();

//獲取workbook對象

var oSheet = oWB.ActiveSheet;

//激活當(dāng)前sheet

var sel = document.body.createTextRange();

sel.moveToElementText(curTbl);

//把表格中的內(nèi)容移到TextRange中

sel.select();

//全選TextRange中內(nèi)容

sel.execCommand("Copy");

//復(fù)制TextRange中內(nèi)容

oSheet.Paste();

//粘貼到活動的EXCEL中

oXL.Visible = true;

//設(shè)置excel可見屬性

}

二炼幔。導(dǎo)出Txt

function dataToTxt(tableid)

{

var file_name=window.prompt("請指定輸出文件名稱(.txt)","C://ExportTxt.txt");

if(file_name!=null)

{

var curTbl = document.getElementById(tableid);

file_name=file_name.split("http://").join("http:////");

alert(file_name);

var FSO=new ActiveXObject("Scripting.FileSystemObject");

var f1 = FSO.CreateTextFile(file_name, true);

var Lenr = curTbl.rows.length; //取得表格行數(shù)

for (i = 0; i < Lenr; i++){

var Lenc = curTbl.rows(i).cells.length; //取得每行的列數(shù)

for (j = 0; j < Lenc; j++){

f1.write(curTbl.rows(i).cells(j).innerText+" "); //賦值

}

f1.write("\r\n");

}

f1.close();

}

}

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌,老刑警劉巖汽久,帶你破解...
    沈念sama閱讀 218,386評論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異踊餐,居然都是意外死亡景醇,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,142評論 3 394
  • 文/潘曉璐 我一進(jìn)店門吝岭,熙熙樓的掌柜王于貴愁眉苦臉地迎上來三痰,“玉大人,你說我怎么就攤上這事苍碟【泼伲” “怎么了?”我有些...
    開封第一講書人閱讀 164,704評論 0 353
  • 文/不壞的土叔 我叫張陵微峰,是天一觀的道長舷丹。 經(jīng)常有香客問我,道長蜓肆,這世上最難降的妖魔是什么颜凯? 我笑而不...
    開封第一講書人閱讀 58,702評論 1 294
  • 正文 為了忘掉前任,我火速辦了婚禮仗扬,結(jié)果婚禮上症概,老公的妹妹穿的比我還像新娘。我一直安慰自己早芭,他們只是感情好彼城,可當(dāng)我...
    茶點故事閱讀 67,716評論 6 392
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著,像睡著了一般募壕。 火紅的嫁衣襯著肌膚如雪调炬。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,573評論 1 305
  • 那天舱馅,我揣著相機(jī)與錄音缰泡,去河邊找鬼。 笑死代嗤,一個胖子當(dāng)著我的面吹牛棘钞,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播干毅,決...
    沈念sama閱讀 40,314評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼宜猜,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了溶锭?” 一聲冷哼從身側(cè)響起宝恶,我...
    開封第一講書人閱讀 39,230評論 0 276
  • 序言:老撾萬榮一對情侶失蹤符隙,失蹤者是張志新(化名)和其女友劉穎趴捅,沒想到半個月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體霹疫,經(jīng)...
    沈念sama閱讀 45,680評論 1 314
  • 正文 獨居荒郊野嶺守林人離奇死亡拱绑,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,873評論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了丽蝎。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片猎拨。...
    茶點故事閱讀 39,991評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖屠阻,靈堂內(nèi)的尸體忽然破棺而出红省,到底是詐尸還是另有隱情,我是刑警寧澤国觉,帶...
    沈念sama閱讀 35,706評論 5 346
  • 正文 年R本政府宣布吧恃,位于F島的核電站,受9級特大地震影響麻诀,放射性物質(zhì)發(fā)生泄漏痕寓。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,329評論 3 330
  • 文/蒙蒙 一蝇闭、第九天 我趴在偏房一處隱蔽的房頂上張望呻率。 院中可真熱鬧,春花似錦呻引、人聲如沸礼仗。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,910評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽元践。三九已至挪丢,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間卢厂,已是汗流浹背乾蓬。 一陣腳步聲響...
    開封第一講書人閱讀 33,038評論 1 270
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機(jī)就差點兒被人妖公主榨干…… 1. 我叫王不留慎恒,地道東北人任内。 一個月前我還...
    沈念sama閱讀 48,158評論 3 370
  • 正文 我出身青樓,卻偏偏與公主長得像融柬,于是被迫代替她去往敵國和親死嗦。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 44,941評論 2 355

推薦閱讀更多精彩內(nèi)容