国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 語(yǔ)言 > JavaScript > 正文

通過(guò)Javascript將數(shù)據(jù)導(dǎo)出到外部Excel文檔的函數(shù)代碼

2024-05-06 14:21:44
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
代碼如下:
function AutomateExcel() {
try {
//Start Excel and get Application object.
var oXL;
try
{
oXL = new ActiveXObject("Excel.Application");
}
catch(e)
{
alert("無(wú)法啟動(dòng)Excel!/n/n如果您確信您的電腦中已經(jīng)安裝了Excel," + "那么請(qǐng)調(diào)整IE的安全級(jí)別。/n/n具體操作:/n/n" + "工具 → Internet選項(xiàng) → 安全 → 自定義級(jí)別 → 對(duì)沒(méi)有標(biāo)記為安全的ActiveX進(jìn)行初始化和腳本運(yùn)行 → 啟用");
return false;
}
//Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = $("#GridView1")[0];
var rows = table.rows;
var columns = table.rows(0).cells;
var codes = "";
//設(shè)置標(biāo)題
var name = "第 <%= _CurrentPage %> 頁(yè)";
oXL.Caption = name;
oSheet.Name = name;
//設(shè)置表頭
oSheet.Cells(1, 1).Value = "申請(qǐng)單編號(hào)";
oSheet.Cells(1, 2).Value = "出貨金額";
oSheet.Cells(1, 3).Value = "營(yíng)銷(xiāo)部門(mén)";
oSheet.Cells(1, 4).Value = "業(yè)務(wù)人員";
oSheet.Cells(1, 5).Value = "內(nèi)部合同號(hào)";
oSheet.Cells(1, 6).Value = "客戶名稱(chēng)";
oSheet.Cells(1, 7).Value = "幣種";
oSheet.Cells(1, 8).Value = "客戶船期";
oSheet.Cells(1, 9).Value = "國(guó)別";
oSheet.Cells(1, 10).Value = "核銷(xiāo)單號(hào)";
oSheet.Cells(1, 11).Value = "發(fā)票號(hào)碼";
oSheet.Cells(1, 12).Value = "報(bào)關(guān)日期";
//獲取當(dāng)前頁(yè)申請(qǐng)單編號(hào)
for (var i = 2; i <= rows.length; i++) {
codes += "'" + rows(i - 1).cells(0).innerText + "',";
}
codes += "''";
//獲取數(shù)據(jù)并填充數(shù)據(jù)到EXCEL
$.post("../Handlers/ShippingApplyHandler.ashx",
{ Action: "ExportData", ExportCondition: codes },
function (views) {
if (views != null) {
var beginindex = 1;
var endindex = 1;
for (var i = 0; i < views.length; i++) {
endindex++;
oSheet.Cells(i + 2, 1).Value = views[i].SACode;
oSheet.Cells(i + 2, 2).Value = views[i].AmountSum;
oSheet.Cells(i + 2, 3).Value = views[i].Department;
oSheet.Cells(i + 2, 4).Value = views[i].SalesName;
oSheet.Cells(i + 2, 5).Value = views[i].ContractNo;
oSheet.Cells(i + 2, 6).Value = views[i].CustomerName;
oSheet.Cells(i + 2, 7).Value = views[i].CurrencyCode;
if (views[i].CustomerSchedule != null) {
oSheet.Cells(i + 2, 8).Value = ConvertToJSDate(views[i].CustomerSchedule).Format("yyyy-MM-dd");
}
oSheet.Cells(i + 2, 9).Value = views[i].Country;
oSheet.Cells(i + 2, 10).Value = views[i].VerificationNumber;
oSheet.Cells(i + 2, 11).Value = views[i].InvoiceNumber;
if (views[i].CustomsDate != null) {
oSheet.Cells(i + 2, 12).Value = ConvertToJSDate(views[i].CustomsDate).Format("yyyy-MM-dd");
}
if (i > 0 && views[i - 1].SACode == views[i].SACode) {
oSheet.Range(oSheet.Cells(beginindex, 1), oSheet.Cells(endindex, 1)).Merge();
oSheet.Range(oSheet.Cells(beginindex, 2), oSheet.Cells(endindex, 2)).Merge();
oSheet.Range(oSheet.Cells(beginindex, 3), oSheet.Cells(endindex, 3)).Merge();
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 韶山市| 兴文县| 新沂市| 达州市| 岳阳市| 敦煌市| 彭州市| 松阳县| 辽阳市| 思南县| 西充县| 临安市| 温泉县| 洪湖市| 通化县| 上高县| 康乐县| 青海省| 宣汉县| 东兴市| 二手房| 荃湾区| 洛南县| 贵定县| 凤阳县| 渝北区| 永丰县| 海门市| 桃园市| 钟祥市| 昌平区| 彭州市| 和田县| 安乡县| 上思县| 迭部县| 夏河县| 周口市| 曲阜市| 富蕴县| 江油市|