已添加的类，在编译时错误提示类没有定义，这是什么原因

已添加的类，在编译时错误提示类没有定义，这是什么原因

具体需要看代码
比较常见的几个原因
1 类定义在其它文件了，编译的时候没编进来
2 类定义有错 导致系统没识别到
3 在定义之前调用了该类。

1：读取。 1、在vb中，建立一个form，在其上放置两个命令按钮，将command1的caption属性改为excel，command2的caption属性改为end。然后在其中输入如下程序： dim xlapp as excel.application '定义excel类 dim xlbook as excel.workbook '定义工件簿类 dim xlsheet as excel.worksheet '定义工作表类 private sub command1_click() '打开excel过程 if dir("d:\temp\excel.bz") = "" then '判断excel是否打开 set xlapp = createobject("excel.application") '创建excel应用类 xlapp.visible = true '设置excel可见 set xlbook = xlapp.workbooks.open("d:\temp\bb.xls") '打开excel工作簿 set xlsheet = xlbook.worksheets(1) '打开excel工作表 xlsheet.activate '激活工作表 xlsheet.cells(1, 1) = "abc" '给单元格1行驶列赋值 xlbook.runautomacros (xlautoopen) 运行excel中的启动宏 else msgbox ("excel已打开") end if end sub private sub command2_click() if dir("d:\temp\excel.bz") <> "" then '由vb关闭excel xlbook.runautomacros (xlautoclose) '执行excel关闭宏 xlbook.close (true) '关闭excel工作簿 xlapp.quit '关闭excel end if set xlapp = nothing '释放excel对象 end end sub 2、在d盘根目录上建立一个名为temp的子目录，在temp目录下建立一个名为"bb.xls"的excel文件。 3、在"bb.xls"中打开visual basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘： sub auto_open() open "d:\temp\excel.bz" for output as #1 '写标志文件 close #1 end sub sub auto_close() kill "d:\temp\excel.bz" '删除标志文件 end sub 4、运行vb程序，点击excel按钮可以打开excel系统，打开excel系统后，vb程序和excel分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在vb程序中重复点击excel按钮时会提示excel已打开。如果在excel中关闭excel后再点excel按钮，则会重新打开excel。而无论excel打开与否，通过vb程序均可关闭excel。 2：写入。 excel导入sql: '引用ado(microsoft activex data objects 2.x library) private sub command2_click() dim cn as new adodb.connection cn.connectionstring = "provider=sqloledb.1;persist security info=false;user id=sa;password=123;initial catalog=database001;data source=myservice" cn.cursorlocation = aduseclient cn.open cn.execute "select * into table4 from openrowset('microsoft.jet.oledb.4.0','excel 8.0;hdr=yes;database=d:\temp\bb.xls;','select * from [sheet1$]')" cn.close set cn=nothing end sub