Outlook Macrosu ile Excel Dosyası Açtırmak

[Cazador]

Merhaba arkadaşlar, outlook üzerinde yazmış olduğum minik vba kodu var. Buraya pc de herhangi bir yere kayıtlı bir excel dosyasını açan bir kod satırı eklemek istiyorum. Ama birtürlü beceremedim. Aşağıdaki satır excel de çok iyi çalışıyor. Bu komutun outlook daki karşılığı nedir acaba.

Workbooks.Open Filename:="C:\Deneme\abc.xls"

yardımlarınız için şimdiden teşekkürler.

 

[Haluk]

[vb:1:60fa96969e]Sub Test()
Dim XLApp As Object
Dim MyFile As String
MyFile = "C:\Deneme\abc.xls"
If Dir(MyFile) = Empty Then
MsgBox "Dosya bulunamadi....."
Exit Sub
End If
Set XLApp = CreateObject("Excel.Application")
XLApp.Workbooks.Open FileName:=MyFile
XLApp.Visible = True
Set XLApp = Nothing
End Sub
[/vb:1:60fa96969e]

 

[Levent Menteşoğlu]

Sn Raider

Bu sefer süreyi çok uzun tuttunuz,sizi tekrar aramızda görmek çok güzel

Hoşgeldiniz.

 

[Haluk]

Merhaba leventm arkadaşım.

Hoşbulduk, teşekkür ederim. Ben de sizleri gerçekten özledim.

:hey:

 

[danersin]

:hey: :hey: :hey:

Hoşgeldiniz. Ã?zlettiniz kendinizi.

 

[Haluk]

Merhaba Ersin arkadaşım,

Hoşbulduk, teşekkür ederim. Bu sefer biraz hafiften uzunca bir seyehat oldu ama sonunda tekrar görüşebildik.... :keyif:

 

[Cazador]

Sayın Raider, bende biraz geç yanıt verebildim. Ã?zürlerimi lütfen kabul edin.
Yardımlarınız için çok teşekkür ederim.

 

[Cazador]

Sayın Raider, kodlarınız kusursuz biçimde çalışıyor. Yalnız, olmasını beklediğim olmuyor. Söz konusu excel çalışmasında, bir auto_open macrosu var, normal şartlarda, bu excel çalışmasını açtığım anda bu macro çok iyi çalışıyor. Ama sizin vermiş olduğunuz kodların yardımı ile açtığımızda, ne yazıkki macrolar çalışmıyor. Dosyam sıradan bir bir excel çalışması gibi açılıyor. Konu hakkında görüşlerinizi alabilirmiyim. Tekrar teşekkürler.

 

[Haluk]

Merhaba;

O zaman, aşağıdaki şekliyle deneyin....

[vb:1:911f751eb6]Sub Test()
Dim XLApp As Object
Dim MyFile As String
MyFile = "C:\Deneme\abc.xls"
If Dir(MyFile) = Empty Then
MsgBox "Dosya bulunamadi....."
Exit Sub
End If
Set XLApp = CreateObject("Excel.Application")
XLApp.Workbooks.Open FileName:=MyFile
XLApp.Visible = True
XLApp.Run "Autpen"
Set XLApp = Nothing
End Sub
[/vb:1:911f751eb6]

Başka bir alternatif ise şöyle olur;

Yukarıda ilk önerdiğim kodu, değiştirmeden aynen kullanıp, sözkonusu C:\Deneme\abc.xls dosyanızdaki Autpen makrosunu silip, buradaki kodları aynen ThisWorkBook modulü içerisinde Private Sub Workbook_Open() yordamı içine yazmanız olacaktır.

Çünkü, VBA kodlarıyla açılan bir Excel dosyasındaki Autpen kodları devreye girmez ama, Workbook_Open yordamındaki kodlar, otomatik olarak devreye girip, çalışacaktır.

 

[Cazador]

Sonuç Mükemmel, Tekrar Teşekkürler Sayın Raider... Her iki yolda kusursuz çalışıyor :hihoho: