将所有上传报名表放在报名表文件夹中，带宏的提取报名表的excel文件放在外面，可以建一个按钮或是建一个模块后调用，都是可以的。代码如下：

Dim wb As Workbook, myfile, s
 Application.ScreenUpdating = False
 myfile = Dir(ThisWorkbook.Path & "\报名表\*.xls")
 s = 1
 Do While myfile <> ""
     If ThisWorkbook.Name <> myfile Then
         s = s + 1
         Set wb = GetObject(ThisWorkbook.Path & "\报名表\" & myfile)
         With wb.Sheets("报名表")’如果不固定报名表名称，可以使用sheets(1)。
            Cells(s + 1, 1) = s - 1'序号
            Cells(s + 1, 2) = .[C3]'C3为用户填写的上传报名表中的对应单元格，以下类同。
            Cells(s + 1, 3) = .[C4]
            Cells(s + 1, 4) = .[B5]
            Cells(s + 1, 5) = .[B6]
            Cells(s + 1, 6) = .[E5]
            Cells(s + 1, 7) = .[G4]
            Cells(s + 1, 8) = .[G5]
            Cells(s + 1, 9) = .[G6]
         End With
         wb.Close False
     End If
     myfile = Dir
 Loop
 Application.ScreenUpdating = True