1.创建一个文件夹，放入要合并的excel文件

 

2.在单独创建一个空的excel文件，打开放入VB脚本

Sub Books2Sheets()  
'定义对话框变量   
Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogFilePicker)      
'新建一个工作簿  
Dim newwb As Workbook  
Set newwb = Workbooks.Add    
With fd       
If .Show = -1 Then      
'定义单个文件变量     
Dim vrtSelectedItem As Variant    
'定义循环变量     
Dim i As Integer   
i = 1        
'开始文件检索     
For Each vrtSelectedItem In .SelectedItems    
'打开被合并工作簿      
Dim tempwb As Workbook          
Set tempwb = Workbooks.Open(vrtSelectedItem)    
'复制工作表     
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)      
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx   
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")                     
'关闭被合并工作簿            
tempwb.Close SaveChanges:=False    
i = i + 1    
Next vrtSelectedItem    
End If   
End With     
Set fd = Nothing
End Sub 

 

3.点击执行，弹出窗口，选择要合并的文件，点击确定，等待合并中，保存合并完的文件