在VB中,代码中有Dim conn As adodb.connection,运行时显示"用户定义类型未定义",请问我应该怎么做? Dim cn As New ADODB.Connection...
\u5728VB\u4e2d\uff0c\u4ee3\u7801\u4e2d\u6709Dim conn As adodb.connection\uff0c\u8fd0\u884c\u65f6\u663e\u793a"\u7528\u6237\u5b9a\u4e49\u7c7b\u578b\u672a\u5b9a\u4e49"\uff0c\u8bf7\u95ee\u6211\u5e94\u8be5\u600e\u4e48\u505a?\u5177\u4f53\u89e3\u51b3\u65b9\u6cd5\u5982\u4e0b\uff1a
1\u3001\u5bf9\u8c61\u672a\u5b9a\u4e49\u65f6\u5c06\u4ea7\u751f\u6b64\u7c7b\u9519\u8bef\uff1a
\u4e00\u79cd\u5178\u578b\u7684\u60c5\u51b5\u5c31\u662f\u5728\u5b9a\u4e49\u5bf9\u8c61\u65f6\u672a\u6b63\u786e\u521b\u5efa\u5bf9\u8c61\u672c\u8eab\u800c\u5bfc\u81f4\u5728\u7f16\u8bd1\u65f6\u4ea7\u751f\u201c\u7528\u6237\u5b9a\u4e49\u7c7b\u578b\u672a\u5b9a\u4e49\u201d\u7684\u9519\u8bef\u63d0\u793a\u3002
\u5bf9\u6b64\u63d0\u4f9b\u4ee5\u4e0b\u901a\u7528\u5b9a\u4e49\u5916\u90e8\u5bf9\u8c61\u7684\u65b9\u6cd5\uff1a
Sub \u5b9a\u4e49\u5e76\u5f15\u7528\u5916\u90e8\u5bf9\u8c61() 'Word\u540e\u671f\u7ed1\u5b9a\u793a\u4f8b
Dim wdapp As Object
Dim wd As Object
Dim tb As Object
Set wdapp = CreateObject("word.application") '\u6253\u5f00\u4e00\u4e2aword\u8fd0\u7528\u73af\u5883
wdapp.Visible = True '\u5141\u8bb8word\u6587\u4ef6\u53ef\u89c1
Set wd = wdapp.Documents.Add '\u65b0\u5efa\u4e00\u4e2aword\u6587\u6863
Set tb = wd.Tables.Add(wd.Range(0, 0), 3, 6)
'\u5728\u6587\u6863\u5f00\u59cb\u5904\u52a0\u5165\u4e00\u4e2a3\u884c6\u5217\u7684\u8868\u683c\uff01\uff01
End Sub
2\u3001\u672a\u5f15\u7528\u76f8\u5173\u5e93\u6587\u4ef6\u5bfc\u81f4\u4ea7\u751f\u6b64\u7c7b\u9519\u8bef\uff1a\u5c24\u5176\u662f\u5728\u4ee3\u7801\u4e2d\u5f15\u7528\u4e86\u76f8\u5173\u63a7\u4ef6\u7684\u65b9\u6cd5\uff0c\u4f46\u662f\u4e4b\u524d\u5e76\u672a\u5f15\u7528\u5bf9\u5e94\u7684\u5e93\u51fd\u6570\u5c06\u5bfc\u81f4\u8fd9\u7c7b\u9519\u8bef\u3002\u5bf9\u6b64\u6211\u4eec\u9700\u8981\u9996\u5148\u52a0\u5165\u5bf9\u63a7\u5236\u7684\u652f\u6301\u5e93\uff0c\u7136\u540e\u65b9\u53ef\u5728\u7f16\u8f91\u4e2d\u5f15\u7528\u5bf9\u5e94\u63a7\u4ef6\u3002
\u5f15\u7528\u5bf9\u5e94\u652f\u6301\u5e93\u7684\u65b9\u6cd5\uff1a\u5728VBA\u73af\u5883\u4e0b\uff0c\u70b9\u51fb\u201c\u5de5\u5177"->\u201d\u5f15\u7528 \u201c\u9879\u3002
3\u3001\u7136\u540e\u5728\u6253\u5f00\u7684\u201d\u5f15\u7528\u201c\u7a97\u53e3\u4e2d\uff0c\u52fe\u9009\u76f8\u5e94\u7684\u9879\uff0c\u70b9\u51fb\u201d\u786e\u5b9a\u201c\u5373\u53ef\u5b8c\u6210\u652f\u6301\u5e93\u7684\u5bfc\u5165\u64cd\u4f5c\u3002
4\u3001\u53e6\u5916\u9488\u5bf9\u53d8\u91cf\uff0cExcel VBA\u91c7\u53d6\u4e86\u4e24\u79cd\u5bf9\u5f85\u65b9\u5f0f\uff0c\u4e00\u79cd\u662f\u5f31\u5b9a\u4e49\uff0c\u5373\u5141\u8bb8\u53d8\u91cf\u5728\u672a\u5b9a\u4e49\u7684\u60c5\u51b5\u4e0b\u76f4\u63a5\u4f7f\u7528\u3002\u53e6\u4e00\u79cd\u5219\u662f\u5f3a\u5b9a\u4e49\uff0c\u5373\u53d8\u91cf\u5fc5\u987b\u5f97\u5148\u58f0\u660e\u540e\u4f7f\u7528\u3002\u5982\u679c\u60f3\u8981\u5728\u4e24\u79cd\u5b9a\u4e49\u4e4b\u95f4\u5207\u6362\uff0c\u53ef\u4ee5\u4f7f\u7528\u5173\u952e\u5b57\u201cOption Explicit\u201d\u8fdb\u5165\u5f3a\u5b9a\u4e49\u58f0\u660e\u3002\u8fd9\u6837\u5c31\u4e0d\u4f1a\u4ea7\u751f\u201c\u53d8\u91cf\u672a\u5b9a\u4e49\u201d\u7684\u9519\u8bef\u63d0\u793a\u5566\u3002
1\u3001\u9700\u8981\u5b9a\u4e49\u7684\u7c7b\u578b\u4e0d\u5b58\u5728\uff0c\u5982\uff1adim a as xx\uff0c\u800cxx\u662f\u6ca1\u5b9a\u4e49\u7684\uff08\u53ef\u80fdxx\u5199\u9519\u4e86\uff09,\u9700\u8981\u5148\u5b9a\u4e49xx\u7c7b\u578b\u3002
2\u3001\u5de5\u5177\uff1avb6
3\u3001\u7528\u6237\u5b9a\u4e49\u7c7b\u578b\u672a\u5b9a\u4e49\u9519\u8bef\u5206\u4e09\u7c7b\uff1a
a)\u5199\u9519\u4e86\u9ed8\u8ba4\u53d8\u91cf\u7c7b\u578b\u540d\uff0c\u5982\uff1adim a as intege\uff0c\u6539\u6210dim a as integer\u5373\u53ef\u3002
b)\u5199\u9519\u4e86\u81ea\u5b9a\u4e49\u53d8\u91cf\u7c7b\u578b\u540d\uff0c\u5982\u81ea\u5b9a\u4e49\u53d8\u91cfa1\uff0c\u5199\u6210\u4e86al\uff0c\u6539\u6b63\u6210a1\u5373\u53ef\u3002
具体解决方法如下:
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”进入强定义声明。这样就不会产生“变量未定义”的错误提示啦。
扩展阅读:一键生成代码免费 ... vb中dim as ... 免费代码生成器 ... vb中dim用法 ... 任天堂ban号是永久的吗 ... access vba代码大全 ... vb dim ... vb中static ... dev c++ ...