excel vba 汇总俩个excel到一个
时间: 2023-11-10 11:03:50 浏览: 64
可以使用 VBA 代码将两个 Excel 文件中的数据汇总到一个文件中。以下是一个简单的示例代码:
```
Sub CombineWorkbooks()
Dim MasterWorkbook As Workbook
Dim SourceWorkbook As Workbook
Dim SourceWorksheet As Worksheet
Dim DestinationWorksheet As Worksheet
Dim LastRow As Long
'打开主工作簿
Set MasterWorkbook = ThisWorkbook
'打开源工作簿
Set SourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
'复制源工作簿中的数据到主工作簿中
For Each SourceWorksheet In SourceWorkbook.Worksheets
Set DestinationWorksheet = MasterWorkbook.Worksheets.Add(After:=MasterWorkbook.Worksheets(MasterWorkbook.Worksheets.Count))
DestinationWorksheet.Name = SourceWorksheet.Name
LastRow = SourceWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
SourceWorksheet.Range("A1:Z" & LastRow).Copy DestinationWorksheet.Range("A1")
Next
'关闭源工作簿
SourceWorkbook.Close SaveChanges:=False
End Sub
```
这段代码会将源工作簿中的所有工作表复制到主工作簿中,并将它们命名为源工作簿中的工作表名称。你可以根据需要修改代码以满足你的具体需求。
相关推荐
![](https://img-home.csdnimg.cn/images/20210720083646.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)