C#DATAGRIDVIEW 导出EXCEL

首先需要引入程序集：Microsoft.Office.Interop.Excel  （如果没有引用过的需要右键添加引用再搜索就行了）

 

实现的方法：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

/// <summary>     ///     /// </summary>     /// <param name="fileName">文件路径</param>     /// <param name="myDGV">控件DataGridView</param>     private  void  ExportExcels( string  fileName, DataGridView myDGV)     {         string  saveFileName =  "" ;         SaveFileDialog saveDialog =  new  SaveFileDialog();         saveDialog.DefaultExt =  "xls" ;         saveDialog.Filter =  "Excel文件|*.xls" ;         saveDialog.FileName = fileName;         saveDialog.ShowDialog();         saveFileName = saveDialog.FileName;         if  (saveFileName.IndexOf( ":" ) < 0)  return ;  //被点了取消         Microsoft.Office.Interop.Excel.Application xlApp =  new  Microsoft.Office.Interop.Excel.Application();         if  (xlApp ==  null )         {             MessageBox.Show( "无法创建Excel对象，可能您的机子未安装Excel" );             return ;         }         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         //写入标题         for  ( int  i = 0; i < myDGV.ColumnCount; i++)         {             worksheet.Cells[1, i + 1] = myDGV.Columns[i].HeaderText;         }         //写入数值         for  ( int  r = 0; r < myDGV.Rows.Count; r++)         {             for  ( int  i = 0; i < myDGV.ColumnCount; i++)             {                 worksheet.Cells[r + 2, i + 1] = myDGV.Rows[r].Cells[i].Value;             }             System.Windows.Forms.Application.DoEvents();         }         worksheet.Columns.EntireColumn.AutoFit(); //列宽自适应         if  (saveFileName !=  "" )         {             try             {                 workbook.Saved =  true ;                 workbook.SaveCopyAs(saveFileName);             }             catch  (Exception ex)             {                 MessageBox.Show( "导出文件时出错,文件可能正被打开！\n"  + ex.Message);             }         }         xlApp.Quit();         GC.Collect(); //强行销毁         MessageBox.Show( "文件： "  + fileName +  ".xls 保存成功" ,  "信息提示" , MessageBoxButtons.OK, MessageBoxIcon.Information);     }

　点击按钮调用

1 2 3 4 5

private  void  button1_Click( object  sender, EventArgs e) {      string  a =  "D:"  +  "\\KKHMD.xls" ;      ExportExcels(a, dataGridView1); }

　　完成截图

以下VB代码实现从datagridview导出数据到EXCEL，并以时间作为excel的文件名

Try

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Dim xlApp, xlBook, xlSheet As Object      xlApp = CreateObject( "Excel.Application" )      xlBook = xlApp.Workbooks.Add      xlSheet = xlBook.Worksheets()      '使工作表不可见      xlApp.Visible = False        '导出DataGridView中的标题       Dim Cols As Integer      For Cols = 1 To testHistoryDgv.Columns.Count          xlApp.Cells( 1 , Cols) = testHistoryDgv.Columns(Cols - 1 ).HeaderText      Next        '逐行导出DataGridView中的数据       Dim i As Integer        For i = 0 To testHistoryDgv.RowCount - 1          Dim j As Integer          For j = 0 To testHistoryDgv.ColumnCount - 1              '判断DataGridview中的数据是否导出完毕               If Me.testHistoryDgv(j, i).Value Is System.DBNull.Value Then                  xlApp.Cells(i = 2 , j = 1 ) = ""              Else                  xlApp.Cells(i + 2 , j + 1 ) = testHistoryDgv(j, i).Value.ToString              End If          Next      Next      '定义文件名-取系统时间作为excel文件名      Dim fileName As String = Format(Now, "yyyyMMdd" ) + Format(Now, "HH:mm:ss" ).Replace( ":" , "" )      ’excelPath是文件路径，通过配置文件配置      Dim flg As Boolean = xlBook.SaveAs(excelPath & fileName & ".xlsx" )      If flg = True Then          MessageBox.Show( "操作成功" , "XXXX" , MessageBoxButtons.OK, MessageBoxIcon.Asterisk)      End If      '关闭Excel线程      xlApp.Quit()      xlApp = Nothing      xlBook = Nothing      xlSheet = Nothing Catch ex As Exception      '异常捕捉      LogUtil.err(ex.ToString)      MessageBox.Show( "系统异常" , "Message" , MessageBoxButtons.OK, MessageBoxIcon.Error) End Try