你不会脚本，那么你脚本操作更有问题了！那你就直接通过脚本做了呀！判断变量的数值。
Sub report
Dim mytime
Dim fso,myfile
Set fso=CreateObject("s cripting.filesystemobject")
Set myfile=fso.GetFile("e:\\data_report.xlsx")
Dim objexcelapp
Set objexcelapp=CreateObject("excel.application")
'objexcelapp.visible=true
objexcelapp.workbooks.open myfile
'以上是为了打开D盘excel文件
mytime=Now
Dim myname
myname=HMIRuntime.Tags("class").Read
If myname=1 Then
objexcelapp.worksheets("sheet1").cells(2,2).value="甲班"
End If
If myname=2Then
objexcelapp.worksheets("sheet1").cells(2,2).value="乙班"
End If
If myname=3 Then
objexcelapp.worksheets("sheet1").cells(2,2).value="丙班"
End If
If myname=4 Then
objexcelapp.worksheets("sheet1").cells(2,2).value="丁班"
End If
objexcelapp.worksheets("sheet1").cells(2,9).value=mytime
'以上是报表的报头

'以上是写数据到excel表格
Dim path,filename
filename=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))&"-"&CStr(Hour(Now))&"-"&CStr(Minute(Now))&"-"&CStr(Second(Now))
path="e:\datarec\"&filename&"report.xlsx"
objexcelapp.activeworkbook.SaveAs path
'以上是保存表格
objexcelapp.workbooks.close
objexcelapp.quit
Set objexcelapp=Nothing
'以上是关闭刚才打开的excel程序
End Sub