<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    這個程序是我在網上搜集的,并結合自己的一點東西。寫的。也算是網上的東西吧。
    本文的所有權歸原作者所有!


    -----start

    <table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13">
    <TR style="text-align : center;">
    ?<TD>單元格A</TD>
    ?<TD>單元格A</TD>
    ?<TD>單元格A</TD>
    ?<TD>單元格A</TD>
    </TR>
    <TR>
    ?<TD colSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">單元格合并行A</FONT></TD>
    </TR>
    </TABLE>
    <table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0">
    <TR style="text-align : center;">
    ?<TD>單元格B</TD>
    ?<TD>單元格B</TD>
    ?<TD>單元格B</TD>
    ?<TD>單元格B</TD>
    </TR>
    <TR>
    ?<TD colSpan=4 style="text-align : center;">單元格合并行B</TD>
    </TR>
    </TABLE>
    <br/>
    <input type="button" onclick="javascript:AllAreaWord();" value="導出頁面指定區域內容到Word">
    <input type="button" onclick="javascript:AllAreaExcel();" value="導出頁面指定區域內容到Excel">
    <input type="button" onclick="javascript:CellAreaExcel();" value="導出表單單元格內容到Excel">



    -----------------------



    <SCRIPT LANGUAGE="javascript">
    ?//指定頁面區域內容導入Excel
    ?function AllAreaExcel()
    ?{
    ? var oXL = new ActiveXObject("Excel.Application");
    ? var oWB = oXL.Workbooks.Add();
    ? var oSheet = oWB.ActiveSheet;?
    ? var sel=document.body.createTextRange();
    ? sel.moveToElementText(PrintA);
    ? sel.select();
    ? sel.execCommand("Copy");
    ? oSheet.Paste();
    ? oXL.Visible = true;
    ?}
    ?//指定頁面區域“單元格”內容導入Excel
    ?function CellAreaExcel()
    ?{
    ? var oXL = new ActiveXObject("Excel.Application");
    ? var oWB = oXL.Workbooks.Add();
    ? var oSheet = oWB.ActiveSheet;
    ? var Lenr = PrintA.rows.length;
    ? for (i=0;i<Lenr;i++)
    ? {
    ?? var Lenc = PrintA.rows(i).cells.length;
    ?? for (j=0;j<Lenc;j++)
    ?? {
    ??? oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText;
    ?? }
    ? }
    ? oXL.Visible = true;
    ?}
    ?//指定頁面區域內容導入Word
    ?function AllAreaWord()
    ?{
    ? var oWD = new ActiveXObject("Word.Application");
    ? var oDC = oWD.Documents.Add("",0,1);
    ? var oRange =oDC.Range(0,1);
    ? var sel = document.body.createTextRange();
    ? sel.moveToElementText(PrintA);
    ? sel.select();
    ? sel.execCommand("Copy");
    ? oRange.Paste();
    ? oWD.Application.Visible = true;
    ? //window.close();
    ?}
    </SCRIPT>
    </body></html>

    ----end

    Feedback

    # re: javascript 客戶端實現導入word、excel的小程序  回復  更多評論   

    2007-05-25 18:26 by BeanSoft
    受益了...收藏!

    # re: javascript 客戶端實現導入word、excel的小程序[未登錄]  回復  更多評論   

    2008-06-07 15:30 by 月亮
    LZ你好,看到你的代碼,謝謝啦
    不過還是出現了一點問題,我將導入word的腳本,放到jsp頁面中去的時候,會出現
    automation 服務器不能創建對象,找了不少方法,都沒能解決此問題,
    請LZ幫忙看看,有什么解決的方法,
    dt_cj2004@sina.com這是我的信箱,謝謝

    # re: javascript 客戶端實現導入word、excel的小程序  回復  更多評論   

    2010-05-29 08:45 by ls0627

    “automation 服務器不能創建對象”

    是因為IE的安全設置高了。

    把安全選項里 ActiveX相關的項目都調為提示或啟用即可。

    posts - 40, comments - 39, trackbacks - 0, articles - 0

    Copyright © Computerboy

    主站蜘蛛池模板: 亚洲AV日韩AV永久无码色欲| 亚洲毛片基地日韩毛片基地| 四虎影视永久在线精品免费| 大学生一级特黄的免费大片视频| 亚洲三级高清免费| 野花高清在线观看免费3中文 | 少妇亚洲免费精品| 日韩a级毛片免费观看| 亚洲成AV人在线播放无码 | 国产精品亚洲一区二区在线观看| 免费av片在线观看网站| 亚洲国产另类久久久精品小说 | 国产一级a毛一级a看免费视频| 久久久久久久免费视频| 亚洲精品第一国产综合精品| 亚洲人成在线免费观看| 亚洲人成网7777777国产| 免费a级毛片无码a∨免费软件| 久久被窝电影亚洲爽爽爽| 91视频免费网址| jlzzjlzz亚洲jzjzjz| 亚洲精品福利在线观看| 免费看成人AA片无码视频羞羞网| 亚洲最大成人网色香蕉| 国产国产人免费视频成69大陆| 亚洲成在人线电影天堂色| 国产成人AV免费观看| 亚洲精品中文字幕无乱码| 白白国产永久免费视频| 一级毛片a免费播放王色| 国产a级特黄的片子视频免费| 亚洲无吗在线视频| yy6080久久亚洲精品| 成在人线av无码免费高潮喷水| 亚洲国产成人久久| 免费人成激情视频| 日韩内射激情视频在线播放免费| 亚洲综合激情五月色一区| 在线观看亚洲精品国产| 99re热免费精品视频观看| 又硬又粗又长又爽免费看 |