Ⅰ 怎麼把多個e個工作簿裡面
結論:要將多個Excel工作簿的內容合並到一個新的工作簿,可以按照以下步驟操作:
1. 首先,將所有需要合並的工作簿文件放置在一個文件夾中,確保每個文件包含適當的內容。
2. 在這個文件夾中,創建一個新的空白Excel工作簿,並重命名為"8"。
3. 打開這個新工作簿,按下Alt+F11或右鍵點擊Sheet1,選擇"查看代碼",進入VBA編輯器。
4. 在代碼編輯窗口中,粘貼以下代碼:
vba
Sub CombineFiles()
Dim path As String
Dim FileName As String
Dim LastCell As Range
Dim Wkb As Workbook
Dim WS As Worksheet
Dim ThisWB As String
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\" '你的工作簿路徑
'其他代碼省略...
'查找並合並工作簿
FileName = Dir(path & "\*.xls", vbNormal)
Do Until FileName = ""
If FileName > ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
'關閉相關對象
'...
End Sub
5. 點擊菜單欄的"運行"->"運行子過程"->"用戶窗體",運行代碼。
6. 關閉代碼輸入窗口,返回Excel工作簿,你將看到新工作簿下方新增了許多工作表,內容已成功合並。
現在,所有之前工作簿的工作表已整合到新建的Excel工作簿中。