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 Sub5、程式碼輸入後，點選選單項中“執行”，選擇“執行子過程”選項，或者按下F5快捷鍵，執行程式碼。6、執行程式碼後，會彈出文件選擇介面，找到新建資料夾的路徑，選擇你所需要合併的文件，選擇文件後，點選“開啟”，程式碼正在執行，執行時間視文件數目而定。7、程式碼段執行結束後，就會出現已經合併完成的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 Sub5、程式碼輸入後，點選選單項中“執行”，選擇“執行子過程”選項，或者按下F5快捷鍵，執行程式碼。6、執行程式碼後，會彈出文件選擇介面，找到新建資料夾的路徑，選擇你所需要合併的文件，選擇文件後，點選“開啟”，程式碼正在執行，執行時間視文件數目而定。7、程式碼段執行結束後，就會出現已經合併完成的excel文件介面，新工作表的名稱等於原工作簿的名稱，大功告成！