js導(dǎo)入導(dǎo)出excel(實(shí)例代碼)

2019-11-20 21:35:38

字體：大中小

供稿：網(wǎng)友

導(dǎo)入：

<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
     <title>Untitled Page</title>
</head>
<script language="javascript" type="text/javascript">
function importXLS(fileName)
{  
     objCon = new ActiveXObject("ADODB.Connection");
     objCon.Provider = "Microsoft.Jet.OLEDB.4.0";
     objCon.ConnectionString = "Data Source=" + fileName + ";Extended Properties=Excel 8.0;";
     objCon.CursorLocation = 1;
     objCon.Open;
     var strQuery;
     //Get the SheetName
     var strSheetName = "Sheet1$";
     var rsTemp =   new ActiveXObject("ADODB.Recordset");
     rsTemp = objCon.OpenSchema(20);
     if(!rsTemp.EOF)
     strSheetName = rsTemp.Fields("Table_Name").Value;
     rsTemp = null;
     rsExcel =   new ActiveXObject("ADODB.Recordset");
     strQuery = "SELECT * FROM [" + strSheetName + "]";
     rsExcel.ActiveConnection = objCon;
     rsExcel.Open(strQuery);
     while(!rsExcel.EOF)
     {
     for(i = 0;i<rsExcel.Fields.Count;++i)
     {
     alert(rsExcel.Fields(i).value);
     }
     rsExcel.MoveNext; 
     }
     // Close the connection and dispose the file
     objCon.Close;
     objCon =null;
     rsExcel = null;
}
</script>
</head>
<body>
<input type="file" id="f" />
<input type="button" id="b" value="import" onclick="if(f.value=='')alert('請選擇xls文件');else importXLS(f.value)" />
</body>
</html> 

導(dǎo)出：

復(fù)制代碼代碼如下:

