由于许多用户宏是默认禁用的，这样会降低邮件发出去的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