A dosyasından B dosyasındaki makroyu çalıştırma

[Orion1]

Mrb.
A dosyasından makro ile ,B dosyasındaki b isimli makroyu çalıştırabilirmiyim.
Teşekkür ederim.
İyi çalışmalar.

 

[ALPEN]

[vb:1:cc5c5fb49b] Sub test()
Dim XL as Object
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open "C:\My Documents\dosyam.xls" 'kitabin yolunu ve adini buraya
XL.Run "TestMakro" 'makronuzun adini buraya
End Sub[/vb:1:cc5c5fb49b]

 

[Orion1]

[vb:1:ee8676bb76] Sub test()
Dim XL as Object
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open "C:\My Documents\dosyam.xls" 'kitabin yolunu ve adini buraya
XL.Run "TestMakro" 'makronuzun adini buraya
End Sub[/vb:1:ee8676bb76]

mrb.
Teşekkür ederim.
iyi çalışmalar.
:hey:

 

[Orion1]

Sub test()
      Dim XL As Object
      Set XL = CreateObject("Excel.Application")
      XL.Workbooks.Open "C:\My Documents\dosyam.xls" 'kitabin yolunu ve adini buraya
      XL.Run "TestMakro"  'makronuzun adini buraya
   End Sub

---------------------------------------------------------------------
Mrb.
Çok affedersiniz.Yukarıdaki Kodları çalıştırdığım zaman gördüm ki açık olan bir dosyadan kapalı olan bir dosya'daki makro çalıştırılıyor.
Benim sormak istediğim ise :iki adet açık olan dosyadan aktif olan dosyadaki makro ile diğer dosyadaki makroyu çalıştırmak idi.
Hata bende.Kusura bakmayın.Cevaplarınızı bekliyorum.
Teşekkür ederim.
İyi çalışmalar.

 

[Haluk]

Ben anladığım kadarıyla bir cevap yazayım.

1) A.xls kitabı ve B.xls kitabı, her ikisi de açık durumda.

2) B.xls kitabında aşağıdaki makro var.

[vb:1:dd2cc67912]Sub WB_B_Macro()
MsgBox "Merhaba..."
End Sub
[/vb:1:dd2cc67912]

3) A.xls kitabında, aşağıdaki WB_A_Macro isimli makroyu çalıştırarak, B.xls kitabındaki WB_B_Macro isimli makroyu çalıştırabiliriz.

[vb:1:dd2cc67912]Sub WB_A_Macro()
Application.Run ("B.xls!WB_B_Macro")
End Sub
[/vb:1:dd2cc67912]

 

[Orion1]

Sn.Raider.
İstediğim bu idi.
Teşekkür ederim.
İyi çalışmalar.
:hey: