Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: osmor
если использовать позднее связывание, то референсы будут не нужны

т.е использовать
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


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.