VB.net 將dataGridView中的數據導出到excel

            今天做機房收費系統做到了報表打印部分了。

    在將dataGridView中的數據導出到excel時，到網上找了一些相關的內容，個人感覺不是太好，有的在復雜了。

     下面是簡單的實現dataGridView數據到excel:

     當然首先要添加引用：Microsoft.Office.Interop.Excel

Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() MyExcel.Application.Workbooks.Add() MyExcel.Visible = True '獲取標題 Dim Cols As Integer For Cols = 1 To DataGridView1.Columns.Count MyExcel.Cells(1, Cols) = DataGridView1.Columns(Cols - 1).HeaderText Next '往excel表里添加數據() Dim i As Integer For i = 0 To DataGridView1.RowCount - 1 Dim j As Integer For j = 0 To DataGridView1.ColumnCount - 1 If Me.DataGridView1(j, i).Value Is System.DBNull.Value Then MyExcel.Cells(i + 2, j + 1) = "" Else MyExcel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString End If Next j Next i