高手帮帮忙！

用VB程序往EXECL表到数据，我用到的是下面的程序，
Private Sub Command3_Click()If Dir(App.Path & "\Temp\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp\风险分析表.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    xlsheet.Cells(5, 1) = "日期:"  & "   
     xlsheet.Cells(7, 1) = "1、异常情况："
     xlsheet.Cells(9, 1) = "1、主变："  
     xlsheet.Cells(10, 1) = "2、线路停电：" 
     xlsheet.Cells(11, 1) = "3、母线：" 
     xlsheet.Cells(12, 1) = "4、旁路代：" 
        '给单元格1行驶列赋值
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
  Else
    MsgBox ("EXCEL已打开")
  End If
End Sub
现在我用别人给我的设计好的一张表，往里导数据的时候，却导不进去，没有提示错误，我试验用新建的另一张表，可以导进去，是不是他给我的这张表有什么属性被设定了不能往里到数据呢？请帮忙！！