將多個Excel文件合並成一個有多個sheet的Excel文件

方法/步驟

 

1、新建一個文件夾，將需要合並的excel文檔復制到該文檔目錄下。

2、新建一個EXCEL空白文檔，鼠標移動到在sheet工作表上單擊右鍵，選擇“查看代碼”選項，進入VBA控制台。

3、在菜單欄點擊“插入”菜單，選擇“模塊”選項，進入模塊編輯界面。

4、在編輯框中復制以下代碼，注意符號，需是英文狀態下。

'功能：把多個excel工作簿的第一個sheet工作表合並到一個excel工作簿的多個sheet工作表，新工作表的名稱等於原工作簿的名稱
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

5、代碼輸入后，點擊菜單項中“運行”，選擇“運行子過程”選項，或者按下F5快捷鍵，運行代碼。

6、運行代碼后，會彈出文檔選擇界面，找到新建文件夾的路徑，選擇你所需要合並的文檔，選擇文檔后，點擊“打開”，代碼正在運行，運行時間視文檔數目而定。

7、代碼段運行結束后，就會出現已經合並完成的excel文檔界面，新工作表的名稱等於原工作簿的名稱，大功告成！