Data Griddeki Verileri Excele aktarmada yardımcı olabilecek varmı ?

excel = CreateObject("excel.application")
kitap = excel.Workbooks.Add
sayfa = excel.Worksheets.Add(1)

For yaz = 1 To DataGridView1.RowCount
sayfa.celss(yaz, 1) = DataGridView1.Rows(yaz - 1).Cells(0).Value
sayfa.celss(yaz, 2) = DataGridView1.Rows(yaz - 1).Cells(1).Value
sayfa.celss(yaz, 3) = DataGridView1.Rows(yaz - 1).Cells(2).Value
sayfa.celss(yaz, 4) = DataGridView1.Rows(yaz - 1).Cells(3).Value
sayfa.celss(yaz, 5) = DataGridView1.Rows(yaz - 1).Cells(4).Value
sayfa.celss(yaz, 6) = DataGridView1.Rows(yaz - 1).Cells(5).Value
sayfa.celss(yaz, 7) = DataGridView1.Rows(yaz - 1).Cells(6).Value
sayfa.celss(yaz, 8) = DataGridView1.Rows(yaz - 1).Cells(7).Value
sayfa.celss(yaz, 9) = DataGridView1.Rows(yaz - 1).Cells(8).Value
sayfa.celss(yaz, 10) = DataGridView1.Rows(yaz - 1).Cells(9).Value
sayfa.celss(yaz, 11) = DataGridView1.Rows(yaz - 1).Cells(10).Value
sayfa.celss(yaz, 12) = DataGridView1.Rows(yaz - 1).Cells(11).Value
sayfa.celss(yaz, 13) = DataGridView1.Rows(yaz - 1).Cells(12).Value
sayfa.celss(yaz, 14) = DataGridView1.Rows(yaz - 1).Cells(13).Value
sayfa.celss(yaz, 15) = DataGridView1.Rows(yaz - 1).Cells(14).Value
sayfa.celss(yaz, 16) = DataGridView1.Rows(yaz - 1).Cells(15).Value
sayfa.celss(yaz, 17) = DataGridView1.Rows(yaz - 1).Cells(16).Value
sayfa.celss(yaz, 18) = DataGridView1.Rows(yaz - 1).Cells(17).Value
Next


kitap.SaveAs("D:\dyedek")



End Sub
Bu hatayi alıyorum HRESULT ozel durum dondurdu: 0x800A03EC
sayfa = excel.Worksheets.Add(1) su satırda hata oldugunu soluyor ama bi hata yok gibi duruyor
__________________