如何许多人在线填写同一个excel文档？
比如要求单位所有人填写一个关于学历，年龄，身高体重的excel表格，现在的做法是每个人填一行，然后一个人汇总。前提不是局域网，而是互联网。 试试 腾讯的TIM在线文档 LimeSurvey
开源的。
你值得拥有。
如果对隐私不关心，可以试试腾讯问卷。
ado 20年前的，不知现在是什么 大家都用同一格式的表，各自填好后发给一个人，然后放同一文件夹
然后见下面步骤：
打开启用宏的表，alt+F11
插入模块
加入下面代码
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub cu_ice 发表于 2017-6-7 21:24
大家都用同一格式的表，各自填好后发给一个人，然后放同一文件夹
然后见下面步骤：
脚本高手 这种简单粗暴实用 google docs，office 365 勤哲excel 服务器 Sharepoint就是用来干这个活的，现在也有整合在Office365里面了。 微信端的有一个叫：一起写，微信里能填。群里分享一起填写。 弄个服务器，搭个vpn做成虚拟局域网，然后用svn完美解决。 弄个简单网页收集最方便 可以导出各种格式不用麻烦OFFICE整理 检索方便 石墨文档.
买了10用户的企业版,结果大家都不用. office好像就有这个功能，文档存在云上，有微软账号就可以多人编辑 一直用onenote,可以同时多人编辑。 可以试试石墨文档，关键在于怎么让同事愿意用是个问题 二师兄 发表于 2017-6-8 20:49
可以试试石墨文档，关键在于怎么让同事愿意用是个问题
果然是这个问题
google docs，office 365， 腾讯TIM 还有石墨文档 cu_ice 发表于 2017-6-7 21:24
大家都用同一格式的表，各自填好后发给一个人，然后放同一文件夹
然后见下面步骤：
赞，不错，有些工作，VBA很好用 还有个简单办法，每人填一行，要求存为csv格式，不带表头
汇总的人只要type *.csv > out.csv就得到完整的表格了，再加上表头就行了
带了表头也没关系，排序然后把多余的表头删了就行。 tomzbj 发表于 2017-6-14 08:59
还有个简单办法，每人填一行，要求存为csv格式，不带表头
汇总的人只要type *.csv > out.csv就得到完整的表 ...
这个方法也不错 excel 有个共享工作簿功能，共享了就可以多人协同编辑 如果只是一次性工作，人又特别多，群里让大家按格式写好发出来，然后把聊天记录全部复制出来，使用vim+正则表达式处理一下就行 写个网页端填报，后台生成XLSX就好了。最后打开整理下
页:
[1]