怎么利用VB向指定的EXCEL插入数据

'　VB 对 Excel 表格单元格的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm As String, i As Integer, j As Integer
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 文件打开状态