参考网上的方法修改，1000条记录导出只要3S（1GRDM,C2.8CPU）. 1.项目添加excel对象类库的引用，Microsoft Excel 11.0 object library（不同版本的Excel，类库不同，这是2003的） 2.代码
1//-***************获取要写入excel的数据源*************** 2 Dao model=new Dao(); 3 DataTable dt=model.GetFileNameList(0,intPageSize,Convert.ToDateTime(dtPFrom.Value), Convert.ToDateTime(dtPTo.Value));//取得dataGrid绑定的DataSet 4 if(dt==null) return; 5 DataGridTableStyle ts = dataGrid1.TableStyles[0]; 6 7 8 //-***************获取excel对象*************** 9 string saveFileName=""; 10 bool fileSaved=false; 11 SaveFileDialog saveDialog=new SaveFileDialog(); 12 saveDialog.DefaultExt ="xls"; 13 saveDialog.Filter="Excel文件|*.xls"; 14 saveDialog.FileName ="导入记录查询结果 "+DateTime.Today.ToString("yyyy-MM-dd"); 15 saveDialog.ShowDialog(); 16 saveFileName=saveDialog.FileName; 17 if(saveFileName.IndexOf(":")<0) return; //被点了取消 18 Excel.Application xlApp=new Excel.Application(); 19 if(xlApp==null) 20 { 21 MessageBox.Show("无法启动Excel，可能您的机子未安装Excel"); 22 return; 23 } 24 Excel.Workbook workbook = xlApp.Workbooks.Add(true); 25 Excel.Worksheet worksheet = (Excel.Worksheet)workbook.Worksheets[1]; 26 Excel.Range range; 27 28 29 string oldCaption=dataGrid1.CaptionText; 30 // 列索引，行索引，总列数，总行数 31 int colIndex = 0; 32 int RowIndex = 0; 33 int colCount = ts.GridColumnStyles.Count; 34 int RowCount=dt.Rows.Count; 35 36 37 // *****************获取数据********************* 38 dataGrid1.CaptionVisible = true; 39 dataGrid1.CaptionText = "正在导出数据"; 40 // 创建缓存数据 41 object[,] objData = new object[RowCount + 1, colCount]; 42 // 获取列标题 43 foreach(DataGridColumnStyle cs in ts.GridColumnStyles) 44 { 45 objData[RowIndex,colIndex++] = cs.HeaderText; 46 } 47 48 // 获取具体数据 49 for(RowIndex =1;RowIndex< RowCount;RowIndex++) 50 { 51 for(colIndex=0;colIndex < colCount;colIndex++) 52 { 53 objData[RowIndex,colIndex] =dt.Rows[RowIndex-1][colIndex+1]; 54 } 55 56 } 57 58 //********************* 写入Excel******************* 59 60 range = worksheet.get_Range(xlApp.Cells[2,1],xlApp.Cells[RowCount,colCount]); 61 range.Value2= objData; 62 Application.DoEvents(); 63 64 //*******************设置输出格式****************************** 65 66 //设置顶部説明 67 range = worksheet.get_Range(xlApp.Cells[1,1],xlApp.Cells[1,colCount]); 68 range.MergeCells = true; 69 range.RowHeight=38; 70 range.Font.Bold=true; 71 range.Font.Size=14; 72 range.Font.ColorIndex=10;//字体颜色 73 xlApp.ActiveCell.FormulaR1C1 = "导入记录查询结果"; 74 75 //特殊数字格式 76 range = worksheet.get_Range(xlApp.Cells[2,colCount],xlApp.Cells[RowCount,colCount]); 77 range.NumberFormat="yyyy-MM-dd hh:mm:ss"; 78 79 xlApp.Cells.HorizontalAlignment=Excel.Constants.xlCenter; 80 range = worksheet.get_Range(xlApp.Cells[2,1],xlApp.Cells[2,colCount]); 81 range.Interior.ColorIndex = 10;//背景色 82 range.Font.Bold = true; 83 range.RowHeight=20; 84 ((Excel.Range)worksheet.Cells[2,1]).ColumnWidth=25; 85 ((Excel.Range)worksheet.Cells[2,2]).ColumnWidth=13; 86 ((Excel.Range)worksheet.Cells[2,3]).ColumnWidth=18; 87 ((Excel.Range)worksheet.Cells[2,4]).ColumnWidth=15; 88 ((Excel.Range)worksheet.Cells[2,5]).ColumnWidth=22; 89 90 //***************************保存********************** 91 dataGrid1.CaptionVisible = false; 92 dataGrid1.CaptionText = oldCaption; 93 if(saveFileName!="") 94 { 95 try 96 { 97 workbook.Saved =true; 98 workbook.SaveCopyAs(saveFileName); 99 fileSaved=true; 100 } 101 catch(Exception ex) 102 { 103 fileSaved=false; 104 MessageBox.Show("导出文件时出错,文件可能正被打开！/n"+ex.Message); 105 } 106 } 107 else 108 { 109 fileSaved=false; 110 } 111 xlApp.Quit(); 112 GC.Collect();//强行销毁 113 TimeSpan dateEnd=new TimeSpan(DateTime.Now.Ticks); 114 TimeSpan tspan=dateBegin.Subtract(dateEnd).Duration(); 115 MessageBox.Show(tspan.ToString()); 116 if(fileSaved && File.Exists(saveFileName)) 117 System.Diagnostics.Process.Start(saveFileName);
