Загрузить XLL и зарегистрировать все функции и команды, содержащиеся в этом файле, а также получить список всех зарегистрированных функций — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Для того, чтобы загрузить XLL и автоматически зарегистрировать все функции и команды, содержащиеся в этом ресурсе, можно использовать метод RegisterXLL объекта Application, например:
 
 
Application.RegisterXLL Application.LibraryPath & "\Analysis\ANALYS32.XLL"
 
Application.RegisterXLL FileName:=Application.LibraryPath & "\Analysis\ANALYS32.XLL"
Получить же список всех зарегистрированных функций можно с помощью свойства RegisteredFunctions объекта Application
 
 
Application.RegisterXLL Application.LibraryPath & "\Analysis\ANALYS32.XLL"
  
iArray = Application.RegisteredFunctions
If IsArray(iArray) = True Then
   Range("A1").Resize(UBound(iArray), 3).Value = iArray
   Range("A:C").EntireColumn.AutoFit 'Columns("A:C").AutoFit
Else
   MsgBox "Странно ... но зарегистрированных функций, нет"
End If
 
iFileName$ = Application.LibraryPath & "\Analysis\ANALYS32.XLL"
Application.RegisterXLL FileName:=iFileName$
  
iArray = Application.RegisteredFunctions
If Not IsNull(iArray) Then
   Cells(1, 1).Resize(UBound(iArray), 3).Value = iArray
Else
   MsgBox "Зарегистрированных функций, нет"
End If
 
iFileName$ = Application.LibraryPath & "\Analysis\ANALYS32.XLL"
  
If Application.RegisterXLL(iFileName$) = True Then
   iArray = Application.RegisteredFunctions
   Cells(1).Resize(UBound(iArray), 3) = iArray
Else
   MsgBox "Загрузки XLL и регистрации функций, не произошло"
End If
Если стандартная надстройка "Пакет анализа" или "Analysis ToolPak" подключена(загружена), то, фактически, в повторном использовании Application.RegisterXLL "ANALYS32.XLL" нет особого смысла.

Похожие записи/страницы:

Leave a Comment