說明:這是一個實驗的小例子,在實際項目中使用時,一般Object[,] 對象的數據來源於數據庫。
1. 實驗環境
開發平台:Visual Studio 2010
測試模板:JBtest
Excel:Office2007 Excel
2. 項目所用組件
為什么選擇ASP.NET做打印的功能,因為office和Visual studio同是微軟的開發軟件,具有良好的兼容性,利用上述.dll組件,可以輕松實現excel模板的導入和excel數據的導出。
ExcelQuicker.dll動態鏈接庫需要在網上下載,引用到項目中才可以使用。我用的這個版本比較早,版本號是2.2.0.0。現在的更新版本可能修改了一些函數和類的名稱,請參考后使用。
3. webconfig配置
4.項目結構
以上是項目的整體結構,其中,測試網頁為Default.aspx。Lib目錄下的ExcelQuicker.xml為ExcelQuicker組件的配置文檔,Message.xml為導入出錯時報錯的信息。
5.報表打印
首先在實現打印的網頁后台引用命名空間:using ExcelQuicker.Framework;
利用ExcelQuicker.Framework空間的相應類提供的接口實現報表的新建
EQApplication objApp = new EQApplication(strFileName, EQReportFormat.Excel, strTemplate, false);
EQWorksheet objWS = new EQWorksheet("報表數據");
數據寫入到excel文檔里類似於VBA編程,具體細節功能請參考代碼:Default.aspx.cs
EQRange range = new EQRange(objData, 11, 5, 15, 5); //從“11行 5列” 到 “22行 5列”
objWS.Add(range);
Default.aspx.cs后台主要代碼:
protected void dy_Click1(object sender, EventArgs e)
{
string wjm;
string strTemplate = "JBtest.xls";//模板文件名稱
Initialize();//調用excel quicker初始化函數
// string strFileName = Session["yhid"].ToString();
string strFileName = "wangling";
wjm = strFileName;
wjm = wjm + "_" + strTemplate;
set_Excel(wjm, strTemplate);//生成並設置此excel表
Response.Redirect("..\\ExcelQuicker\\TempReports\\" + wjm);
}
public void Initialize()
{
EQConfiguration.XmlFileName = HttpRuntime.AppDomainAppPath + "ExcelQuicker\\Lib\\Message.xml";
EQConfiguration.Language = "EN";
EQConfiguration.TemporaryFilePath = HttpRuntime.AppDomainAppPath + "ExcelQuicker\\TempReports\\";
EQConfiguration.OutputFilePath = HttpRuntime.AppDomainAppPath + "ExcelQuicker\\TempReports\\";
EQConfiguration.TemplateFilePath = HttpRuntime.AppDomainAppPath + "jb\\xls\\";
}
void set_Excel(string strFileName, string strTemplate)
{
EQApplication objApp = new EQApplication(strFileName, EQReportFormat.Excel, strTemplate, false);
EQWorksheet objWS = new EQWorksheet("報表數據");
object[,] objData, objData3, objData4, objData5, objData6, objData7;
objData = new object[5, 1];//用於存放要填充到Excel中的數據
objData3 = new object[8, 1];
objData4 = new object[1, 1];
objData5 = new object[3, 1];
objData6 = new object[8, 1];
objData7 = new object[8, 1];
string ren, ren1, ren2, ren3;
objData[0, 0] = congye .Text ;//從業人員期末人數
objData[1, 0] = guanli .Text ;//單位負責人
objData[2, 0] = zaigang .Text ;//在崗職工
objData[3, 0] = laowu .Text ;//勞務派遣人員
objData[4, 0] =qita0 .Text ;//其他從業人員
ren = "188" + " 人";
ren1 = "22" + " 人";
ren2 = "33" + " 人";
ren3 = "44" + " 人";
objData4[0, 0] = ren;//直接從事生產經營活動的平均人數
objData5[0, 0] = ren1;//其中:工程技術人員
objData5[1, 0] = ren2;//其中:一級建造師
objData5[2, 0] = ren3;//其中:現場施工人員
EQRange range = new EQRange(objData, 11, 5, 15, 5); //從“11行 5列” 到 “22行 5列”
objWS.Add(range);
EQRange range4 = new EQRange(objData4, 30, 3, 30, 3); //從“11行 5列” 到 “22行 5列”
objWS.Add(range4);
EQRange range5 = new EQRange(objData5, 32, 6, 34, 6); //從“11行 10列” 到 “22行 10列”
objWS.Add(range5);
objData7[0, 0] = pingjun .Text ;
objData7[1, 0] =zaigangpj0.Text ;
objData7[2, 0] = laowupj0.Text ;
objData7[3, 0] = qitapj.Text ;
//range7 1-本季 平均人數//
EQRange range7 = new EQRange(objData7, 16, 5, 19, 5);
objWS.Add(range7);
objData3[0, 0] =congyeg.Text ;//從業人員工資總額
objData3[1, 0] = zaizhig.Text ;//在崗職工工資總額
objData3[2, 0] = laog .Text ;//勞務派遣人員工資總額
objData3[3, 0] = qitag.Text ;//其他從業人員工資總額
EQRange range3 = new EQRange(objData3, 21, 5, 24, 5); //從“11行 10列” 到 “22行 10列”
objWS.Add(range3);
objData6[0, 0] = congyepjg.Text ;
objData6[1, 0] = zaigangpjg.Text ;
objData6[2, 0] =laowupjg.Text ;
objData6[3, 0] = qitapjg.Text ;
EQRange range6 = new EQRange(objData6, 25,5,28, 5);
objWS.Add(range6);
//以下填寫報送人員信息
string ryxx = "單位負責人: " + df.Text + " 統計負責人:" + xf.Text + " 填表人:" + tf.Text;
objData = new object[1, 1];
objData[0, 0] = ryxx;
range = new EQRange(objData, 35, 1, 35, 1);
objWS.Add(range);
//以下填寫表頭單位名稱
objData = new object[1, 1];
objData[0, 0] = "Excel表格數據導出測試";
range = new EQRange(objData, 7, 1, 7, 1);
objWS.Add(range);
objApp.Add(objWS);
try
{
objApp.Output();
}
catch (Exception)
{
objApp.Dispose();
}
}
6. 效果截圖
界面上填寫數據,把填寫的數據導入到對應的excel文檔里面
填寫數據后,點擊導出excel按鈕,出現如圖界面
打印到Excel后的結果
以上小例子下載:Demo.zip