很实用的,多个excel文件 合并到一个里面 20140111.docVIP

多个 excel文件 合并到一个里面我们有70个文件，要将这70个文件合并到一个文件里，并且把所有表合并到一个工作。 首先我们来合并文件，也叫合并工作薄。 我们来新建一个execl文件,命名为－－合并.xls 打开，在sheet1 处右键，查看代码 打开我们的 vb编辑器，输入以下代码： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub?工作薄合并() ????Dim?FileOpen Dim?X?As?Integer Application.ScreenUpdating?=?False FileOpen?=?Application.GetOpenFilename(FileFilter:=Microsoft?Excel文件(*.xls),*.xls,?MultiSelect:=True,?Title:=合并工作薄) X?=?1 While?X?=?UBound(FileOpen) Workbooks.Open?Filename:=FileOpen(X) Sheets().Move?After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X?=?X?+?1 Wend ExitHandler: Application.ScreenUpdating?=?True Exit?S