AccessTr.neT

VB6 ile datagrid'deki bilgileri Excel'e nasıl
aktarabilirim.

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

(13/09/2010, 11:53)ogulcan92 yazdı: [ -> ]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

Hocam kodlar için teşekkürler.Bu kodların mantığını anlatabilirmisiniz.

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

Sn. Olcay detaylı anlatım için teşekkürler.

Sn:x0914667
Teşekkür ederiz konu cevaplanmış konular bölümüne taşınmıştır.