Исправить недостающую ссылку?

Question

У меня есть приложение Excel, что, когда пользователь нажимает на кнопку ниже строку коды костров, чтобы скопировать всю Книгу Excel с новым именем в новую папке:

' Save a copy of workbook to Archive folder 
    ActiveWorkbook.SaveCopyAs (CreateObject("WScript.Shell").specialfolders("Desktop") & "\Inspections\Archive\FeedSampleReport-" & Environ$("Username") & "-" & Strings.Format(Now(), "mmddyyyy") & ".xlsm") 

На моей системе все работает отлично, но на их Environ$ флаги с Compile error: Can't find project or library. Когда я проверил ссылки на обе машины, я обнаружил, что у них есть один отмеченный MISSING: Microsoft ActiveX Data Object 6.1 Library.

Как это исправить, и что я могу сделать, чтобы новые пользователи имели необходимые ссылки?

EDIT: дополнительная информация. Проблема связана только с пользователями с машинами Windows XP. Моя машина разработки работает под управлением Windows7, и некоторые конечные пользователи, которые также используют Windows7, также не имеют проблемы.

Answer 1

до конца связывать, вместо того, чтобы объявить объекты как определенного типа (например ADODB.Connection) вы объявите их как объект и использовать

Dim cn as Object 
Set cn = CreateObject("ADODB.Connection") 

вместо

Dim cn as ADODB.Connection 
Set cn = New ADODB.Connection 

инстанцировать их. Вы также должны объявить любые константы, которые вы используете из ссылочного библиотеки (или заменить их буквальное значение), так, например, вы могли бы добавить

Const adOpenStatic As Long = 3 
Const adCmdText As Long = 1 
Const adLockReadOnly As Long = 1 

, потому что без ссылки на ADO установить те не будут иметь значения VBA ,