为什么不能生成excel报表，请高手指点

Dim c9
Set c9 = HMIRuntime.Tags("aaa")
c9.Read
If c9.Value>0 Then
Dim ldcl
Set ldcl = HMIRuntime.Tags("0点产量")
ldcl.Read
Dim bdcl
Set bdcl = HMIRuntime.Tags("8")
bdcl.Read
Dim sdcl
Set sdcl = HMIRuntime.Tags("4点产量")
sdcl.Read

objExcelApp.Workbooks.Open"E:\日报表1.xls"
objExcelApp.Cells(1,1).Value=Date
objExcelApp.Cells(2,2).Value=ldcl.value
objExcelApp.Cells(3,2).Value=bdcl.value
objExcelApp.Cells(4,2).Value=ldcl.value

Dim coun
For coun=1 To 4
Next
Dim patch,filename
filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))
patch="E:\报表"&filenaME&"-报表.xls"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set oApp = Nothing
End If
End Function