Lấy tên và đường dẫn của các add in trong máy

[thuyyeu99]

Nhờ các anh chị hướng dẫn em cách lấy tên và đường dẫn của các add in có trong máy.
Cám ơn các anh chị nhiều

 

[ndu96081631]

Nhờ các anh chị hướng dẫn em cách lấy tên và đường dẫn của các add in có trong máy.
Cám ơn các anh chị nhiều

Thử code này xem

Sub Test()
  Dim AI As AddIn
  For Each AI In Application.AddIns
    MsgBox AI.FullName
  Next
End Sub

 

[thuyyeu99]

Thử code này xem

Sub Test()
  Dim AI As AddIn
  For Each AI In Application.AddIns
    MsgBox AI.FullName
  Next
End Sub

Dạ đúng ý em rồi ạh. cám ơn anh

 

[nguyendangkhoi]

Thử code này xem

Sub Test()
  Dim AI As AddIn
  For Each AI In Application.AddIns
    MsgBox AI.FullName
  Next
End Sub

cái này là lấy taòn bộ add in vậy mình có cách nào lấy những add in dang sử dụng không.

 

[ndu96081631]

cái này là lấy taòn bộ add in vậy mình có cách nào lấy những add in dang sử dụng không.

Thì vầy:

Sub Test()
  Dim AI As AddIn
  For Each AI In Application.AddIns
    If AI.Installed Then MsgBox AI.FullName
  Next
End Sub