Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » DATAGRIG' DEN VERİ AKTARIMI 2 (EXCEL-WINDOWS)
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

LOG() ve LOG10() Fonksiyonları

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 6064
Yayın Tar:16.02.2006
Yazar : nymph
Hit :2714

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

DataGrid'de Metin Kutu'suna Veri Aktarımı makalesinde DataGrid üzerinde bulunan bilgileri metin kutularına aktarmayı incelemiştik. Verileri metin kutularına aktarabildiğimiz gibi Diğer Office programlarına aktrarımımız mümkün Ör: Excel. Verilerimizi DataGridden Excel'e aktarırken dikkat edeceğimiz nokta Excel'In bilgisayaramıda kurulu olmasıdır. Projemiz içerisine excel nesnesini dahil etmeli ve kendimiz yeni bir excel uygulaması oluşturmalıyız..

Bu işlem basamaklarını sırayla incelersek..

1- Projemize Excel nesnesini Add Reference ile ekliyoruz.

*Ayrıca program yazarken rahat çalışmak içIn projemizin en üst kısmına gerekli import bölümünü ekliyoruz..

Imports Microsoft.Office.Inter

2- Geçen makaledeki Formumuza Excel'e Aktar seçeneğini de ekliyoruz..

Gerekli kodumuz ve açaklamaları..

Private Sub btnExcelAktar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcelAktar.Click

'Yenibir tablo tanımlıyoruz.

'Bu yeni tablonun kaynağını DataGridimiz olugunun belirtiyoruz

Dim tablo As New DataTable

tablo = DataGrid1.DataSource


'Yeni bir Excel sınıfı oluştuyoruz

'Ve bu sınıfa ÇAlışma kitabımızı ekliyoruz

Dim ex As New Excel.ApplicationClass

ex.Application.Workbooks.Add(True)


'Sutun sayısı ile satır ve sutünlarımızı tanımlıyoruz

Dim sutun As Integer

Dim sut As DataColumn

Dim sat As DataRow

'Bu kısımda DataTable alan adlarımızı 1. satırlarına aktarıyoruz.

For Each sut In tablo.Columns

sutun += 1

ex.Cells(1, sutun) = sut.ColumnName

Next

' Satır sayısı tanımlaması

Dim satir As Integer

'iç içe döngü kurarak satır ve sütunları excel' hücrelerine aktarıyoruz

'ÖR: Önce 1.satır 1.sütun,2.sütun.......

For Each sat In tablo.Rows

satir += 1

sutun = 0

For Each sut In tablo.Columns

sutun += 1

'Belirtilen satır ve sütundaki verinin Excel'e aktarımı

ex.Cells(satir + 1, sutun) = sat(sut.ColumnName).ToString

Next

Next

' Oluşturduğumuz nesneyi görülebilir kılıyoruz

ex.Visible = True

'yeni bir sayfa tanımlıyoruz ve bunu nesnemizin

'aktif sayfası olarak belirtiyoruz

Dim ws As New Excel.Worksheet

ws = ex.ActiveSheet

'Sayfamızı aktive edelim

ws.Activate()

End Sub

3- Verilerimizin Excel'e aktarılmış hali..


4- Kısaca yapığımız işlemleri özetlersek..

-Excel nesnesini projemize ekledi. Gerekli import deyimini projenin başına yerleştirdik.

- DataTable tanımladık ve kanağını DataGridimiz olarak belirttik.

- Excel nesnemizi oluşturduk.

- For-Each sözcükleri ile dataTable nesnemizdeki verileri excelimizin satır ve sütunlarına aktardık..

- Excelimizi görünür kılıp gerekli sayfa tanımlamarını yaptık ve sayfamızı aktive ettik..




Yorumlar, eklemeler ve düşünceler
        arkadaşım anlatmışsın da konu isimlerine biraz özen gösterirsen iyi olur datagrig demişsin aktırımı demişsin böyle olunca da arama yaptığımızda 3 makaleni bir arada bulabilmek imkansız oluyor.

   naturus, 28.03.2007 12:02
   güzel bir örnek teşekkürler.

   gonzalez, 15.08.2007 15:47
   güzel bir çalışma işe yarayacaktır...

   badboy52, 20.11.2007 17:35
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin