| |
|
|
| | --------------------------------------------------------------------------------
как программно запустить (Tools->References) и после выхода (Ok/Cancel) закрыть лишние окна (при их наличии). Спасибо | |
| |
| |
| |
|
|
| | а зачем?
может есть смысл программно проверить коллекцию references на наличие Missing? | |
| |
| |
| |
|
|
| | Для того чтобы оператор мог бы сам подключить Excel библиотеку. Но не вручную (открыть любой модуль--> Tools --> References), а посредством кода . В 97 работает код
docmd.open module
run.command references
( только не удавалось программно закрыть модуль). В 2003 этот код не работает. Кстати как программно проверить коллекцию references на наличие Missing? Спасибо | |
| |
| |
| |
|
|
| | Для того чтобы оператор мог бы сам подключить Excel библиотеку. Но не вручную (открыть любой модуль--> Tools --> References), а посредством кода . В 97 работает код docmd.open module run.command references ( только не удавалось программно закрыть модуль). В 2003 этот код не работает. Кстати как программно проверить коллекцию references на наличие Missing? Спасибо | |
| |
| |
| |
|
|
| | если использовать позднее связывание, то референсы будут не нужны
т.е использовать
Set objExcelApp = CreateObject("Excel.Application")
вvесто new
Проверить можно как-то так
Sub CheckReference()
Dim vbProj As Object
Dim chkRef As Object
Set vbProj = Application.VBE.activeVBProject
For Each chkRef In vbProj.References
Debug.Print chkRef.Name
If chkRef.IsBroken Then
Debug.Print "missing - " & chkRef.Name
End If
Next
End Sub
|
поищите по References.AddFromFile можно программно сразу и добавить
вот статья,
http://support.microsoft.com/kb/308340
правда применительно к excel, но суть та же, только вместо ActiveDocument.VBProject использовать
Application.VBE.activeVBProject | |
| |
| |
| |
|
|
| | Спасибо за полезное Info. | |
| |
| |
