Kodların açıklamaları aşağıdaki şekildedir.

ExcelNesne.Application.Visible = True

Excel Kitabı Görünür

ExcelNesne.Application.Cells(1, 1).Font.Size = 20

1.Satır Yazı Fontu Boyutu 20

ExcelNesne.Application.Cells(1, 1).Font.Bold = True

1.Satır Yazı Türü Kalın

ExcelNesne.Application.Cells(1, 1).Font.Color = vbBlue

1.Satır Yazı Rengi Mavi

ExcelNesne.Application.Cells(1, 1).Value = "ÖDEME RAPORU"

1.Satıra Yazılacak Değer ÖDEME RAPORU

ExcelNesne.Application.Cells(2, 1).Font.Color = vbRed

2.Satır 1.Sütün Yazı Rengi Kırmızı

ExcelNesne.Application.Cells(2, 1).ColumnWidth = 20

2.Satır 1.Sütün Genişliği 20

ExcelNesne.Application.Cells(2, 1).Value = "Adı Soyadı"

2.Satır 1.Sütüna Yazılacak Değer Adı Soyadı

ExcelNesne.Application.Cells(2, 2).Font.Color = vbRed

2.Satır 2.Sütün Yazı Rengi Kırmızı

ExcelNesne.Application.Cells(2, 2).ColumnWidth = 12.5

2.Satır 2.Sütün Genişliği 12,5

ExcelNesne.Application.Cells(2, 2).Value = "Tc Kimlik No"

2.Satır 1.Sütüna Yazılacak Değer Tc Kimlik No

ExcelNesne.Application.Cells(I, 1).Value = Adodc1.Recordset.Fields("Adi_Soyadi")

DaraGrit 1.Sütünü Excel 1.(A) Sütünuna Yaz

ExcelNesne.Application.Cells(I, 2).Value = Adodc1.Recordset.Fields("Tc_Kimlik_No")

DaraGrit 2.Sütünü Excel 2.(B) Sütünuna Yaz