|
|
|
 |
|
|
 |
 |
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.
| |
|
|
 |
|
|
|
