将多个Excel文件合并成一个有多个sheet的Excel文件

wth2010 2021-12-29 原文

方法/步骤

1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。

2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。

3、在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。

4、在编辑框中复制以下代码，注意符号，需是英文状态下。

 1 \'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称
 2 Sub Books2Sheets()    \'定义对话框变量    
 3 Dim fd As FileDialog    
 4 Set fd = Application.FileDialog(msoFileDialogFilePicker)        \'新建一个工作簿    
 5 Dim newwb As Workbook    
 6 Set newwb = Workbooks.Add        
 7 With fd        
 8 If .Show = -1 Then            \'定义单个文件变量            
 9 Dim vrtSelectedItem As Variant                        \'定义循环变量            
10 Dim i As Integer            
11 i = 1                        \'开始文件检索            
12 For Each vrtSelectedItem In .SelectedItems                \'打开被合并工作簿                
13 Dim tempwb As Workbook                
14 Set tempwb = Workbooks.Open(vrtSelectedItem)                                \'复制工作表                
15 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)                                \'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx                
16 newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")                                \'关闭被合并工作簿                
17 tempwb.Close SaveChanges:=False                                
18 i = i + 1            
19 Next vrtSelectedItem        
20 End If    
21 End With        
22 Set fd = Nothing
23 End Sub