具体解决方法如下:
1、对象未定义时将产生此类错误:
一种典型的情况就是在定义对象时未正确创建对象本身而导致在编译时产生“用户定义类型未定义”的错误提示。
对此提供以下通用定义外部对象的方法:
Sub 定义并引用外部对象() 'Word后期绑定示例
Dim wdapp As Object
Dim wd As Object
Dim tb As Object
Set wdapp = CreateObject("word.application") '打开一个word运用环境
wdapp.Visible = True '允许word文件可见
Set wd = wdapp.Documents.Add '新建一个word文档
Set tb = wd.Tables.Add(wd.Range(0, 0), 3, 6)
'在文档开始处加入一个3行6列的表格!!
End Sub
2、未引用相关库文件导致产生此类错误:尤其是在代码中引用了相关控件的方法,但是之前并未引用对应的库函数将导致这类错误。对此我们需要首先加入对控制的支持库,然后方可在编辑中引用对应控件。
引用对应支持库的方法:在VBA环境下,点击“工具"->”引用 “项。
3、然后在打开的”引用“窗口中,勾选相应的项,点击”确定“即可完成支持库的导入操作。
4、另外针对变量,Excel VBA采取了两种对待方式,一种是弱定义,即允许变量在未定义的情况下直接使用。另一种则是强定义,即变量必须得先声明后使用。如果想要在两种定义之间切换,可以使用关键字“Option Explicit”进入强定义声明。这样就不会产生“变量未定义”的错误提示啦。
选择VBE的“工具”-"引用"-"Microsoft ActiveX Data Object 6.1 确定后在运行代码即可。
你改用set conn=createobject("adodb.connection")不过不能在通用那里使用
最好是引用 Microsoft ActiveX Data Object 2.6
点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6
"
再用 Dim Conn As New ADODB.Connection
先引用 Microsoft ActiveX Data Object 2.1
再用 Dim Conn As New ADODB.Connection