一键汇总多份EXCEL电子表格问卷-经管之家官网！

由于许多用户宏是默认禁用的，这样会降低邮件发出去的EXCEL电子表格问卷的回收率，所以EXCEL电子表格问卷设计最好不带宏。
这样可以从另外一个表格进行汇总收集回来的多份表格。
为了符合自己的要求，大家可以对下面的附件进行修改，其注意事项为：
数据汇总表格和要汇总的表格放在同一文件夹内；
问卷内的表格控件链接设置到隐藏的SHEET2内的第三行，A3要空出来。
附件包含四个表格：
数据汇总.xls(内含VBA,一键汇总下面三个表格数据)
回收问卷1.xls
回收问卷2.xls
回收问卷3.xls
其VBA程序为：
Sub aa()
Dim Fso, Fld, Fln, Wk
Dim Wa As Workbook, W As Workbook
Dim Sh As Worksheet
Application.ScreenUpdating = False '关闭屏幕刷新
Application.DisplayAlerts = False '禁用所有事件
With ThisWorkbook.Sheets(1)
Range(.Cells(3, 1), .Cells(65536, 100)).ClearContents
End With
Set Wa = ThisWorkbook
Set Fso = CreateObject("Scripting.FilesystemObject")
Set Fld = Fso.getfolder(ActiveWorkbook.Path & "\")
Set Fln = Fld.Files
i = Wa.Sheets(2).[B65536].End(xlUp).Row
For Each Wk In Fln
If Wk.Name <> Wa.Name Then
Workbooks.Open Wk

Set W = ActiveWorkbook

W.Sheets(2).Rows(3).Copy
Wa.Sheets(1).Cells(i, 1).PasteSpecial Paste:=xlPasteValues
Wa.Sheets(1).Cells(i, 1) = W.Name
W.Close
i = i + 1
End If
Next
Application.DisplayAlerts = True ' 启用所有事件
Application.ScreenUpdating = True '打开屏幕刷新
End Sub