按选项卡名合并工作簿
按选项卡名合并工作簿
提问于 2017-01-31 12:05:14
我希望有人能帮上忙。
我正在考虑合并excel中的几个工作簿在一起，但每个工作簿有8-10个标签，我不需要，实际上我只想要一个标签，我已经有了以下公式，合并工作簿，但我不确定该做什么，只组合我需要的单个标签，他们都是相同的名称在每个工作簿。
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub谢谢
回答 2
Stack Overflow用户
发布于 2017-01-31 15:04:19
在这种情况下，我会有意识地使用臭名昭著的On Error Resume Next语句，避免循环遍历集合(即Worksheets one)。
此外，ThisWorkbook始终引用运行代码所在的工作簿，因此不需要任何Workbook类型变量引用它
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
On Error Resume Next
Do While Filename <> ""
Workbooks.Open(Filename:=Path & Filename, ReadOnly:=True).Worksheets("SHEETNAME").Copy After:=ThisWorkbook.Sheets(1)
ActiveWorkbook.Close False
Filename = Dir()
Loop
End Sub只需将SHEETNAME更改为您实际需要的选项卡名
Stack Overflow用户
发布于 2017-01-31 13:45:40
如果你只需要从每个页面中复制一个特定的工作表，那么下面的操作应该是有效的(只需将SHEETNAME调整为其他值)
Sub GetSheets()
dim mainWB as Workbook
Set mainWB = ThisWorkbook
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
If sheet.Name = "SHEETNAME" then
Sheet.Copy After:=mainWB.Sheets(1)
End if
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/41949469
复制相关文章
相似问题
腾讯云开发者
