您的位置:首页 > 编程语言 > ASP

ASP.NET数据列表导出为Excel

2013-03-05 09:37 253 查看
#region Excel定义
DateTime beforeTime = DateTime.Now;
//实例化Excel全局(本地服务器)
Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();
if (xlApp == null)
{
ResponseScript("无法创建Excel对象,可能您的电脑未安装Excel");
return;
}
DateTime afterTime = DateTime.Now;
Microsoft.Office.Interop.Excel.Workbooks workbooks = xlApp.Workbooks;
Microsoft.Office.Interop.Excel.Workbook workbook = workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);
Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1];//取得sheet1
#endregion

//构建数据
long totalCount = _nRecordCount;//行总数
int rindex = 0;
AppCode.Excel.setRangHead(++rindex, "序号", 5, ref worksheet);
AppCode.Excel.setRangHead(++rindex, "所属事项", 50, ref worksheet);
AppCode.Excel.setRangHead(++rindex, "类别名称", 25, ref worksheet);
//写入内容
List<M.VbsCategoryBook> exportlist = new B.VbsCategoryBook().GetList(name, treeid, departCode, order, 1, _nRecordCount, ref _nRecordCount);
for (int r = 0; r < exportlist.Count; r++)
{
rindex = 0;
M.VbsCategoryBook obj = exportlist[r] as M.VbsCategoryBook;
AppCode.Excel.setRangCell(r + 2, ++rindex, (r + 1).ToString(), ref worksheet);
AppCode.Excel.setRangCell(r + 2, ++rindex, returnCategory(obj.InfoItemid), ref worksheet);
AppCode.Excel.setRangCell(r + 2, ++rindex, obj.Name, ref worksheet);
}

#region 保存下载
object missing = System.Reflection.Missing.Value;//定义一个missing
string ExcelFileName = this.Page.Title + DateTime.Now.ToString("yyyyMMddHHmmss") + ".xlsx";
//保存
workbook.SaveAs(Server.MapPath("http://www.cnblogs.com/Resources/DownFile/" + ExcelFileName), missing, missing, missing, missing, missing, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive, missing, missing, missing, missing);
workbook.Close(null, null, null);
workbooks.Close();
xlApp.Application.Quit();
xlApp.Quit();

//释放进程及资源
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet);
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);
worksheet = null;
workbook = null;
xlApp = null;
GC.Collect();
DateTime startTime;
try
{
//强行释放最近打开的Excel进程
System.Diagnostics.Process[] myProcesses = System.Diagnostics.Process.GetProcessesByName("EXCEL");
foreach (System.Diagnostics.Process myProcess in myProcesses)
{
startTime = myProcess.StartTime;
if (startTime >= beforeTime && startTime <= afterTime)
{
myProcess.Kill();
}
}
}
catch
{

}
//将生成的文件提供给客户端
AppCode.Excel.ShowFileInClient(this.Page, Server.MapPath("http://www.cnblogs.com/Resources/DownFile/" + ExcelFileName));
#endregion
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: