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 ipuçları » Programınızdan excel'e emirler verin
Ü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

DialogBoxes

Yazar: Webmaster
Dialog hazırlarken nelere dikkat etmeniz gerekir?


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 № : 1238
Yayın Tar:03.11.2004
Yazar : erkin
Hit :4622

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

Excel'le iletişim

Yazdığınız programın excel le iletişim kurmasını istiyorsanız işte size minik bir yardım.

Önce VB yi açıyoruz ve Project-References dan Microsoft Excel 9.0 Object Library i ekliyoruz .Bu yoksa bilgisayarınızda Office 2000 değil Office in başka bir versiyonu kuruludur ona göre ekliyeceğimiz referans değişebilir. Form'un üzerine bir textbox,bir commandbutton koyuyoruz.Sonra kod kısmına aşağıdakileri yapıştırıyoruz.

Private Sub Command1_Click()
Dim Ex As Excel.Application
Set Ex = New Excel.Application

With Ex
.Visible = True 'Görünmesini istemiyorsak False
.Workbooks.Add 'Yeni bir çalışma sayfası oluşturmak için kullanırız.
'.Workbooks.Open ("c:excelim.xls") Bunu da eğer hazır bir excel sayfamız var da onun üzerinde çalışmak istiyorsak Workbooks.Add yerine kullanabiliriz.
.Range("a1").Value = "Meraba"
.Range("a2").Value = Text1.Text
.Sheets.PrintOut 'Yazdır
'.Sheets.PrintPreview Yazıcı önizlemesi için kullanılabilir.
.ActiveWorkbook.Close False 'False değeri yaptıklarımızın kaydedilmemesi için
.Quit
End With

Set Ex = Nothing
End Sub


Bu yukardaki örnek açtığımız excel dosyasınız a1 sütununa meraba ve a2 sütununa da Text1 de yazanı yazar sonra yazıcıya gönderir.Şimdi daha başka ayarlarına gelelim.

'O an seçili hücrenin kenarlık rengini ayarlar
.ActiveCell.Borders.Color = vbBlack

'Hücrenin taban rengini ayarlar
.Range("a1").Interior.Color = vbRed

'a1 hücresinin font rengini ayarlar
.Range("a1").Font.Color = vbRed

'Hücrenin yazı tipini kalın yapar.
.Range("a1").Font.Bold = True

'a1 le a2 nin ortalamasını a3 yazar.
.Range("a3").Formula = "=(a1+a2)/2"

'a1 hücresini seçer
.Range("a1").Select

'Seçili olan hücrenin tüm ayarlanmış formatlarını siler
.Selection.ClearFormats

'Hücreye yorum ekler
.Range("a1").AddComment "yorum"

Bunlar olayı kavramak için yeterli sayılabilir. Object browser dan excel in olay ve özelliklerine ulaşıp istediğiniz gibi kullanabilirsiniz.Ve özellikle de yazıcıdan tablo şeklinde bir çıktı almak istiyorsanız excel çok işinizi yarayacaktır.
Kolay Gelsin...

erkinclup@hotmail.com
Erkin Ekici




Yorumlar, eklemeler ve düşünceler
        Tebrik ederim. Güzel Yalın bir anlatım

   hakdogan75, 03.11.2004 10:48
   her ne kadar daha fazlasına (kenarlık,genişletme,daraltma vs.) ıhtıyacım olsada yınede saol

   yasyas, 28.11.2005 17:17
   çok güzel

   mtiren, 08.08.2008 07:48
© 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