wincc实时报表做出了，求教日报表问题！

Dim objExcelApp, objExcelbook,objExcelSheet

Dim tagshijian,sheetname,username,zhushi
Dim tagday
Dim tag1gongyeshui, tag2shenghuoshui,tag3tuoyanshui, tag4zhengqi,tag5h2so4, tag6hno3,tag7hf,tag8zaishengsuan,tag9naoh
Dim i,j
Dim msg

' 声明
Set tag1gongyeshui=HMIRuntime.Tags("TE_0102")
Set tag2shenghuoshui=HMIRuntime.Tags("TE_0106")
Set tag3tuoyanshui=HMIRuntime.Tags("LT_0101")
Set tag4zhengqi=HMIRuntime.Tags("PT_0102")
Set tag5h2so4=HMIRuntime.Tags("TE_0105")
Set tag6hno3=HMIRuntime.Tags("LT_0103")
Set tag7hf=HMIRuntime.Tags("PT_0302")
Set tag8zaishengsuan=HMIRuntime.Tags("PT_0304")
Set tag9naoh=HMIRuntime.Tags("PT_0306")

msg="ok"
sheetname="sheet1"

'创建对象
 Set objExcelApp=CreateObject("Excel.Application") 
 
 objExcelApp.visible=True
 objExcelApp.workbooks.open"E:\uu\ribaobiao\日报表.xls"
 objExcelApp.worksheets(sheetname).activate
 '清除模版数据
 With objExcelApp.worksheets(sheetname)
 For i=4 To 27
  For j=1 To 10
  .cells(i,j)=Null
  Next
 Next
End With
'实时数据写入
 tagshijian=Now
objExcelApp.Worksheets(sheetname).cells(1,9).value=tagshijian
For i=4 To 27
With objExcelApp.worksheets(sheetname)
  .cells(i,1).value=tagshijian
  tag1gongyeshui.read
  .cells(i,2).value=tag1gongyeshui.value
  tag2shenghuoshui.read
  .cells(i,3).value=tag2shenghuoshui.value
  tag3tuoyanshui.read
  .cells(i,4).value=tag3tuoyanshui.value
  tag4zhengqi.read
  .cells(i,5).value=tag4zhengqi.value
  tag5h2so4.read
  .cells(i,6).value=tag5h2so4.value
  tag6hno3.read
  .cells(i,7).value=tag6hno3.value
  tag7hf.read
  .cells(i,8).value=tag7hf.value
  tag8zaishengsuan.read
  .cells(i,9).value=tag8zaishengsuan.value
  tag9naoh.read
  .cells(i,10).value=tag9naoh.value
  End With
  Next
MsgBox msg

'关闭保存
Dim patch,filename

 patch="d:\baobiao\deo.xls"
objExcelApp.activeworkbook.saveAs patch
objExcelApp.workbooks.close
objExcelApp.Quit
Set objExcelApp=Nothing