Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Visual Basic6 ile datagrid

x0914667
x0914667
Visual Basic 6 Cevaplanmış Soruları
5
4100

Visual Basic6 ile datagrid

Çözüldü #1
x0914667
Aktif Üye
x0914667
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 52
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/09/2012,22:47
Yorumları: 42
Konuları: 16
Kayıt Tarihi: 14/10/2009
Teşekkür Puanı: 0
VB6 ile datagrid'deki bilgileri Excel'e nasıl
aktarabilirim.
x0914667, 14-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
ogulcan92
Aktif Üye
ogulcan92
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 60
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/08/2015,11:50
Yorumları: 1.159
Konuları: 154
Kayıt Tarihi: 06/05/2009
Teşekkür Puanı: 480
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
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
x0914667
Aktif Üye
x0914667
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 52
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/09/2012,22:47
Yorumları: 42
Konuları: 16
Kayıt Tarihi: 14/10/2009
Teşekkür Puanı: 0
(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.
x0914667, 14-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Olcay
Üye
Olcay
Bul
Üye
Adı Soyadı:
Yaşı: 34
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 29/04/2020,08:43
Yorumları: 20
Konuları: 1
Kayıt Tarihi: 07/02/2010
Teşekkür Puanı: 0
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
Cevapla
Çözüldü #5
chopper07
Uzman
chopper07
www Bul
Uzman
Adı Soyadı: Er....
Yaşı: 49
Konum: Aydın
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/12/2024,14:40
Yorumları: 1.825
Konuları: 229
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 376
Mesleğiniz: Otel Müdürü
Sn. Olcay detaylı anlatım için teşekkürler.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
Çözüldü #6
ogulcan92
Aktif Üye
ogulcan92
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 60
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 07/08/2015,11:50
Yorumları: 1.159
Konuları: 154
Kayıt Tarihi: 06/05/2009
Teşekkür Puanı: 480
Sn:x0914667
Teşekkür ederiz konu cevaplanmış konular bölümüne taşınmıştır.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task