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);