Exit For End If Next Next
MsgBox \读取完毕\ End If Exit Sub errH:
ExcelWorkBook.Close ExcelApp.Quit Set ExcelApp = Nothing Set ExcelWorkBook = Nothing Set ExcelWorkSheet = Nothing MsgBox Err.Description End Sub
Private Sub Command3_Click() cd.Filter = \电子表格)|*.xls\ cd.ShowOpen intC = 0
Dim ArrTmp() As String On Error GoTo errH
If cd.FileName <> \ Dim ExcelApp As Object Dim ExcelWorkBook As Object
22
Dim ExcelWorkSheet As Object
Set ExcelApp = CreateObject(\
Set ExcelWorkBook = ExcelApp.Workbooks.Open(cd.FileName) Set ExcelWorkSheet = ExcelWorkBook.Worksheets(1) Dim NN As Long For NN = 4 To 65535 If
Trim(ExcelWorkSheet.Cells(NN,
4))
=
\
And
Trim(ExcelWorkSheet.Cells(NN + 1, 4)) = \\ Exit For End If Next intC = NN - 4
ReDim ArrKeChengKaiChu(intC) ReDim ArrTmp(intC) For NN = 4 To 4 + intC - 1
ArrTmp(NN - 3) = Trim(ExcelWorkSheet.Cells(NN, 2)) ArrKeChengKaiChu(NN Next
ExcelWorkBook.Close ExcelApp.Quit Set ExcelApp = Nothing Set ExcelWorkBook = Nothing Set ExcelWorkSheet = Nothing F4 = 1
For i = 1 To intCC For j = 1 To intC
If ArrDataLast(i).XM = ArrTmp(j) Then
-
3)
=
CDbl(IIf(IsNumeric(ExcelWorkSheet.Cells(NN, 13)), ExcelWorkSheet.Cells(NN, 13), \
23
ArrDataLast(i).KCPF = ArrKeChengKaiChu(j) Exit For End If Next Next
MsgBox \读取完毕\ End If
Exit Sub errH:
ExcelWorkBook.Close ExcelApp.Quit Set ExcelApp = Nothing Set ExcelWorkBook = Nothing Set ExcelWorkSheet = Nothing MsgBox Err.Description End Sub
Private Sub Command5_Click() End End Sub
Private Sub Command6_Click() If F1 = 0 Then
MsgBox \请读取学生同行评教表\ Exit Sub
24
End If
If F3 = 0 Then
MsgBox \请读取所在单位评价表\ Exit Sub End If
If F4 = 0 Then
MsgBox \请读取课程开出单位评价表\ Exit Sub End If
Dim ArrShow() As JGLast Dim ArrFlag() As Boolean ReDim ArrShow(intCC) ReDim ArrFlag(intCC) Dim k As Integer k = 0
For i = 1 To intCC ArrFlag(i) = True Next
For i = 1 To intCC
If ArrFlag(i) = True Then
ArrShow(k).JYZ = ArrDataLast(i).JYZ ArrShow(k).GH = ArrDataLast(i).GH ArrShow(k).XM = ArrDataLast(i).XM ArrShow(k).XSPF = ArrDataLast(i).XSPF ArrShow(k).THPF = ArrDataLast(i).THPF
25
ArrShow(k).DWPF = ArrDataLast(i).DWPF ArrShow(k).KCPF = ArrDataLast(i).KCPF k = k + 1
For j = i + 1 To intCC
If ArrDataLast(j).JYZ = ArrDataLast(i).JYZ Then ArrShow(k).JYZ = ArrDataLast(j).JYZ ArrShow(k).GH = ArrDataLast(j).GH ArrShow(k).XM = ArrDataLast(j).XM ArrShow(k).XSPF = ArrDataLast(j).XSPF ArrShow(k).THPF = ArrDataLast(j).THPF ArrShow(k).DWPF = ArrDataLast(j).DWPF ArrShow(k).KCPF = ArrDataLast(j).KCPF ArrFlag(j) = False k = k + 1 End If Next End If Next
For i = 1 To intCC
ArrShow(i).HJZF = ArrShow(i).XSPF * 0.3 + ArrShow(i).THPF * 0.3 + ArrShow(i).DWPF * 0.2 + ArrShow(i).KCPF * 0.2 Next
Dim objTmp As JGLast For i = 1 To intCC For j = i + 1 To intCC
If ArrShow(j).JYZ = ArrShow(i).JYZ And ArrShow(j).HJZF > ArrShow(i).HJZF Then
objTmp.JYZ = ArrShow(i).JYZ
26