请大神帮忙看看，百度无果。。。

'　Excel 表格的单元格在 VB 中的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm$, i%, j%
Wjm = App.Path & "Excel_表格文件名.XLS"
Set Oexcel = CreateObject("Excel.application")
Set Oworkbooks = Oexcel.workbooks
Set Newbook = Oworkbooks.open(Wjm)
Set Newsheet = Newbook.worksheets(1) '　第1张表
'　……
'　单元格描述；i 表示行号，j 表示列号
Newsheet.cells(i, j) = …… '　向单元格里面写入
变量名 = Newsheet.cells(i, j) '　读出单元格的数据
'　……
Newbook.Close '　关闭表
Oexcel.quit '　退出 Excel 文件打开状态

要把出错代码晒下

工程未添加引用excel对象

谢谢Luosen56老师

跪谢Luosen56老师，困扰我1年的问题，网上不停的搜索，升级excel，重装VB6，绝望中，出现一盏明灯。只改3个定义语句。以前死去的以Excel表为基础编写的程序全死灰复燃了。

确实，把那三个定议语句删除就OK了，感谢！
我把
Public xlApp As Excel.Application
Public xlbook As Excel.Workbook
Public xlsheet As Excel.Worksheet
改为
Public xlApp , xlbook , xlsheet
就OK了