Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Makaleler
Visual Basic'den Excel'e Bağlantı - 1 - Serhat Turna - 22.07.2004
Merhaba Sevgili Excel Kullanıcıları.

Bu yazıda Excel ve Visual Basic ile uğraşan kimselerin çokça üzerinde durduğu bir konu olan "Visual Basic'ten Excel'e veri transferi" konusunu ayrıntılı bir şekilde anlatacağım. Öncelikle bunun çok basit bir işlem olduğunu bilmenizi isterim. Visual Basic'te birkaç satır fazladan yazarak aynen VBA 'da olduğu gibi makroları kullanarak Excel'e veri transferi yapacağız.

Önce Visual Basic'i açalım ve Standart Exe Projesini başlatalım. Şimdi Excel ile oynamak için Project Mönüsünden References komutunu çalıştıralım. Karşımıza gelen pencereden "Microsoft Excel 10.0 Object Library" seçeneğini onaylayalım ve OK düğmesine basalım.

Not:

Siz hangi Excel sürümünü kullanıyorsanız onu seçin. Ben 2002 yani 10 versiyonunu kullandığım için bunu işaretledim.

Her şey tamam. Artık Visual Basic içinden Excel ile istediğimiz gibi oynayabiliriz. Önce basitten bir örnek verelim. Formun kod sayfasını açalım ve "Form_Load" bölümüne aşağıdaki kodları yazalım.

-------------------------------------------------------------------------------
Dim kitap As Object
Set kitap = CreateObject("Excel.application")
kitap.Workbooks.Add
kitap.Sheets("Sayfa1").Range("A1").Select
ActiveCell.FormulaR1C1 = "Excel ile Bağlantı Kuruldu"
ActiveWorkbook.SaveAs ("C:\VB-XLS.xls")
Excel.Application.Quit
-------------------------------------------------------------------------------

Şimdi örnekteki kodların ne işe yaradıklarını kısaca açıklayalım.

Dim kitap As Object

Burada kitap adlı bir nesne tanımladık. Bütün işlemleri bu nesne üzerinden yürüteceğiz.

Set kitap = CreateObject("Excel.Application")

Burada kitap olarak tanımladığımız nesnenin Excel uygulamasına ait olduğunu ve yeni bir Excel uygulaması yarattığımızı görüyoruz.

kitap.Workbooks.Add

Uygulamaya yeni bir çalışma kitabı ekliyoruz.

kitap.Sheets("Sayfa1").Range("A1").Select

Çalışma kitabındaki Sayfa1 isimli sayfanın A1 hücresini seçiyoruz.

ActiveCell.FormulaR1C1 = "Excel ile Bağlantı Kuruldu"

Aktif hücreye "Excel ile Bağlantı Kuruldu" yazdırıyoruz.

ActiveWorkbook.SaveAs ("C:\VB-XLS.xls")

Çalışma kitabını C: sürücüsüne "VB-XLS.xls" adıyla farklı kaydediyoruz.

Excel.Application.Quit

Son olarak Excel uygulamasından çıkıyoruz.

Görüldüğü gibi son derece basit bir olay. Kodları daha da kısa açıklarsak Excel uygulamasını başlat, yeni bir kitap aç, Sayfa1' deki A1 hücresine "Excel ile Bağlantı Kuruldu" , farklı kaydet ve Uygulamadan çık.

Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.