[已解决]同文件夹多工作簿多工作表不同单元格内容提取

beijiren368 · 发表于 2013-5-26 16:20

大家好：
   请教个同文件夹多工作簿多工作表不同单元格内容提取的问题：
   我有一个如附件的模板，单元格内容都是固定的，只是这样的模板可能有几百个，我现在想把这几百个模板里的的固定单元格的内容（比如姓名，性别，生日，籍贯等信息）提取出来放在一个新的工作簿的工作表里的一行，请问用VBA该怎么做了？
   谢谢大家了！

汇总.zip (24.19 KB, 下载次数: 201)

1091126096 · 发表于 2013-5-26 16:35

本帖最后由 1091126096 于 2013-5-26 17:08 编辑

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
'获取当前目录下所有excel文件
MyName = Dir(MyPath & "" & "*.xls")
'获取活动excel名称
AWbName = ActiveWorkbook.Name
'Num用以记录合并excel数量
Num = 0
'开始合并，合并目录时不处理当前excel
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
'处理当前工作簿上所有的工作表，其中，除第一个表格以外不复制第一行表头，复制位置在当前表格最下一行
If Num = 1 Then
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row, 1)
Next
Else
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
End If
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

复制代码

beijiren368 · 发表于 2013-5-26 17:06

谢谢太阳之子，但是程序运行后，从第二个记录开始，姓名那一栏没了，我再研究研究！

1091126096 · 发表于 2013-5-26 17:09

beijiren368 发表于 2013-5-26 17:06
谢谢太阳之子，但是程序运行后，从第二个记录开始，姓名那一栏没了，我再研究研究！

表格格式要完全相同。

ligh1298 · 发表于 2013-5-26 17:16

这个最佳答案由 ligh1298 给出，感谢 ligh1298 的回答。

单击隐藏图章

本帖最后由 ligh1298 于 2013-5-26 17:31 编辑

楼主：是不是想要这样的？见附件！
提示：1.删除“汇总.xlsx”文件或将其移到他处。　　
　　　2.只需要打开“汇总.xlsm”文件，启用宏，点击按钮完成。

beijiren368 · 发表于 2013-5-26 22:51

ligh1298 发表于 2013-5-26 17:16
楼主：是不是想要这样的？见附件！
提示：1.删除“汇总.xlsx”文件或将其移到他处。　　
　　　2.只需要打 ...

您好！
代码里这句[b65536].End(3).Row请问该怎么理解了？可否帮忙详细讲解，不胜感激！

sliang28 · 发表于 2013-5-26 22:57

B列最后一个非空单元格的行号.
等同:
Range("B65536").End(xlUp).Row

beijiren368 · 发表于 2013-5-26 22:58

sliang28 发表于 2013-5-26 22:57
B列最后一个非空单元格的行号.
等同:
Range("B65536").End(xlUp).Row

您的意思是XLUP也可以写为3？

sliang28 · 发表于 2013-5-26 23:00

是的,我一般都是写3的.

beijiren368 · 发表于 2013-5-26 23:02

sliang28 发表于 2013-5-26 23:00
是的,我一般都是写3的.

非常感谢您的解答！

		自动登录	找回密码
密码			注册

[已解决]同文件夹多工作簿多工作表不同单元格内容提取

相关帖子

表格格式要完全相同。

评分

评分