Visual Basic6 ile datagrid
Tarih
13/09/2010 11:35
Konu Sahibi
x0914667
Yorumlar
5
Okunma
2316
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



x0914667
Aktif Üye
Kullanici Avatari
Aktif Üye
42
14/10/2009
0
Belirtilmemiş
Ofis 2003
07/09/2012,22:47
Çözüldü 
VB6 ile datagrid'deki bilgileri Excel'e nasıl
aktarabilirim.
x0914667, 14-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:x0914667
Aşağıdaki kodları deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

Cevapla


x0914667
Aktif Üye
Kullanici Avatari
Aktif Üye
42
14/10/2009
0
Belirtilmemiş
Ofis 2003
07/09/2012,22:47
Çözüldü 
(13/09/2010, 11:53)ogulcan92 Adlı Kullanıcıdan Alıntı: Sn:x0914667
Aşağıdaki kodları deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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


Olcay
Üye
Kullanici Avatari
Üye
19
0
07/02/2010
0
Belirtilmemiş
Ofis 2003
08/05/2016,17:00
Çözüldü 
Kodların açıklamaları aşağıdaki şekildedir.

Visual Basic Code
ExcelNesne.Application.Visible = True

Excel Kitabı Görünür

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

1.Satır Yazı Fontu Boyutu 20

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

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

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

1.Satır Yazı Rengi Mavi

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

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

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

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

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

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

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

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

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

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

Visual Basic Code
ExcelNesne.Application.Cells(2, 2).ColumnWidth = 12.5

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

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

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

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

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

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

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

Olcay, 07-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
08/12/2016,16:32
Çözüldü 
Sn. Olcay detaylı anlatım için teşekkürler.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:x0914667
Teşekkür ederiz konu cevaplanmış konular bölümüne taşınmıştır.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Visual Basic 6.0 canmeet 3 490 28/07/2016, 15:17 emir ustaoğlu
Çözüldü Access Tabloları arasında Bilgi Alışverişi (Dlook UP Fonksiyonu Visual Basicte Kullanılmıyormu ?) umutakkaya 14 4.222 03/05/2014, 13:37 alpeki99
Çözüldü Visual Basic 6.0 Grid Nesnesi Kullanımı ceforce 5 1.945 24/11/2013, 09:19 alpeki99
Çözüldü access makro ayarınız visual basic ile düşürmek kesoka 7 3.007 02/10/2013, 14:01 kesoka
Çözüldü Visual Basic 6 İle Kurulum Dosyası Hazırlama seyitt 5 3.558 02/07/2013, 13:31 fatih1677


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya