Dim objExcel As Object = CreateObject("Excel.Application") 'Das ist Dein 
' Excel-Objekt
 
Dim objWorkbook As Object = objExcel.Workbooks.Open(sAppPath) 'Das ist Dein 
' Workbook-Objekt - Deine Arbeitsmappe
 
Dim objSheet As Object = objWorkbook.Sheets("Tabelle1") 'Das ist dein 
' Tabellenblatt-Objekt
 
Dim Zeilen As Integer 'Das ist die Variable für die Anzahl von Zeilen im 
' DataGridView!
 
Dim Spalten As Integer 'Das ist die Variable für die Anzahl von Spalten im 
' DataGridView!
 
'Den UsedRange kannst Du im Excel-Sheet noch gar nicht abfragen, weil noch 
' keine Daten enthalten sind.
'Die willst Du ja erst noch einfügen!
 
Dim i As Integer 'Dies ist eine einfache Zählvariable
Dim j As Integer 'Dies ist eine einfache Zählvariable
 
Zeilen=DataGridView.Rows.Count
Spalten=DataGridView.Columns.Count
 
For i=0 To Zeilen -1
For j=0 To Spalten -1
 
objSheet.Cells(i+1, j+1).Value=DataGridView.Rows(i).Cells(j).Value
 
Next j
Next i
 
objSheet.Activate
 
MessageBox.Show("Fertig!")

EALA FREYA FRESENA