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 » Pratik yoldan excel & Vb veri al??veri?i.
Ü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

Visual Basic de veritabanı oluşturmak

Yazar: gokseltur
Uzunca Bir Yazı dizisi olacak galiba:))


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 № : 10704
Yayın Tar:03.10.2008
Yazar : velikaya
Hit :2903

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

Dim XL As Object
Dim WB As Workbook
Set XL = CreateObject("Excel.Application")
Set WB = XL.Workbooks.Open(okunacak yaz?lacak excel dosyas? adresi)
Dim SATIR As Integer
XL.Visible = True
SATIR = 1

'yazmak içIn
XL.Range("A" & SATIR).Select
XL.ActiveCell.Value = "Bilgi 1"
XL.Range("B" & SATIR).Select
XL.ActiveCell.Value = "Bilgi 2"
XL.Range("C" & SATIR).Select
XL.ActiveCell.Value = "Bilgi 3"

'vs. ile hücreleri doldurabilirsin yine ayn? mant?kla de?i?kene de?er atayabilir, içindeki bilgiyi
'okuyabilir, gride, comboya, listbox a yazabilirsiniz.

'okumak içIn
XL.Range("C" & SATIR).Select
neiçneye = XL.ActiveCell.Value

'San?r?m bu bilgiler yeterli olacakt?r.
'Tabi birde project references tan excel library yüklemeyi unutmamal?s?n?z.
Sayg?lar,




Yorumlar, eklemeler ve düşünceler
        Dim WB as Workbook satırında hata verir tabii Referenceres bölümünden Microsoft Excel Object Library X işaretlemezseniz.

Dim WB as Object komutu referans almadan çalışabilir.

Ayrıca önce select çağrısı yapmak işi bayağı yavaşlatır. Aynı yavaşlık XL nesnesinin visible özelliğini TRUE yaptığınızda da yaşanır. Bu yüzden işiniz bittikten sonra visible özleliğini TRUE yapmakta fayda var. Ayrıca iş bittikten sonra nesneler nothing işlevi ile bellkekten boşaltılmalı. ;) Oluşturma sırasının tersinden başlanmalı.

Set WB = Nothing
Set XL = Nothing

Ve diğer bir konu.
WB nesnesinden okuyacağınız ya da değerleri için aktif sayfa kullanılır. Ancak başka bir sayfa kullanılacaksa,

Dim WS as Object
Set WS = WB.WorkSheets("Sayfa2")

kullanılmalı.

WS ile hücre yazma ve okuma işlemleri aşağıdaki gibidir

WS.Cell(1, "A").Value = "Deneme" ' bu yazma için

Deger = WS.Cell(1,"A") ' bu da okuma için

ve son olarak WS nesnesini de nothing işlevi ile yoketmelisiniz.

   remu, 06.10.2008 17:16
   Yararlı bir çalışma teşekkür ederim

   tibetturkoglu, 02.11.2008 11:38
   Arkadaşlara yaptıkları çalışmadan ötürü teşekkür ederim.
bu kodlardan ben faydalandım.
Ancak Hücreye yazma ve hücreden bilgi alma kısmını çalıştıramadım.
Uygulamaya çalıştığım kodlar aşadaki gibidir.
Sayfa2 yi seçme işlemine kadar çalışıyor.Ancak sonrası çalışmıyor.
Yardımcı olabilirseniz sevinirim.
Private Sub Command3_Click()
On Error Resume Next
Dim xl As Object
Dim WB As Workbook
Set xl = CreateObject("Excel.Application")
Set WB = xl.Workbooks.Open("C:\Users\okan\Desktop\deneme\deneme01.xls")
xl.Visible = True
Dim WS As Object
Set WS = xl.Worksheets("Sayfa2").Select
WS.Cells(1, 1).Value = "ahmet"
Set WS = Nothing: End
Set WB = Nothing: End
Set xl = Nothing: End
End Sub

   onatm97, 26.09.2009 16:19
© 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