當(dāng)前位置:軟件學(xué)堂 > 資訊首頁 > 網(wǎng)絡(luò)編程 > 編程其他 > 用JavaScript導(dǎo)出圖片到Excel

用JavaScript導(dǎo)出圖片到Excel

2012/11/8 17:19:48作者:佚名來源:網(wǎng)絡(luò)

移動端

【實例名稱】

用JavaScript導(dǎo)出圖片到Excel

【實例描述】

用JavaScript可以輕松地將文字導(dǎo)入Excel中。本例將學(xué)習(xí)如何將圖片也導(dǎo)入Excel中。

【實例代碼】

<HTML> <HEAD> <TITLE>將頁面中指定表格的數(shù)據(jù)導(dǎo)入到Excel中</title> <SCRIPT LANGUAGE="javascript"> function AutomateExcel() {

var oExcel = new ActiveXObject("Excel.Application");   //創(chuàng)建Excel對象 var oWork = oExcel.Workbooks.Add();  //新建一個Excel工作簿 var oSheet = oWork.ActiveSheet;  //指定要寫入內(nèi)容的工作表為活動工作表 var table = document.all.myTbl; //指定要寫入的數(shù)據(jù)源的id var myRow = table.rows.length; //取數(shù)據(jù)源行數(shù) var myCell = table.rows(0).cells.length;  //取數(shù)據(jù)源列數(shù)

for (i=0;i<myRow;i++){//在Excel中寫行   for (j=0;j<myCell;j++){ //在Excel中寫列 //定義格式     oSheet.Cells(i+1,j+1).Font.Bold = true; //加粗     oSheet.Cells(i+1,j+1).Font.Size = 10; //字體大小 if(table.rows(i).cells(j).innerHTML.toLowerCase(). indexOf('<img')!=-1){ //如果其HTML代碼包括<img   oSheet.Cells(i+1,j+1).Select();//選中Excel中的單元格       oSheet.Pictures.Insert(table.rows(i).cells(j). getElementsByTagName('img')[0].src); //插入圖片 }     else{   oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; //向單元格寫入值 }   } } oExcel.Visible = true; oExcel.UserControl = true; } </SCRIPT> </HEAD>

<BODY> <table border="1" width="500" id="myTbl" bgcolor="blue">  <tr bgcolor="white">   <td>&nbsp;姓名</td>   <td>年齡</td>   <td>地址</td>   <td>照片</td>  </tr>  <tr bgcolor="white">   <td>張三</td>   <td>22</td>   <td>北京海淀</td>   <td><img src="logo1.gif" border="0"></td>  </tr>  <tr bgcolor="white">   <td>李四</td>   <td>23</td>   <td>上海浦東</td>   <td><Img src="logo2.gif" border="0"></td>  </tr> </table> <input type="button" name="export" onclick="AutomateExcel();" value="導(dǎo)出到Excel"> </BODY> </HTML>

【運行效果】

 用JavaScript導(dǎo)出圖片到Excel運行效果

【難點剖析】

本例的重點是Excel組件的運用。如果是普通文本,可以直接使用Excel單元格文本等于表格單元格文本的方法。但如果表格內(nèi)是圖片,則必須使用“Pictures.Insert”方法將圖片插入到Excel中。

【源碼下載】

為了JS代碼的準(zhǔn)確性,請點擊:用JavaScript導(dǎo)出圖片到Excel 進(jìn)行本實例源碼下載 

標(biāo)簽: JavaScript  圖片  Excel