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