我们的目的是将每个文件中的工作表逐一复制到同一个文件中，形成一个文件。这讲我们将讲解这个问题的代码实现过程。
2 实现批量导入工作表的思路分析
为了实现批量导入工作表，我们仍是利用文件夹中文件的遍历及每一个文件中工作表的遍历，在实现遍历的时候要进行的是工作表的复制，然后粘贴到同一个文件中。对于复制和粘贴工作表我们要利用的是工作表复制语句。
对于工作表的复制和粘贴，有时会有异常信息的提示，这是我们所不期望的，这就要屏蔽这些信息。也是利用VBA代码来完成这项工作。
3 工作表的复制和粘贴（Worksheet.Copy方法）
将工作表复制到当前工作簿或新工作簿中的其他位置，我们可以用Worksheet.Copy 方法
1）语法：expression.Copy (Before, After)
2）参数：
① Before 可选 Variant类型 将要在其之前放置所复制工作表的工作表。如果指定After, 则不能指定Before。
② After 可选 Variant类型 将要在其之后放置所复制工作表的工作表。 如果指定了 Before，则不能指定 After。
3）使用说明：如果不指定Before或After, Microsoft Excel 将新建一个工作簿, 其中包含复制的工作表对象。新创建的工作簿包含ActiveWorkbook属性, 并且包含一个工作表。 单个工作表保留源工作表的Name 和CodeName 属性。如果复制的工作表在VBA 项目中包含一个工作表代码工作表, 则该工作表也会进入新工作簿中。
4 屏幕刷新（ScreenUpdating）及例外信息提示（DisplayAlerts）
1) Application.ScreenUpdating 属性 如果屏幕更新已启用，此属性的值为 True。
语法：expression.ScreenUpdating
参数：expression 表示 Application 对象的变量。
禁用屏幕更新可以加快宏代码的速度。虽然无法实时了解宏的最新动态，但它的运行速度会变快。当宏结束运行后，请记住将 ScreenUpdating 属性设置回 True。
2）Application.DisplayAlerts 属性 如果宏运行时 Microsoft Excel 显示特定的警告和消息，则为 True。
语法： expression.DisplayAlerts
参数：expression表示 Application 对象的变量。
expression.DisplayAlerts默认值为 True。 将此属性设置为 False 可在宏运行时禁止显示提示和警告消息；当出现需要用户应答的消息时，Microsoft Excel 将选择默认应答。如果将此属性设置为False，要将代码完成时将此属性设为True。5 实现批量导入工作表的代码及代码的运行效果
为了实现工作表的批量导入，我先给出下面的代码，然后再进行讲解：
Sub mynzK() '导入工作表
Dim directory As String, myfileName As String, mysheet As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = ThisWorkbook.Path & "\导入文件\"
myfileName = Dir(directory & "*.xl??") '使用Dir函数来查找存储在此目录中的第一个*.xl？？文件
Do While myfileName <> ""
Workbooks.Open (directory & myfileName)
For Each mysheet In Workbooks(myfileName).Worksheets
total = ThisWorkbook.Worksheets.Count
Workbooks(myfileName).Worksheets(mysheet.Name).Copy _
after:=ThisWorkbook.Worksheets(total)
Next
Workbooks(myfileName).Close '关闭Excel文件
myfileName = Dir() '获取其他Excel文件，再次使用Dir函数而不带参数
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
代码截图：代码讲解：
1） Application.ScreenUpdating = False
Application.DisplayAlerts = False
以上代码将关闭屏幕更新及例外信息提示，在程序结束后，要打开这个设置，值为true。
2) total = ThisWorkbook.Worksheets.Count
变量total跟踪导入的工作表的工作表数，我们最后将使用Worksheet对象的Copy方法复制每个工作表并将其粘贴到ThisWorkbook最后一个工作表之后。
3）Workbooks(myfileName).Worksheets(mysheet.Name).Copy _
after:=ThisWorkbook.Worksheets(total)
以上代码将复制myfileName工作簿中的每个工作表，然后粘贴到当前工作簿的最后位置。
代码运行效果：
从上图中可以看出，文件夹中所有文件的工作表都拷贝到了当前的工作簿中了。
今日内容回向：
1） 如何关闭屏幕刷新及例外信息提示？
2） 如何导入整个工作表到当前工作簿？
3) 遍历循环应用在这讲有什么作用？本讲内容参考程序文件：工作簿03.xlsm
分享成果，随喜正能量
VBA的应用范围及学习方法：
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了七部VBA专门教程。
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试。
第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试。
第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受。
第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试。
第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。
第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册，从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须。
以上各教程学习顺序：7 1 3 2 6 5或者7 4 3 2 6 5。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。