VBA代码之提取成绩数据
代码作用，运行时，打开指定文件，然后提取数据到数组中，然后关闭文件，然后根据数据组中得数据进行计算。
Sub 提取成绩数据()
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "初一期中*.*")
AWbName = ActiveWorkbook.Name
Do While MyName <> ""
If MyName <> "" Then
Set wb = Workbooks.Open(MyPath & "\" & MyName)
arr = Sheets("成绩").Range("a1:y" & Sheets("成绩").Cells(Rows.Count, 1).End(xlUp).Row) '学生成绩写入数组
End If
MyName = Dir
Loop
wb.Close flase
End Sub
