修复缺less的参考？

我有一个Excel应用程序，当用户单击一个button下面的代码行将复制整个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 。

我如何解决这个问题，我能做些什么来确保新用户有必要的参考？

编辑：更多信息。 这个问题仅限于使用Windows XP机器的用户。 我的开发机器正在运行Windows7，并且也使用Windows7的less数最终用户也没有问题。

Answer 1

为了延迟绑定，而不是将对象声明为特定types（如ADODB.Connection），则将它们声明为Object并使用

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

而不是

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

实例化它们。 你还必须从引用的库中声明你使用的任何常量（或者用一个字面值来replace它们），例如你可能会添加

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

因为如果没有提及ADO的话那些VBA就没有价值了。