求高手指点，vb调用子程序，打开已有的excel添加数据，出现实时错误‘-2147228010（800401a8）’对象‘cells’的方法’workshee‘

子程序为：
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\逆温层\20000107.xls") '打开已经存在的test.xls工件簿文件
xlapp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlsheet = xlbook.Worksheets(1) '设置活动工作表''
Dim q%
Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\逆温层\20000107.xls ")
With ActiveSheet
  q = .UsedRange.Rows.Count '行数
End With
Close #1
'检测txt文件内有多少条记录
  Open Txtwenj.Text For Input As #1
  m = 0
  While Not EOF(1)
  Input #1, a
  m = m + 1
  Wend
  Close #1

  Open Txtwenj.Text For Input As #1
  For n = 1 To m
  Line Input #1, a
  m1 = n
   
  If m1 = 1 Then
  If Mid(a, 3, 1) = 0 Then
  a1 = Mid(a, 4, 1)
  xlsheet.Cells(q, 1) = a1
  Else
  a1 = Mid(a, 3, 2)
  xlsheet.Cells(q, 1) = a1
  End If

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlApp2 As Excel.Application
Dim xlBook2 As Excel.Workbook
Dim xlSheet2 As Excel.Worksheet
这些你应该在过程内，要么就只在一个过程中打开和关闭

这些你应该在过程内定义，要么就只在一个过程中打开和关闭