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

人大经济论坛-经管之家 收藏本站
您当前的位置> 考研考博>>

考研

>>

一键汇总多份EXCEL电子表格问卷

一键汇总多份EXCEL电子表格问卷

发布:dudebad | 分类:考研

关于本站

人大经济论坛-经管之家:分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

经管之家新媒体交易平台

提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】

提供微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯等虚拟账号交易,真正实现买卖双方的共赢。【请点击这里访问】

由于许多用户宏是默认禁用的,这样会降低邮件发出去的EXCEL电子表格问卷的回收率,所以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
扫码或添加微信号:坛友素质互助


「经管之家」APP:经管人学习、答疑、交友,就上经管之家!
免流量费下载资料----在经管之家app可以下载论坛上的所有资源,并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库,各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里,你可以找到任何学科方向、有共同话题的朋友。
经管之家(原人大经济论坛),跨越高校的围墙,带你走进经管知识的新世界。
扫描下方二维码下载并注册APP
本文关键词:

本文论坛网址:https://bbs.pinggu.org/thread-649637-1-1.html

人气文章

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责;
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性,不作出任何保证或承若;
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。
经管之家 人大经济论坛 大学 专业 手机版