| |
|
|
| | Вот так программно подключается DAO
А как программно подключить другие Reference
Например вот имеется AddIn.Scaner45
Вручную понятно как ,а как программно подскажите.....
Public Function CheckReferenceDAO() As Boolean
On Error GoTo CheckReferenceDAO_err
Dim ref As Reference, i As Integer
Const strExcelGUID = "{00025E01-0000-0000-C000-000000000046}"
'Const strExcelReferenceName = "*DAO*"
For Each ref In References
If ref.BuiltIn Then GoTo refNext
If ref.IsBroken Then
References.Remove ref
GoTo refNext
End If
' If ref.Name Like strExcelReferenceName Then
If InStr(1, ref.Name, "DAO", vbTextCompare) > 0 Then
CheckReferenceDAO = True
GoTo CheckReferenceDAO_exit
End If
refNext:
Next ref
On Error Resume Next
For i = 5 To 2 Step -1
References.AddFromGuid strExcelGUID, 1, i
If Err = 0 Then
CheckReferenceDAO = True
GoTo CheckReferenceDAO_exit
End If
Err.Clear
Next i
CheckReferenceDAO_exit:
Set ref = Nothing
Exit Function
CheckReferenceDAO_err:
Resume CheckReferenceDAO_exit
End Function
|
| |
| |
| |
| |
|
|
| | Для подключения библиотек существуют 2 метода:
AddFromFile - требуется только путь к библиотеке, выполняет регистрацию, если это не было сделано ранее. Для подключения MDB/MDA/MDE - только он.;
AddFromGuid - в основном - для классических библиотек (DAO, ADO, Excel, Word, Office ...). Guid, сарший и младший номер версии (или варианты) надо знать заранее. Узнать это можно, подключив ее ручками, и просмотрев св-ва объекта Reference.
PS. Пример, похоже, мой...  Только почему strExcelGUID, если это DAO? Это я провтыкал?  | |
| |
| |
| |
|
|
| | Спасибо !!! Понятно. 
Нет это не Вы повтыкали - это я отрезал неудачно  - там был набор подключения нескольких библиотек.... я константу одинаковую написал...
Вписал в новую функцию новую строку - спасибо присоединяется ссылка. | |
| |
| |
