Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/09/2010 11:35
Konu Sahibi
x0914667
Yorumlar
5
Okunma
2921
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
x0914667

x0914667

Aktif Üye
10395
 46
 16
 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.

ogulcan92

ogulcan92

Aktif Üye
6336
 54
 154
 1.159
 06/05/2009
480
 İ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



x0914667

x0914667

Aktif Üye
10395
 46
 16
 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.

Olcay

Olcay

Üye
15071
 28
 0
 19
 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.

chopper07

chopper07

Uzman
3
Er....
 42
 228
 1.806
 29/01/2008
376
 Aydın
 Otel Müdürü
 Ofis 2016 64 Bit
 15/05/2019,22:48
Çözüldü 
Sn. Olcay detaylı anlatım için teşekkürler.


™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®


ogulcan92

ogulcan92

Aktif Üye
6336
 54
 154
 1.159
 06/05/2009
480
 İ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.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Visual Basic 6'da Konumlandırma.. Uğur ŞİRİN 2 605 23/09/2017, 12:51
Son Yorum: M Asım
Çözüldü Visual Basic 6.0 canmeet 3 1.337 28/07/2016, 15:17
Son Yorum: emir ustaoğlu
Çözüldü Access Tabloları arasında Bilgi Alışverişi (Dlook UP Fonksiyonu Visual Basicte Kullanılmıyormu ?) umutakkaya 14 5.758 03/05/2014, 13:37
Son Yorum: alpeki99
Çözüldü Visual Basic 6.0 Grid Nesnesi Kullanımı ceforce 5 2.979 24/11/2013, 09:19
Son Yorum: alpeki99
Çözüldü access makro ayarınız visual basic ile düşürmek kesoka 7 3.895 02/10/2013, 14:01
Son Yorum: kesoka

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.