Sn:x0914667
Aşağıdaki kodları deneyiniz.

Private Sub CmdExcel_Click()

Dim I As Integer

 Dim ExcelNesne As Object

  Set ExcelNesne = CreateObject("Excel.SHEET")

   ExcelNesne.Application.Visible = True

'_________________________________________________________

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

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

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

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

'__________________________________________________________

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

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

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

'__________________________________________________________

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

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

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



I = 2

Adodc1.Recordset.MoveFirst

  Do While Not Adodc1.Recordset.EOF = True

  I = I + 1



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

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



Adodc1.Recordset.MoveNext

Loop

End Sub