VBA脚本：批量复制Excel文件Sheet1至新文件

"该资源是一个VBA宏代码，用于批量复制指定目录下的Excel文件Sheet1工作表，并将复制的工作表粘贴到一个新的Excel文件中。" 在Excel VBA编程中，有时我们需要处理多个Excel文件并将其中的数据整合到一起。这个VBA宏程序实现了这样一个功能，它遍历指定目录下的所有Excel文件（.xls格式），提取每个文件的第一个工作表（Sheet1），然后将其复制到一个新的Excel文件中。以下是对这个宏代码的详细解释： 1. **禁用警告和屏幕更新**： - `Application.DisplayAlerts=False` 和 `Application.ScreenUpdating=False` 分别用于关闭显示警告和屏幕更新，这样可以提高运行速度，避免在操作过程中弹出不必要的对话框。 2. **删除现有工作表**： - `For i = Sheets.Count To 2 Step -1` 这个循环从当前工作簿的最后一张工作表开始，逆序遍历并删除除第一张外的所有工作表。这是因为我们要创建新的工作表，所以先清空了原有内容。 3. **选择目标文件夹**： - 使用 `Application.FileDialog(msoFileDialogFolderPicker)` 弹出文件夹选择对话框，让用户选择包含待处理Excel文件的文件夹。 4. **获取文件夹对象**： - `Set fs = CreateObject("Scripting.FileSystemObject")` 创建一个FileSystemObject对象，用于处理文件和文件夹。 - `Set f = fs.GetFolder(folderspec)` 获取用户选择的文件夹对象。 - `Set fc = f.Files` 获取该文件夹中的所有文件。 5. **遍历Excel文件**： - `For Each f1 In fc` 遍历文件夹中的每一个文件。 - `If Right(f1.Name, 3) = "xls" Then` 检查文件是否为Excel文件（.xls扩展名）。 6. **处理Excel文件**： - `fName = folderspec + f1.Name` 获取完整文件路径。 - `Workbooks.Open fName` 打开Excel文件。 - `Sheets(1).Copy After:=Workbooks(BkName).Sheets(sc)` 复制Sheet1到新的Excel文件（当前活动工作簿）。 - `sc = sc + 1` 更新工作表计数器。 - `Sheets(sc).Name = sName` 重命名新复制的工作表为原文件名（不包括扩展名）。 - `If Workbooks(2).Name <> BkName Then` 如果处理的不是原始工作簿，则关闭它，避免资源浪费。 7. **恢复设置**： - `Application.DisplayAlerts = True` 和 `Application.ScreenUpdating = True` 在操作完成后恢复警告和屏幕更新。 8. **保存新文件**： - 使用 `Application.FileDialog(msoFileDialogSaveAs).Show` 弹出保存对话框，让用户选择保存新文件的位置和名称。 这段VBA代码是用于批量处理Excel文件的实用工具，尤其适用于需要合并多份数据源时。请注意，代码可能需要根据实际需求进行适当的调整，例如处理.xlsx文件或改变复制的特定工作表。在使用前，确保对VBA有基本了解，并在测试环境中运行以防止意外数据丢失。