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

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

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

移動(dòng)端

【實(shí)例名稱】

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

【實(shí)例描述】

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

【實(shí)例代碼】

<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(); 
//新建一個(gè)Excel工作簿
var oSheet = oWork.ActiveSheet; 
//指定要寫入內(nèi)容的工作表為活動(dòng)工作表
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>

【運(yùn)行效果】

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

【難點(diǎn)剖析】

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

【源碼下載】

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

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