无数个相同的excel表格文档格式如何汇总到一个文档中去？
如下图，有500个这样的表格文档，分别命名为1.xls ，2.xls，一直往下排到500.xls。这500张表的格式都是一样的，标题栏是一模一样的。我想弄到同一个文档里的一个工作簿中来，这该如何做到呢？（标题栏一样，下面是这500个人的信息）
之前看到的一个完整解答，有用请收下
新建一个.txt文本文件，就命名为“合并.txt”。
2.然后打开文件，复制以下代码到文件中：
@echo off
E:
cd xls
dir
copy *.csv all_keywords.csv
echo @@@@@@@@@@@@@合并成功！@@@@@@@@@@@@@'
pause
*****************************
3.这段代码的详细解释如下图所示：
4.复制好代码后，保存并关闭txt文件，然后将.txt后缀改为.bat，这样合并程序就做好了。
5给存放excel文件找个硬盘，以E盘为例，在E盘中创建一个新的文件夹，命名为“xls”
6.将需要合并的csv文件或xls文件放到文件夹中。
7.双击合并.bat，工具会自动运行合并任务，速度相当快，不过多少个文件，几秒钟就搞定。
8.查看xls文件夹，生成了一个合并文件all_keywords.csv，excel合并工作就完成。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-05-09
1，新建一个文件夹把500个excel放进去
2，在新建文件夹内新建一个excel，把表头输在第一行
3，点击开发工具--visual basic-插入-模块，然后把下面这段代码复制进去
4，点击执行按钮，等待执行大概几分钟。搞定。
Sub HuiZong()
Dim myfile, mypath, wb
Application.ScreenUpdating = False
Sheet1.UsedRange.Offset(1, 0).Clear
mypath = ThisWorkbook.Path
myfile = Dir(mypath & "\*.xls*")
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = GetObject(mypath & "\" & myfile)
With wb.Sheets(1)
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
End With
wb.Close False
End If
myfile = Dir
Loop
Application.ScreenUpdating = True
End Sub追问
2，在新建文件夹内新建一个excel，把表头输在第一行
3，点击开发工具--visual basic-插入-模块，然后把下面这段代码复制进去
4，点击执行按钮，等待执行大概几分钟。搞定。
Sub HuiZong()
Dim myfile, mypath, wb
Application.ScreenUpdating = False
Sheet1.UsedRange.Offset(1, 0).Clear
mypath = ThisWorkbook.Path
myfile = Dir(mypath & "\*.xls*")
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
Set wb = GetObject(mypath & "\" & myfile)
With wb.Sheets(1)
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)
End With
wb.Close False
End If
myfile = Dir
Loop
Application.ScreenUpdating = True
End Sub追问
您好，请问:
我要汇总的是500个表格，表格的工作簿是sheet2的位置，并且这500个表格的工作簿都是隐藏的，这该怎么弄这个VBA呢？
第2个回答 2017-05-09
1，用VBA吧，简单有效，这500个文档在同一个目录下吗？追问
这要装office吧，我平时都用wps
追答额，必须的啊， 为什么office统治办公软件市场，因为有VBA功不可没，
追问怎么做啊？能具体说下吗?
还有，我的这500个表中这个工作簿还是隐藏的，工作簿的名称都一样
相似回答