以前讀書(shū)的時(shí)候絕不會(huì)想到會(huì)用客戶端腳本來(lái)實(shí)現(xiàn)這些功能,現(xiàn)在卻一開(kāi)始就要用上了,而且還覺(jué)得挺實(shí)用的。 參考《Windows腳本技術(shù)》,應(yīng)該會(huì)有一點(diǎn)收獲。
trackback:http://hi.baidu.com/netcorner/blog/item/4c35a818788f670635fa41d3.html通過(guò)Javascript操作Excel
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>將頁(yè)面中指定表格的數(shù)據(jù)導(dǎo)入到Excel中</TITLE>
<SCRIPT LANGUAGE="javascript">
<!--
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application"); //創(chuàng)建應(yīng)該對(duì)象
var oWB = oXL.Workbooks.Add();//新建一個(gè)Excel工作簿
var oSheet = oWB.ActiveSheet;//指定要寫(xiě)入內(nèi)容的工作表為活動(dòng)工作表
var table = document.all.data;//指定要寫(xiě)入的數(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中寫(xiě)行
for (j=0;j<lie;j++){//在Excel中寫(xiě)列
//定義格式
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;//向單元格寫(xiě)入值
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<table border="0" width="300" id="data" bgcolor="black" cellspacing="1">
<tr bgcolor="white">
<td>編號(hào)</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>