SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
'программное подключение библиотеки
'Source: http://msoffice.nm.ru/faq/macros/module.htm#faq179
Option Compare Text
Private Sub VBProject_References1()
Dim iPath$, iFileName$, iCount%
iPath$ = Environ("WinDir")
'iFileName$ = iPath$ & "\System32\Scrrun.dll" 'Microsoft Scripting Runtime
'iFileName$ = iPath$ & "\System32\FM20.dll" 'Microsoft Forms 2.0 Object Library
iFileName$ = Application.Path & "\MSWORD.OLB" 'Microsort Word 11.0 Object Library
If Dir(iFileName$) <> "" Then
With ThisWorkbook.VBProject.References
For iCount% = 1 To .Count
If .Item(iCount%).FullPath = iFileName$ Then
MsgBox "Эта библиотека уже подключена", , ""
Exit Sub
End If
Next
.AddFromFile Filename:=iFileName$
End With
Else
MsgBox "Отсутствует нужный файл", , ""
Exit Sub
End If
MsgBox "Библиотека подключена!", 64, ""
End Sub
|
|
