AccessTr.neT
Visual Basic6 ile datagrid - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Visual Basic6 ile datagrid (/konu-visual-basic6-ile-datagrid.html)



Visual Basic6 ile datagrid - x0914667 - 13/09/2010

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


Cvp: Visual Basic6 ile datagrid - ogulcan92 - 13/09/2010

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



Cvp: Visual Basic6 ile datagrid - x0914667 - 14/09/2010

(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.


Cvp: Visual Basic6 ile datagrid - Olcay - 14/09/2010

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


Cvp: Visual Basic6 ile datagrid - chopper07 - 15/09/2010

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


Cvp: Visual Basic6 ile datagrid - ogulcan92 - 19/09/2010

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