function AutomateExcel()
{
　　
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
　　
oXL.Visible = true;
　　
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
　　
// Add table headers going cell by cell.
oSheet.Cells(1, 1).Value = "First Name";
oSheet.Cells(1, 2).Value = "Last Name";
oSheet.Cells(1, 3).Value = "Full Name";
oSheet.Cells(1, 4).Value = "Salary";
　　
// Format A1:D1 as bold, vertical alignment = center.
oSheet.Range("A1", "D1").Font.Bold = true;
oSheet.Range("A1", "D1").VerticalAlignment = -4108; //xlVAlignCenter
　　
// Create an array to set multiple values at once.
　　
// Fill A2:B6 with an array of values (from VBScript).
oSheet.Range("A2", "B6").Value = CreateNamesArray();
　　
// Fill C2:C6 with a relative formula (=A2 & " " & B2).
var oRng = oSheet.Range("C2", "C6");
oRng.Formula = "=A2 & " " & B2";
　　
// Fill D2:D6 with a formula(=RAND()*100000) and apply format.
oRng = oSheet.Range("D2", "D6");
oRng.Formula = "=RAND()*100000";
oRng.NumberFormat = "$0.00";
　　
// AutoFit columns A:D.
oRng = oSheet.Range("A1", "D1");
oRng.EntireColumn.AutoFit();
　　
// Manipulate a variable number of columns for Quarterly Sales Data.
DispalyQuarterlySales(oSheet);
　　
// Make sure Excel is visible and give the user control
// of Excel's lifetime.
oXL.Visible = true;
oXL.UserControl = true;
}<HTML>
<HEAD>
<TITLE>將頁面中指定表格的數(shù)據(jù)導(dǎo)入到Excel中</TITLE>
<SCRIPT LANGUAGE="javascript">
<!--
function AutomateExcel()
{
　　
var oXL = new ActiveXObject("Excel.Application"); //創(chuàng)建應(yīng)該對象
var oWB = oXL.Workbooks.Add();//新建一個(gè)Excel工作簿
var oSheet = oWB.ActiveSheet;//指定要寫入內(nèi)容的工作表為活動(dòng)工作表
var table = document.all.data;//指定要寫入的數(shù)據(jù)源的id
var hang = table.rows.length;//取數(shù)據(jù)源行數(shù)
var lie = table.rows(0).cells.length;//取數(shù)據(jù)源列數(shù)
　　
// Add table headers going cell by cell.
for (i=0;i<hang;i++){//在Excel中寫行
for (j=0;j<lie;j++){//在Excel中寫列
//定義格式
oSheet.Cells(i+1,j+1).NumberFormatLocal = "@";
//!!!!!!!上面這一句是將單元格的格式定義為文本
oSheet.Cells(i+1,j+1).Font.Bold = true;//加粗
oSheet.Cells(i+1,j+1).Font.Size = 10;//字體大小
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;//向單元格寫入值
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>
</HEAD>
　　
<BODY>
<table border="0" width="300" id="data" bgcolor="black" cellspacing="1">
<tr bgcolor="white">
<td>編號</td>
<td>姓名</td>
<td>年齡</td>
<td>性別</td>
</tr>
<tr bgcolor="white">
<td>0001</td>
<td>張三</td>
<td>22</td>
<td>女</td>
</tr>
<tr bgcolor="white">
<td>0002</td>
<td>李四</td>
<td>23</td>
<td>男</td>
</tr>
</table>
<input type="button" name="out_excel" onclick="AutomateExcel();" value="導(dǎo)出到excel">
</BODY>
</HTML>

復(fù)制代碼代碼如下:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>WEB頁面導(dǎo)出為EXCEL文檔的方法</title>
</head>
<body>
    <table id="tableExcel" width="100%" border="1" cellspacing="0" cellpadding="0">
        <tr>
            <td colspan="5" align="center">
                WEB頁面導(dǎo)出為EXCEL文檔的方法
            </td>
        </tr>
        <tr>
            <td>
                列標(biāo)題1
            </td>
            <td>
                列標(biāo)題2
            </td>
            <td>
                列標(biāo)題3
            </td>
            <td>
                列標(biāo)題4
            </td>
            <td>
                列標(biāo)題5
            </td>
        </tr>
        <tr>
            <td>
                aaa
            </td>
            <td>

            </td>
            <td>
                ccc
            </td>
            <td>
                ddd
            </td>
            <td>
                eee
            </td>
        </tr>
        <tr>
            <td>
                AAA
            </td>
            <td>

            </td>
            <td>
                CCC
            </td>
            <td>
                DDD
            </td>
            <td>
                EEE
            </td>
        </tr>
        <tr>
            <td>
                FFF
            </td>
            <td>
                GGG
            </td>
            <td>
                HHH
            </td>
            <td>
                III
            </td>
            <td>
                JJJ
            </td>
        </tr>
    </table>
    <input type="button" onclick="javascript:method1('tableExcel');" value="第一種方法導(dǎo)入到EXCEL">
    <input type="button" onclick="javascript:method2('tableExcel');" value="第二種方法導(dǎo)入到EXCEL">
    <input type="button" onclick="javascript:getXlsFromTbl('tableExcel',null);" value="第三種方法導(dǎo)入到EXCEL">

function method1(tableid) {//整個(gè)表格拷貝到EXCEL中

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 sel = document.body.createTextRange();

sel.moveToElementText(curTbl); //把表格中的內(nèi)容移到TextRange中

sel.select(); //全選TextRange中內(nèi)容

sel.execCommand("Copy"); //復(fù)制TextRange中內(nèi)容

oSheet.Paste(); //粘貼到活動(dòng)的EXCEL中

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

}

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

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可見屬性

}

function getXlsFromTbl(inTblId, inWindow) {

try {

var allStr = "";

var curStr = "";

if (inTblId != null && inTblId != "" && inTblId != "null") {

curStr = getTblData(inTblId, inWindow);

}

if (curStr != null) {

allStr += curStr;

}
else {

alert("你要導(dǎo)出的表不存在！");

return;

}

var fileName = getExcelFileName();

doFileExport(fileName, allStr);

}
catch (e) {

alert("導(dǎo)出發(fā)生異常:" + e.name + "->" + e.description + "!");

}

function getTblData(inTbl, inWindow) {

var rows = 0;

var tblDocument = document;

if (!!inWindow && inWindow != "") {

if (!document.all(inWindow)) {

return null;

}
else {

tblDocument = eval(inWindow).document;

}

var curTbl = tblDocument.getElementById(inTbl);

var outStr = "";

if (curTbl != null) {

for (var j = 0; j < curTbl.rows.length; j++) {

for (var i = 0; i < curTbl.rows[j].cells.length; i++) {

if (i == 0 && rows > 0) {

outStr += " /t";

rows -= 1;

}

outStr += curTbl.rows[j].cells[i].innerText + "/t";

if (curTbl.rows[j].cells[i].colSpan > 1) {

for (var k = 0; k < curTbl.rows[j].cells[i].colSpan - 1; k++) {

outStr += " /t";

}

if (i == 0) {

if (rows == 0 && curTbl.rows[j].cells[i].rowSpan > 1) {

rows = curTbl.rows[j].cells[i].rowSpan - 1;

}

outStr += "/r/n";

}

else {

outStr = null;

alert(inTbl + "不存在!");

}

return outStr;

}

function getExcelFileName() {

var d = new Date();

var curYear = d.getYear();

var curMonth = "" + (d.getMonth() + 1);

var curDate = "" + d.getDate();

var curHour = "" + d.getHours();

var curMinute = "" + d.getMinutes();

var curSecond = "" + d.getSeconds();

if (curMonth.length == 1) {

curMonth = "0" + curMonth;

}

if (curDate.length == 1) {

curDate = "0" + curDate;

}

if (curHour.length == 1) {

curHour = "0" + curHour;

}

if (curMinute.length == 1) {

curMinute = "0" + curMinute;

}

if (curSecond.length == 1) {

curSecond = "0" + curSecond;

}

var fileName = "leo_zhang" + "_" + curYear + curMonth + curDate + "_"

+ curHour + curMinute + curSecond + ".csv";

return fileName;

}

function doFileExport(inName, inStr) {

var xlsWin = null;

if (!!document.all("glbHideFrm")) {

xlsWin = glbHideFrm;

}
else {

var width = 6;

var height = 4;

var openPara = "left=" + (window.screen.width / 2 - width / 2)

+ ",top=" + (window.screen.height / 2 - height / 2)

+ ",scrollbars=no,width=" + width + ",height=" + height;

xlsWin = window.open("", "_blank", openPara);

}

xlsWin.document.write(inStr);

xlsWin.document.close();

xlsWin.document.execCommand('Saveas', true, inName);

xlsWin.close();

}

</script>

</body>
</html>

上一篇：利用js實(shí)現(xiàn)前臺(tái)動(dòng)態(tài)添加文本框,后臺(tái)獲取文本框內(nèi)容(示例代碼)

下一篇：用javascript添加控件自定義屬性解析

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注

新聞熱點(diǎn)

榮耀總裁趙明烏鎮(zhèn)演講：榮耀首款5G手機(jī)V30下月發(fā)布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關(guān)鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術(shù)創(chuàng)造現(xiàn)實(shí)價(jià)值

2019-10-21 09:00:12

滴滴英文服務(wù)上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓(xùn)練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術(shù)團(tuán)隊(duì)

2019-09-25 08:15:43

疑難解答

圖片精選

網(wǎng)友關(guān)注