如何把文件夹中多个工作簿中的多个工作表合并到一张工作表中

w学无止境 · 发表于 2013-9-18 13:52

zhaogang1960 发表于 2013-9-18 11:06
说了这么多，不是很理解，请模拟效果说明
如果每个工作簿都设有密码，一定要一致，使用Open方法，在已知 ...

不好意思，
6楼的代码是我想要的结果。我现在的问题是：1，我的每个工作表都有相同密码，应该怎样修改？
2，我只想合并每个工作簿中某个或某几个工作表，不是全部。
3，我不想把簿名和表名这两列放在前两列，想放到最后面两列。（这个修改不修改都行）
说明：（现实情况中我需要合并的工作表表名都是以本年的年份开头的）
不知道这次有没有表达清楚

w学无止境 · 发表于 2013-9-18 13:54

w学无止境发表于 2013-9-18 13:52
不好意思，
6楼的代码是我想要的结果。我现在的问题是：1，我的每个工作表都有相同密码，应该怎样修改？ ...

就是在6楼的基础上修改

zhaogang1960 · 发表于 2013-9-18 14:58

w学无止境发表于 2013-9-18 13:52
不好意思，
6楼的代码是我想要的结果。我现在的问题是：1，我的每个工作表都有相同密码，应该怎样修改？ ...

6楼是我上传的附件
请模拟效果说明

kszcs · 发表于 2013-9-18 15:29

zhaogang1960 发表于 2013-9-17 23:10
请看附件

谢谢zhaogang1960老师！
回复的都是实用的！

w学无止境 · 发表于 2013-9-18 16:56

zhaogang1960 发表于 2013-9-18 14:58
6楼是我上传的附件
请模拟效果说明

附件2.rar (28.6 KB, 下载次数: 74)

你好，请看一下，有些修改。谢谢

zhaogang1960 · 发表于 2013-9-18 17:03

w学无止境发表于 2013-9-18 16:56
你好，请看一下，有些修改。谢谢

假设工作簿打开密码是"abc"：

Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet
Application.ScreenUpdating = False
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & ""
MyName = Dir(MyPath & "*.xls")
[a1].CurrentRegion.Offset(2).Clear
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With Workbooks.Open(MyPath & MyName, Password:="abc")
For Each sht In .Sheets
If InStr(sht.Name, "2013") > 0 And sht.[a1].CurrentRegion.Rows.Count > 2 Then
lr = sh.[a1].CurrentRegion.Rows.Count + 1
r = sht.[a1].CurrentRegion.Rows.Count - 2
sh.Cells(lr, 1).Resize(r) = MyName
sh.Cells(lr, 2).Resize(r) = sht.Name
sht.[a1].CurrentRegion.Offset(2).Copy sh.Cells(lr, 3)
End If
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

复制代码

zhaogang1960 · 发表于 2013-9-18 17:05

请看附件

把文件夹中多个工作簿中的多个工作表合并到一张工作表中.rar (91.55 KB, 下载次数: 375)

w学无止境 · 发表于 2013-9-18 19:14

谢谢zhaogang1960老师!好好学习!{:soso_e179:}

快人一步 · 发表于 2014-6-22 11:14

如果每个工作簿中的工作表有密码保护又应该怎做?

蔡明江 · 发表于 2014-6-22 15:42

很强谢谢分享解答！

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

[已解决] 如何把文件夹中多个工作簿中的多个工作表合并到一张工作表中

评分

评分