Vista - export grid to excel

Hi i'am trying to export the data of a datagrid into excel using a
commandbuttum.

I can open an empty excelfile , but i cannot put the dato into an excel
worksheet.

i found this on the web, but this opens only excel on worksheet1
How ca i put my data into the worksheet ?

regards, ROb

Try

Dim oApp As New Excel.Application
Dim oBook As Excel.Workbook = oApp.Workbooks.Add
Dim oSheet As Excel.Worksheet = CType(oBook.Worksheets(1),
Excel.Worksheet)---
oApp.Visible = True

Catch ex As Exception

MessageBox.Show("Source [" & ex.Source & "] Description [" & ex.Message &
"]")

End Try

End Sub