vb.net中怎么把datagrdview中的数据导出成excel文档 ACCESS数据库求源代码！

vb.net中怎么把datagrdview中的数据导出成excel文档 用的是ACCESS数据库
一下是我写的代码，发生了一些问题，请大神们看看，帮忙修改一下。
这是导出按钮的单击事件
''要先添加引用才能使用下列语句Microsoft.Office.Interop.Excel.Application()

'Dim myExcel As New Microsoft.Office.Interop.Access()
'myExcel.Application.Workbooks.Add(True)
'myExcel.Visible = True
''去除datagridview1的编号列
'Dim m As Integer
'For m = 0 To GridView1.ColumnCount - 1
' myExcel.Cells(1, m + 1) = Me.GridView1.Columns(m).HeaderText
'Next m

    ''往excel表里添加数据   
    'Dim i As Integer
    'For i = 0 To GridView1.RowCount - 1
    '    Dim j As Integer
    '    For j = 0 To GridView1.ColumnCount - 1
    '        If Me.GridView1(j, i).Value Is System.DBNull.Value Then
    '            myExcel.Cells(i + 2, j + 1) = ""
    '        Else
    '            myExcel.Cells(i + 2, j + 1) = GridView1(j, i).Value.ToString
    '        End If

    '    Next (j)
    'Next (i)

你的代码是利用office导出到excel，并没有导出access，需要计算机上安装了office才行。你遇到了一些什么问题。

应该不要那么麻烦。建一个二维数组，通过for next 语句把表格的数据导入数组。然后打开工作簿，打开工作表，指定range(" ").value=数组，就可以了。然后保存工作表，关闭工作簿。dispose就完了。