+ Yorum Gönder
Gizliyara Güncel Konu Arşivi ve Bilgi Hazinesi Forumunda Visual Basic 6 dan Excele bağlantı yapıp anket hazırlama Konusunu Okuyorsunuz..
  1. Ziyaretçi

    Visual Basic 6 dan Excele bağlantı yapıp anket hazırlama








    Sitede basitçe bir örnek var ama benim istediğim caption kullanarak giriş yapmak. Aslında sitede varolan "Visual Basic'den Excel'e Bağlantı Yapmak" başlıklı konuda güzel anlatım var ancak onda da yanlış bir şeyler var.







  2. Ziyaretçi





    Bu soruya Lütfen Biri Cevap Versin




  3. Asel
    Bayan Üye
    Mesport arkadaşımıza haber verdim online olduğunda konuya bakar, aramızda bu konularda anlayan bir o var..



    bunuda tekrar ekliyeyim


    Visual Basic'den Excel'e Bağlantı - 1

    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 100 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("Excelapplication")
    kitapWorkbooksAdd
    kitapSheets("Sayfa1")Range("A1")Select
    ActiveCellFormulaR1C1 = "Excel ile Bağlantı Kuruldu"
    ActiveWorkbookSaveAs ("C:\VB-XLSxls")
    ExcelApplicationQuit
    -------------------------------------------------------------------------------

    Ş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("ExcelApplication")

    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

    kitapWorkbooksAdd

    Uygulamaya yeni bir çalışma kitabı ekliyoruz

    kitapSheets("Sayfa1")Range("A1")Select

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

    ActiveCellFormulaR1C1 = "Excel ile Bağlantı Kuruldu"

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

    ActiveWorkbookSaveAs ("C:\VB-XLSxls")

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

    ExcelApplicationQuit

    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




+ Yorum Gönder