有下图这样一道题(第一次做记录脚本)
1. 首先用Excel创建如图worksheet
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("C:\Users\Administrator\Desktop\学生成绩.xls")
Set ExcelSheet = ExcelBook.Worksheets(1)
ExcelSheet.Range("E1").Value = "总分"
ExcelSheet.Range("F1").Value = "NofTotal>180"
ExcelSheet.Range("G1").Value = "MS>CS"
MsgBox ExcelSheet.Range("E1").Value
'--------计算总分--
Dim c,r,s,mc '定义row数量(r)column数量c/计算人数总和的(s)/数学大于语文人数(mc)
For r = 2 To 7
ExcelSheet.cells(r,5).value = ExcelSheet.cells(r,2).value+ExcelSheet.cells(r,3).value+ExcelSheet.cells(r,4).value
'-总分大于180的人数-
If Exc