Imports Microsoft.Office.Interop

　　然後導入命名空間：

　　Imports Microsoft.Office.Interop

　　Imports System.Data.SqlClient

　　最後建立一個ImportToExcel的函數，函數代碼如下：

　　'''

　　''' 將Datagridview中的數據導出至Excel中

　　'''

　　''' Datagridview類型

　　''' 布爾值類型，導出是否成功

　　'''

　　Public Function ImportToExcel(ByVal DGV As DataGridView) As Boolean

　　'不允許導出空數據

　　If DGV.RowCount = 0 Then

　　MsgBox("記錄爲空，請重新查詢!", vbOKOnly + vbInformation, "系統提示")

　　Else

　　'創建Excel

　　Dim bln As Boolean

　　Dim xlApp, xlBook, xlSheet As Object

　　xlApp = CreateObject("Excel.Application")

　　xlBook = xlApp.Workbooks.Add

　　xlSheet = xlBook.Worksheets(1)

　　'打開Sheet1

　　Dim rowindex, colindex As Integer

　　rowindex = 1 '行

　　colindex = 0 '列

　　xlSheet = xlApp.Worksheets("sheet1") '打開Sheet1那一頁

　　'將Datagridview的數據添加到DataTable中

　　Dim table As New DataTable

　　table = DGV.DataSource 'Datagridview數據源

　　Dim row As DataRow '定義Row爲表格的行

　　Dim col As DataColumn '定義col爲表格的列