VBA/Excel/Access/Word/Application/AddIns — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
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>