vba中如何添加引用？

比如：Microsoft ActiveX Data Object 2.8 Library是引用：

C:\Program Files\Common Files\System\ado\msado15.dll

Microsoft ADO Ext. 2.8 for DLL and Security是引用：

C:\Program Files\Common Files\System\ado\msadox.dll

注意上面两个文件在电脑是否存在，或者路径名稍有不同。

还有，两个DLL有没有注册，如果工程已经引用了会出错，可以在前面加on error resume.

在vba的编程中，引用是通过“工具”-〉“引用”来添加的，但若OFFICE版本不同，VBAProject的版本也不相同，代码在引用VBAProject时，会造成引用错误。 比如同是ADODB控件，就有Microsoft ActiveX Data Objects 2.1 Library 到Microsoft ActiveX Data Objects 2.8 Library 多个版本。 这样造成的后果是，在OFFICE2003上编写的代码，在OFFICE2000上可能就不能运行。 接下来的几篇文章中，对这个问题有所涉及，以供参考。

举例：Excel2007

打开vba编辑器

依次单击Office按钮，然后选择“Excel选项”：

单击“常用”，然后勾选“在功能区显示‘开发工具’选项卡”，然后单击“确定”：

依次单击“开发工具，Visual Basic”后，即可打开VBA编辑器：

使用Vba编辑器

右击需要插入代码的表，如，本文要达成的目标是单击一个按钮，然后实现对B列3-11单元格的成绩进行等级评定。假设要实现目标的数据位置在Sheet1上，则右击Sheet1，依次单击“插入，模块”，即可打开代码输入框：

在打开的代码编辑框里面粘贴如下方的代码，然后直接单击VBA编辑器右上角的关闭按钮：

Sub 评定等级()

Dim i As Integer

For i = 3 To 11

t = Sheets(1).Cells(i, 2).Value   '取得成绩

If t >= 90 Then

j = "A"

ElseIf t >= 80 Then

         j = "B"

ElseIf t >= 70 Then

j = "C"

     ElseIf t >= 60 Then

j = "D"

Else

j = "E"

End If

Sheets(1).Cells(i, 3) = j

Next

End Sub

依次单击“开发工具，插入，按钮”：

在合适的位置直接左键拖出一个按钮，在d出的“指定宏”对话框里面选择“评定等级”，然后单击“确定”：

单击刚添加的按钮“按钮1”：

按下按钮之后，即可在C列对应的表格里面显示成绩等级，如下：

---