VBA/Excel/Access/Word/Application/AddIns

Материал из VB Эксперт
Версия от 15:46, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Ensuring that an accessible add-in is properly installed and workable

   <source lang="vb">

Private Sub Workbook_Open()

  AddIns.Add FileName:=ThisWorkbook.FullName
  AddInTitle = "title"
  Application.EnableEvents = False
  AddIns(AddInTitle).Installed = True
  Application.EnableEvents = True

End Sub

</source>
   
  


Filling in for Excel"s missing add-in properties

   <source lang="vb">

Function InAddInCollection(wb) As Boolean

   For Each item In AddIns
       If item.Name = wb.Name Then
           InAddInCollection = True
       End If
   Next item

End Function

</source>