Imports System.Data
Imports System.Data.SqlClient
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim xlapp As Excel.Application
        Dim xlworkbook As Excel.Workbook
        Dim xlworksheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim DataGridView1 As New DataGridView
        Dim i As Integer
        Dim j As Integer
 
        xlapp = New Excel.ApplicationClass
        xlworkbook = xlapp.Workbooks.Add(misValue)
        xlworksheet = xlworkbook.Sheets("Tabelle1")
 
        For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
                xlworksheet.Cells(i + 1, j + 1) = DataGridView1(j, _
                  i).Value.ToString()
            Next
        Next
 
        xlworksheet.SaveAs("C:\Users\Dennis\Desktop\vbexcel.xlsx")
        xlworkbook.Close()
        xlapp.Quit()
 
        releaseObject(xlapp)
        releaseObject(xlworkbook)
        releaseObject(xlworksheet)
 
        MsgBox("In folgendes Verzeichnis exportiert: Desktop")
    End Sub
 
    Private Sub releaseObject(ByVal obj As Object) _
      'http://vb.net-informations.com/excel-2007/vb.net_export_from_datagridvie
    ' w_to_excel.htm
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class