.NET(VB,C#)导出DATAGRIDVIEW到EXCEL中

    引用EXCEL库就不说了,直接贴上代码

c#:

1.         #region 导出DataGridView中数据为EXCEL文件
2.         public Boolean OutExcel(DataGridView grView, string sPath, string exName)
3.         {
4.             //函数说明:导出DataGridView中数据为EXCEL文件
5.             //输入参数:grView-一个DtaGridView对象；sPath-需要存放的路径;exName-导出的EXCEL文件中的表名
6.             //返回：True-成功；False-失败
7.             // 创建Excel对象                    
8.             Excel.Application xlExcel = new Excel.ApplicationClass();
9.             if (xlExcel == null)
10.             {
11.                 MessageBox.Show("Excel无法启动");
12.                 return false;
13.             }
14.             // 创建Excel工作薄
15.             Excel.Workbook xlBook = xlExcel.Workbooks.Add(true);
16.             Excel.Worksheet xlSheet = (Excel.Worksheet)xlBook.Worksheets[1];
18.             Excel.Range range = xlSheet.get_Range(xlExcel.Cells[1, 1], xlExcel.Cells[1, grView.ColumnCount]);
19.             // 设置标题
20.             if (exName != "")
21.             {
22.                 range.MergeCells = true;//合并单元格
23.                 xlExcel.ActiveCell.FormulaR1C1 = exName;
24.                 xlExcel.ActiveCell.Font.Size = 20;
25.                 xlExcel.ActiveCell.Font.Bold = true;
26.                 xlExcel.ActiveCell.HorizontalAlignment = Excel.Constants.xlCenter;
27.             }
29.             // 列索引，行索引，总列数，总行数
30.             int colIndex = 0;
31.             int RowIndex = 0;
32.             int colCount = grView.ColumnCount;
33.             int RowCount = grView.Rows.Count;
35.             // 创建缓存数据
36.             object[,] objData = new object[RowCount + 1, colCount - 1];
38.             // 获取列标题
39.             for (int i = 1; i < colCount; i++)
40.             {
41.                 objData[0, i - 1] = grView.Columns[i].HeaderCell.Value;
42.             }
43.             // 获取数据
44.             for (RowIndex = 1; RowIndex <= RowCount; RowIndex++)
45.             {
46.                 for (colIndex = 0; colIndex < colCount - 1; colIndex++)
47.                 {
48.                     objData[RowIndex, colIndex] = grView.Rows[RowIndex - 1].Cells[colIndex + 1].Value.ToString();
49.                 }
50.                 Application.DoEvents();
51.             }
52.             // 写入Excel
53.             xlExcel.get_Range(xlExcel.Cells[2, 1], xlExcel.Cells[2, colIndex]).Font.Bold = true;
54.             range = xlSheet.get_Range(xlExcel.Cells[2, 1], xlExcel.Cells[RowCount + 2, colCount - 1]);
55.             range.Value2 = objData;
57.             // 保存
58.             try
59.             {
60.                 xlExcel.Cells.EntireColumn.AutoFit();
61.                 xlExcel.Cells.VerticalAlignment = Excel.Constants.xlCenter;
62.                 xlExcel.Cells.HorizontalAlignment = Excel.Constants.xlCenter;
63.                 //xlExcel.Visible   =   true;   
64.                 xlBook.Saved = true;
65.                 xlBook.SaveCopyAs(sPath);
66.                 return true;
67.             }
68.             catch
69.             {
70.                 MessageBox.Show("导出EXCEL文件失败！");
71.                 return false;
72.             }
73.             finally
74.             {
75.                 xlExcel.Quit();
76.                 GC.Collect();
77.                 KillProcess("excel");
78.             }
79.         }
80.         #endregion
82.         #region 杀死进程
83.         public void KillProcess(string processName)
84.         {
85.             System.Diagnostics.Process myproc = new System.Diagnostics.Process();
86.             //得到所有打开的进程 
87.             try
88.             {
89.                 foreach (Process thisproc in Process.GetProcessesByName(processName))
90.                 {
91.                     thisproc.Kill();
92.                 }
93.             }
94.             catch (Exception Exc)
95.             {
96.                 throw new Exception("", Exc);
97.             }
98.         }
99.   #endregion 

VB.NET:

1. Private Sub CmdExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExcel.Click
2.         '函数说明：导出网格中数据为EXCEL文件
3.         Dim VBExcel As Microsoft.Office.Interop.Excel.Application
4.         Dim ExBook As Microsoft.Office.Interop.Excel.Workbook
5.         Dim ExSheet As Microsoft.Office.Interop.Excel.Worksheet
6.         Dim ExeclArray As Object
7.         Dim sPath As String
8.         Dim I As Object
9.         Dim J As Short
12.         Me.Cursor = Cursors.WaitCursor
13.         SvFlg.Filter = "Excel文件(*.xls)|*.xls"
14.         SvFlg.ShowDialog()
15.         sPath = SvFlg.FileName
17.         If sPath = "" Then
18.             Me.Cursor = Cursors.AppStarting
19.             Exit Sub
20.         End If
23.         VBExcel = CreateObject("Excel.Application")
24.         ExBook = VBExcel.Workbooks.Add
25.         ExSheet = ExBook.Worksheets(1)
27.         Try
28.             ReDim ExeclArray(Msfg.Rows, Msfg.Cols)
30.             VBExcel.ScreenUpdating = False
32.             For I = 0 To Msfg.Rows - 1
33.                 For J = 0 To Msfg.Cols - 1
34.                     ExeclArray(I + 1, J + 1) = Msfg.get_TextMatrix(I, J)
35.                 Next
36.             Next
38.             ExSheet.Columns._Default("B:B").ColumnWidth = 17
40.             '从第一行第一列开始
41.             With ExSheet
42.                 .Range(.Cells._Default(1, 1), .Cells._Default(Msfg.Rows, Msfg.Cols + 1)).Value = ExeclArray
43.             End With
45.             ExSheet.SaveAs(sPath)
47.             VBExcel.Quit()
48.             VBExcel = Nothing
49.             ExBook = Nothing
50.             ExSheet = Nothing
51.             Me.Cursor = Cursors.AppStarting
52.             MessageBox.Show("导出报表成功!", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
53.         Catch ex As Exception
54.             VBExcel.Quit()
55.             VBExcel = Nothing
56.             ExBook = Nothing
57.             ExSheet = Nothing
58.             Me.Cursor = Cursors.AppStarting
59.             MessageBox.Show("导出报表失败!", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
60.         End Try
62.     End Sub