将ListView中的内容倒入到Excel

本示例是用于将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;


不知道有没有用，转载至csdn的一个blog。没有使用ADO只是用了Excel的com组件。

转载于:https://www.cnblogs.com/sdav/archive/2008/09/11/1288834.html