【分享成果，随喜正能量】喝茶是一项轻松愉快，很简单的事，先把水烧开，再加入茶叶，然后用适当的方式来喝，就是这么简单的动作，一种单纯的生活方式。。

《VBA之Excel应用》（10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是第三章内容:批量导入工作表到同一个文件（1）

第六节 批量导入工作表到同一个文件

大家好，我们在上节讲解了如何提取一个文件夹下面的文件名及每个文件的工作表的名称到工作表中，这讲我们将讲解如何把一个文件夹下的所有文件的工作表导入到同一个文件中，这讲的知识点有：工作表的整体导入方法，以及如何关闭例外提示的信息。

1 实现批量导入工作表的场景分析

我们在实际工作中，经常会用到把多个文件的工作表批量复制到同一个文件中，如下，在当前路径的文件夹“导入文件”中有若干个文件：

我们的目的是将每个文件中的工作表逐一复制到同一个文件中，形成一个文件。这讲我们将讲解这个问题的代码实现过程。

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 项目中包含一个工作表代码工作表, 则该工作表也会进入新工作簿中。

[待续]

本讲内容参考程序文件：工作簿03.xlsm

我20多年的VBA成果全在下面的资料中：

【分享成果，随喜正能量】有时揣着糊涂装明白，有时揣着明白装糊涂。不诚实，终究折磨的是自己。。