简单问题....

我有如下代码,问题在于模板A文件(内只有一个表)被拷贝为B后,打开B文件,发现多出
一个表sheet1,致使数据不能正常写入,请求高手指点!(下面所有变量均定义)。这段
代码在XP下不会出问题，但移植到W98下出问题
Set xlApp = New Excel.Application
Set xlApp = GetObject(, "Excel.Application")
If Err.Number = 0 Then
   xlApp.Quit
   Set xlApp = Nothing
 End If
'清除旧文件
sFilter = "*.XLS"
DelFile = Dir(MyAppPath & "\Prt\" & sFilter, vbNormal)
Do While DelFile <> ""
  Kill MyAppPath & "\Prt\" & DelFile
  DelFile = Dir
Loop
'拷贝模板到目录 MyAppPath & "\Prt下
sBakExclFile = MyAppPath & "\Ini\CqR.XLS"
sCurExclFile = MyAppPath & "\Prt\R" & sYmd & ".XLS"
If Dir(sBakExclFile) <> "" Then
  FileCopy sBakExclFile, sCurExclFile
  Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = True 'Excel应用程序窗口
  Set xlBook = xlApp.Workbooks.Open(sCurExclFile) '打开工作薄
  Set xlSheet = xlBook.Worksheets("Cqr")
  xlSheet.Cells(5, 2) = YmdStr
  nCurSta = 1  '跟踪区县顺序
  For II = 8 To 30 Step 2
    xlSheet.Cells(II, 2) = CqSta_Cha(nCurSta)  '区县市
    xlSheet.Cells(II, 3) = CqStaR08_08(nCurSta)
    nCurSta = nCurSta + 1
  Next
  xlBook.Save  '保存资料
  xlBook.PrintPreview
  ''xlBook.Close True
  ''xlApp.Quit
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing
Else
  TxtInf.Text = "模板文件丢失！请与管理者联系。"
End If