objTmp.GH = ArrShow(i).GH objTmp.XM = ArrShow(i).XM objTmp.XSPF = ArrShow(i).XSPF objTmp.THPF = ArrShow(i).THPF objTmp.DWPF = ArrShow(i).DWPF End If Next Next
objTmp.KCPF = ArrShow(i).KCPF objTmp.HJZF = ArrShow(i).KCPF
ArrShow(i).JYZ = ArrShow(j).JYZ ArrShow(i).GH = ArrShow(j).GH ArrShow(i).XM = ArrShow(j).XM ArrShow(i).XSPF = ArrShow(j).XSPF ArrShow(i).THPF = ArrShow(j).THPF ArrShow(i).DWPF = ArrShow(j).DWPF ArrShow(i).KCPF = ArrShow(j).KCPF ArrShow(i).HJZF = ArrShow(j).HJZF
ArrShow(j).JYZ = objTmp.JYZ ArrShow(j).GH = objTmp.GH ArrShow(j).XM = objTmp.XM ArrShow(j).XSPF = objTmp.XSPF ArrShow(j).THPF = objTmp.THPF ArrShow(j).DWPF = objTmp.DWPF ArrShow(j).KCPF = objTmp.KCPF ArrShow(j).HJZF = objTmp.HJZF 27
cd.Filter = \电子表格)|*.xls\ cd.ShowOpen
Dim ExcelApp As Excel.Application Dim ExcelWorkBook As Excel.Workbook Dim ExcelWorkSheet As Excel.Worksheet
Set ExcelApp = New Excel.Application
Set ExcelWorkBook = ExcelApp.Workbooks.Add
'Dim ExcelApp As Object 'Dim ExcelWorkBook As Object 'Dim ExcelWorkSheet As Object On Error GoTo errH
'Set ExcelApp = CreateObject(\ 'Set ExcelWorkBook = ExcelApp.Workbooks.Add Set ExcelWorkSheet = ExcelWorkBook.Worksheets(1) ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\
ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\
ExcelWorkSheet.Range(\信息工程学院教师评价结果表\
ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\
28
ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\ ExcelWorkSheet.Range(\满分100分\ ExcelWorkSheet.Cells(3, 1) = \教研室\ ExcelWorkSheet.Cells(3, 2) = \教师工号\ ExcelWorkSheet.Cells(3, 3) = \教师姓名\ ExcelWorkSheet.Cells(3, 4) = \学生评价分数\ ExcelWorkSheet.Cells(3, 5) = \同行评价分数\ ExcelWorkSheet.Cells(3, 6) = \所在单位评价分数\ ExcelWorkSheet.Cells(3, 7) = \课程开出单位评价分数\ ExcelWorkSheet.Cells(3, 8) = \合计\ ExcelWorkSheet.Cells(3, 9) = \等级\
Dim NN As Long
For NN = 4 To intCC + 3
ExcelWorkSheet.Cells(NN, 1) = ArrShow(NN - 3).JYZ ExcelWorkSheet.Cells(NN, 2) = ArrShow(NN - 3).GH ExcelWorkSheet.Cells(NN, 3) = ArrShow(NN - 3).XM
ExcelWorkSheet.Cells(NN, 4) = ArrShow(NN - 3).XSPF * 0.3 ExcelWorkSheet.Cells(NN, 5) = ArrShow(NN - 3).THPF * 0.3 ExcelWorkSheet.Cells(NN, 6) = ArrShow(NN - 3).DWPF * 0.2 ExcelWorkSheet.Cells(NN, 7) = ArrShow(NN - 3).KCPF * 0.2
ExcelWorkSheet.Cells(NN, 8) = ArrShow(NN - 3).XSPF * 0.3 + ArrShow(NN - 3).THPF * 0.3 + ArrShow(NN - 3).DWPF * 0.2 + ArrShow(NN - 3).KCPF * 0.2
29
If CDbl(ExcelWorkSheet.Cells(NN, 8)) >= 90 Then
ExcelWorkSheet.Cells(NN, 9) = \优秀\ ElseIf
CDbl(ExcelWorkSheet.Cells(NN,
8))
CDbl(ExcelWorkSheet.Cells(NN, 8)) < 90 Then
ExcelWorkSheet.Cells(NN, 9) = \良好\ ElseIf
CDbl(ExcelWorkSheet.Cells(NN,
8))
CDbl(ExcelWorkSheet.Cells(NN, 8)) < 80 Then
ExcelWorkSheet.Cells(NN, 9) = \及格\ ElseIf CDbl(ExcelWorkSheet.Cells(NN, 7)) < 60 Then ExcelWorkSheet.Cells(NN, 9) = \不合格\ End If Next
ExcelApp.DisplayAlerts = False ExcelWorkSheet.Columns.AutoFit ExcelWorkBook.SaveAs cd.FileName ExcelWorkBook.Close ExcelApp.Quit Set ExcelApp = Nothing Set ExcelWorkBook = Nothing Set ExcelWorkSheet = Nothing MsgBox \执行结束\ Exit Sub errH:
MsgBox Err.Description ExcelApp.Quit Set ExcelApp = Nothing Set ExcelWorkBook = Nothing
30
>=
80
>=
60
And
And
Set ExcelWorkSheet = Nothing End Sub
Private Sub Form_Load() F1 = 0 F3 = 0 F4 = 0 End Sub
31