Ⅰ 怎么把多个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工作簿中。