Diğer Uygulamalarla Etkileşim

Bu bölümde VBA aracılığıyla Word, PowerPoint, Outlook, Adobe gibi uygulamalarla iletişim kurmayı öğreneceğiz.

Excel’in dahili yöntem ve metotları:

Birçok sekme arasında geçiş yapabilir ve her birini ayrı bir PDF dosyasına aktarabilir veya tüm sekmeleri tek bir PDF dosyası olarak dışa aktarabilirsiniz.

ActiveSheet.ExportAsFixedFormat xlTypePDF, [FileName]

• Varsayılan e-posta istemcisini kullanır (Ör: Outlook)
• Bireysel e-posta adreslerini, e-posta konu bilgilerini ve ek olarak gönderilecek ilgili Excel sayfalarını almak için farklı hücreler arasında döngü yapabilirsiniz.

Application.Dialogs(xlDialogSendMail ).Show [email], [subject]

Diğer uygulamalarla çalışmak için nesnenin bir örneğini oluşturmamız gerekir. Bunun için iki seçenekten birini seçmemiz gerekir:

1. Early Binding
2. Late Binding

Early Binding: Tools -> References’a gidin ve uygulamaya bir onay işareti koyun

Avantajı: İletişim kurulacak uygulamanın Nesne Referans Kitaplığına (Object Reference Library) erişiminiz olur. intellisense var

Dezavantajı: Referans, uygulamanın versiyonuna özeldir

Dim PowerPointApp as PowerPoint.Application
Set PowerPointApp = New PowerPoint.Application

Late Binding: Nesneyi çalışma zamanında oluşturursunuz.

Avantajı: Referans, uygulamanın versiyonundan bağımsızdır.

Dezavantajı: Bu uygulamanın nesne referans kitaplığına erişiminiz olmaz. intellisense yok

Dim PowerPointApp as Object
Set PowerPointApp = CreateObject (“PowerPoint.Application”)

CreateObject: Uygulamanın yeni bir örneğini oluşturur (programın ayrı bir kopyasını başlatır)

Dim PowerPointAppas Object  
Set PowerPointApp= CreateObject(“PowerPoint.Application”)
PowerPointApp.Visible= True
[code]
PowerPointApp.Quit
Set PowerPointApp= Nothing

GetObject: Uygulamanın mevcut bir örneğini kullanır veya uygulamayı yüklenmiş bir dosyayla başlatır (yolu belirtmeniz gerekir)

Set WordApp= GetObject(, "Word.Application")