From outlook call macro excel

[khongtu19bk]

Từ outlook ta gọi thủ tục test của macro excel như sau:

Sub trans_outlook()

Dim xlApp As Object, xlWkb As Object
Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False ' can be False if you do not wont see reaction, byt make sure is not fail
    Set xlWkb = xlApp.Workbooks.Open("C:\Users\xyz.xlsm")
    xlApp.Run "xyz.xlsm!Test"
    xlWkb.Close savechanges:=False
    xlApp.Quit
End Sub

ở trên là file .xlsm
Vấn đề là với macro excel file addin (.xlam) thì phải làm như thế nào? ai biết xin mách dùm.

 

[VetMini]

Bạn biết viết tiêu đề tiếng Anh mờ. Cứ gú gô thẳng trên ấy.