如何用EXCEL的宏批量导入数据

yzh9708

将在同一文件夹下的ＥＸＣＥＬ文件的数据导入到文件，这些ＥＸＣＥＬ文件的格式相同，为何导入第一个后就出错，请帮忙修改下以下代码：谢谢！
Sub 导入数据()
Dim aa() As Variant
Dim Wb As Workbook
Application.ScreenUpdating = False
hang_s = Range("a65536").End(xlUp).Row
aa() = Array("语文", " 数学", "英语", "物理", "化学")
For j = 0 To 4
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & aa(j) & "成绩.xls"
Set Wb = GetObject(ThisWorkbook.Path & "\" & aa(j) & "成绩.xls")
    With Wb.Sheets(1)
    Range("D3:D" & hang_s).Copy
     Application.DisplayAlerts = False
     Application.ScreenUpdating = False
     End With
     Wb.Close False
    bb = ActiveSheet.Index
    With ActiveWorkbook.Sheets(bb).Select
         Cells(3, j + 4).Select
         ActiveSheet.Paste
    End With
  Next j
Set Wb = Nothing
Set hang_s = Nothing
Application.ScreenUpdating = True
End Sub