.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用C#快速往Excel写数据

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

本示例是用于将ListView中的内容倒入到Excel

与常用的逐单元格写不同的是,本例子采用数据写入到range的方法。该方法效率明显较高

Excel.Application app = new Excel.ApplicationClass();
   if( app == null)
   {
    MessageBox.Show("Excel无法启动");
    return;
   }
   app.Visible = true;
   Excel.Workbooks wbs = app.Workbooks;
   Excel.Workbook wb = wbs.Add(Missing.Value);
   Excel.Worksheet ws = (Excel.Worksheet)wb.Worksheets[1];
   Excel.Range r = ws.get_Range("A1","H1");
   object [] objHeader = {"标题1","标题2","标题3",
         "标题4","标题5","标题6",
         "标题7","标题8"};
   r.Value = objHeader;
   if (lv.Items.Count >0)
   {
    r = ws.get_Range("A2",Missing.Value);  
    object [,] objData = new Object[this.lv.Items.Count,8];
    foreach(ListViewItem lvi in lv.Items)
    {
     objData[lvi.Index,0] = lvi.Text;
     objData[lvi.Index,1] = lvi.SubItems[1].Text;
     objData[lvi.Index,2] = lvi.SubItems[2].Text;
     objData[lvi.Index,3] = lvi.SubItems[3].Text;
     objData[lvi.Index,4] = lvi.SubItems[4].Text;
     objData[lvi.Index,5] = lvi.SubItems[5].Text;
     objData[lvi.Index,6] = lvi.SubItems[6].Text;
     objData[lvi.Index,7] = lvi.SubItems[7].Text;
    }
    r = r.get_Resize(lv.Items.Count,8);
    r.Value = objData;
    r.EntireColumn.AutoFit();
   }
   app = null;




相关文章

相关软件