Imports Excel
 
Public Class frmDGV
 
    Dim datagridview1 As New DataGridView With {.Parent = Me, _
    .Top = 0, .Left = 2, .Width = Me.Width - 20, .Height = Me.Height - 80}
 
    Dim WithEvents button2 As New System.Windows.Forms.Button _
    With {.Parent = Me, .Top = Me.height - 70, .Left = 2, .Text = "Export"}
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles button2.Click
 
        Me.Enabled = False
        Dim xlapp As Excel.Application
        Dim xlworkbook As Excel.Workbook
        Dim xlworksheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
 
        xlapp = New Excel.Application
        xlworkbook = xlapp.Workbooks.Add(misValue)
        xlworksheet = CType(xlworkbook.Sheets("Tabelle1"), Excel.Worksheet)
 
        For i = 0 To datagridview1.RowCount - 2
            For j = 0 To datagridview1.ColumnCount - 1
                xlworksheet.Cells(i + 1, j + 1) = _
                datagridview1.Rows(i).Cells(j).Value.ToString()
            Next j
        Next i
 
        xlworksheet.SaveAs(Pfad angeben & "vbexcel1.xls")
 
        releaseObject(xlworksheet)
 
        xlworkbook.Close()
        releaseObject(xlworkbook)
 
        xlapp.Quit()
        releaseObject(xlapp)
 
        Me.Enabled = True
        MsgBox("Daten sind exportiert worden")
    End Sub
 
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
 
    Private Sub frmDGV_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        DataGridView1.Columns.Add("Testspalte", "TestSpalte")
 
    End Sub
End Class