将指定目录中所有Excel文件中的工作表合并到一个文件中

将指定目录中所有Excel文件中的工作表合并到一个文件中

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参-

如果保存Excel文件的目录为D:\VBA其实很简单\，可以使用下面的过程：

Sub 合并工作表() Application.ScreenUpdating = False Dim FileName As String, Sht As Worksheet, Wb As Workbook FileName = Dir("D:\VBA其实很简单\*.xls?") Do While FileName <> "" Workbooks.Open FileName:="D:\VBA其实很简单\" & FileName Set Wb = ActiveWorkbook For Each Sht In Wb.Worksheets Sht.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) Next Sht Wb.Close savechanges:=False FileName = Dir Loop Application.ScreenUpdating = TrueEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。