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 makaleleri » Otomasyon
Ü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

güvenlik duvarı

Yazar: eberli18
v basic ile yaptığınız uygulamaların güvenlik duvarına takılmasını istemiyorsanız işte yolu...


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 № : 9395
Yayın Tar:04.10.2007
Yazar : irfanncantr
Hit :4233

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

Otomasyon; bir Nesne Bileşen Modeli (COM) özelliği olarak, uygulamaların kendi nesnelerini geliştirme araçlarına, makro dillerine ve otomasyonu destekleyen diğer uygulamalara yansıtmak için kullandığı bir teknolojidir. Örneğin, bir elektronik tablolama uygulaması bir çalışma sayfasını, grafiği, hücreyi veya hücre aralığını farklı bir nesne türü olarak gösterebilir. Bir sözcük işlemci; uygulama, belge, paragraf, tümce, yer imi ya da seçim gibi nesneleri yansıtabilir. Aşağıdaki örneklerde, görevlerin Microsoft Excel ve diğer Microsoft uygulamaları arasında nasıl otomatikleştirildiği gösterilmektedir.


MICROSOFT ACCESS

Bu örnek, Microsoft Access örnek veritabanları konumunu verir.

Sub MS_Access()
Dim AccDir As String
Dim acc As Object
'Access OLE otomasyonu
Set acc = CreateObject("access.application")
'msaccess.exe dosya döndürme yolu
AccDir = acc.SysCmd(Action:=acSysCmdAccessDir)
'dosya yolu görüntülenir
MsgBox "MSAccess.exe konumu: " & AccDir
'değişken saklama alanı boşaltma
Set acc = Nothing
End Sub


MICROSOFT WORD

Bu örnek, grafiği Grafik Etiketleri sayfasından, yeni bir Microsoft Word belgesine kopyalar.

Sub MS_Word()
Dim wd As Object
'Microsoft Word oturumu oluştur
Set wd = CreateObject("word.application")
'Grafik, Grafik Etiketleri sayfasına kopyalanıyor
Worksheets("Grafik Etiketlendirme").ChartObjects(1).Chart.ChartArea.Copy
'Belge görünür yapılıyor
wd.Visible = True
'MS Word etkinleştiriliyor
AppActivate wd.Name
With wd
'Microsoft Word içinde yeni bir belge oluşturuluyor
.Documents.Add
'Bir paragraf ekleniyor
.Selection.TypeParagraph
'Grafik yapıştırılıyor
.Selection.PasteSpecial link:=True, DisplayAsIcon:=False, Placement:=wdInLine
End With
Set wd = Nothing
End Sub


MICROSOFT POWERPOINT

Bu örnek, grafiği Grafik Etiketleri sayfasından yeni bir Microsoft PowerPoint sunusuna kopyalar.

Sub MS_PowerPoint()
Dim ppt As Object, pres As Object
'Microsoft PowerPoint oturumu oluştur
Set ppt = CreateObject("powerpoint.application")
'Grafik, Grafik Etiketleri Örnek sayfasına kopyalanıyor
Worksheets("Grafik Etiketlendirme").ChartObjects(1).Copy
'Microsoft PowerPoint içinde yeni bir belge oluşturuluyor
Set pres = ppt.Presentations.Add
'Bir slayt ekleniyor
pres.Slides.Add 1, ppLayoutBlank
'PowerPoint görünür yapılıyor
ppt.Visible = True
'PowerPoint etkinleştiriliyor
AppActivate ppt.Name
'Grafik yapıştırılıyor
ppt.ActiveWindow.View.Paste
Set ppt = Nothing
End Sub

MICROSOFT OUTLOOK

Bu örnek, yeni bir Outlook görevi yaratır ve ona bilgiler ekler. Outlook'u çalıştırın ve yeni görevi görmek için Outlook çubuğu üstündeki Görevler'i tıklatın.
NOT: Görevin görünmesi, birkaç dakika sürebilir.

Sub MS_Outlook()
'Bu örnek için Araçlar menüsünden Başvurular'ı tıklatın ve
'Microsoft Outlook 9.0 nesne kitaplıklarını seçin.
Dim ol As Object, myItem As Object
'Microsoft Outlook oturumu oluşturuluyor
Set ol = CreateObject("outlook.application")
'Görev oluşturuluyor
Set myItem = ol.CreateItem(olTaskItem)
'Yeni göreve bilgi ekleniyor
With myItem
.Subject = "Yeni VBA görevi"
.Body = "Bu görev Microsoft Excel Otomasyonu kullanılarak oluşturulmuştur"
.NoAging = True
.Close (olSave)
End With
'Nesne bellekten kaldırılıyor
Set ol = Nothing
End Sub




Yorumlar, eklemeler ve düşünceler
        elllerine sağlık kardeş ben çok beğendim. tşk ederim

   yusahaz, 07.10.2007 13:39
   Teşekkur ederim çok aramıştım bu bilgiyi

   a6tekin, 04.11.2007 23:10
   biraz daha ayrintili olabilirdi.yinede bilgiler icin tesekkurler..

   Drawlord, 07.11.2007 23:09
   ellerine saglık guzel calısma...

   somuthayalet, 29.11.2007 20:01
© 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