DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
mrb.ALPEN' Alıntı:[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]
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