How to move data from DataGrid to Execl

datagrid| Data 1 introduces Microsoft Excel 10.0 Object Library
(Project-> Add Reference->com)
2 Dim excelapp as New Excel. Application
Dim Excelbook as Excel. Workbook
Dim ExcelSheet as Excel. Worksheet
3 Set Excelbook = excelapp. Workbooks.Open (App.Path & "project schedule. xls")
Excelapp. Sheets ("Sheet1"). Select
Set ExcelSheet = excelapp. Sheets ("Sheet1")
4 ExcelSheet. Cells (2, 1) = ....
5 Excelbook. Save
Excelapp. Visible = True
6 ExcelSheet. Columns (i). ColumnWidth = 5.38
ExcelSheet. Rows (i). RowHeight = 51
7 Set excelapp = Nothing
Set Excelbook = Nothing
Set ExcelSheet = Nothing