Dim fileTest As String = "C:"
        Dim oExcel As Object
        oExcel = CreateObject("Excel.Application")
        oExcel.Workbooks.Open(fileTest)
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim Anzahlzeilen As Integer
        oBook = oExcel.ActiveWorkbook
        oSheet = oExcel.Worksheets(2)
 
        With Form1.DataGridView1
            For Spalte As Integer = 0 To .Columns.Count - 1
                oSheet.Cells(1, Spalte + 1).Value = .Columns(Spalte).HeaderText
                oSheet.Cells(1, Spalte + 1).Font.Bold = True
            Next
 
            Anzahlzeilen = .Rows.Count
            If .AllowUserToAddRows = True Then
                Anzahlzeilen = Anzahlzeilen - 1
            End If
 
            For Zeile As Integer = 0 To Anzahlzeilen - 1
                For Spalte As Integer = 0 To .Columns.Count - 1
                    oSheet.Cells(Zeile + 2, Spalte + 1).Value _
                        = .Rows(Zeile).Cells(Spalte).Value.ToString
                Next
            Next
        End With
 
        oExcel.DisplayAlerts = False
        oBook.SaveAs(fileTest, 1)
        oBook.Close()
        oBook = Nothing
    End Sub