新建了一个项目，使用6.2用过的一个VB全局脚本实现报表，现在copy到7.0 SP1上就没法用了，好像没有执行写入EXCEL的步骤，求教一下是不是7.0和6.2有什么不同，附上脚本内容:
Option Explicit
Function action

Dim objExcelAPP
Dim reportfile
Dim reportfile1
Dim reportfile2
Dim reporttime
Dim index
Dim reporttime1
Dim j
Dim i

index=Hour(Now)
index=CInt(index)
reportfile=CStr(Date)
reporttime=Hour(Now)
reporttime=CStr(reporttime)
reportfile=reportfile
reportfile1=reportfile
reportfile="D:\report\" & reportfile & ".xls"
Dim SO2
Set SO2 = HMIRuntime.Tags("SO2")
Dim reportname
Set reportname = HMIRuntime.Tags("reportname")

SO2.Read

Set objExcelAPP=CreateObject("Excel.Application")
objExcelAPP.Visible=False
objExcelAPP.Workbooks.Open "D:\yucai0104\book.xls"
With objExcelAPP

If index=0Then
For i=5 To 18
For j= 2 To 25
.cells(i,j).value=Null
Next
Next


.cells(2,2).value=Date
End If
If index>=9 Then
i=(index-0)+2
End If
If index<=8 Then
i=index+2

End If

.cells(5,i).value=SO2.Value

If index=23Then


.ActiveWorkbook.SaveAs reportfile
reportname.Write reportfile1





Else
.ActiveWorkbook.Save
End If

.ActiveWorkbook.Close
.Quit
End With
Set objExcelAPP=Nothing

End Function

想请教高手，该作何改动？谢谢。。