星月夫妇的故事告诉你田建明事件 ，日久是会生情的-闲来阅读圆叶景天 不知大家有没有看最近很火的一部剧《楚乔传》。里面的星月夫妇一言不合就?

星月夫妇的故事告诉你田建明事件 ，日久是会生情的-闲来阅读圆叶景天

不知大家有没有看最近很火的一部剧《楚乔传》。里面的星月夫妇一言不合就发糖许可嘉，林更新的占有欲很强有木有，赵丽颖的演技也是实力圈粉的。当然星月夫妇的告诉你，喜欢她就要把她牢牢的锁在你身边王翊菲。
今天小编的主要目的不是星月夫妇啦单麒汶青，而是想分享下如何用VBA一键合并工作簿，觉得有用的，可以收藏喔。
1、先把要合并的工作簿放到一个文件夹中

2、在该文件夹下面新建一个总表执掌盛唐 ，用于合并所有工作簿

3、双击打开总表工作簿极品电脑 ，按住Ctrl+F11键，邢育森打开VBA编辑器（如果按Ctrl+F11键没有反应，可直接点击sheet表，鼠标右键选择查看代码即可打开VBA编辑器）

4、打开VBA编辑器之后，在空白编辑区域填入合并工作簿代码（代码如下）

Sub 合并工作簿()
Dim FilesToOpen西子书院 , wb As Workbook, sht As Worksheet
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx"医界天骄, _
MultiSelect:=True,白糖价格走势 Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
If FilesToOpen(x) <> ThisWorkbook.FullName Then
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
For Each sht In wb.Sheets
sht.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
End If
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
5、填写完代码后点击运行，即可弹出文件添加选择页面，选择你要合并的工作簿，就可以在总表中查看到所有工作表毛华锋 。


合并工作簿就操作完毕了，赶紧收藏起来吧。微信号：闲来阅读长按、关注

全文详见：https://p66p.cn/21533.html

TOP