Sub Run()
Dim tar_wb As Workbook
Set tar_wb = CreateWorkbook
Call MergeContent(tar_wb)
End Sub
'函数名: CreateWorkbook
'接受参数:无
'返回值:Workbook(返回创建的Workbook)
'说明:创建一个Excel文件,存放合并的数据
Private Function CreateWorkbook() As Workbook
Dim fileName As String
Dim filePath As String
Dim nowDate As String
nowDate = CDate(Now())
nowDate = Replace(nowDate, ":", "")
nowDate = Replace(nowDate, "/", "")
nowDate = Replace(nowDate, " ", "_")
filePath = ThisWorkbook.path & "\"
fileName = filePath & nowDate & "_汇总表.xlsx"
Dim newBook As Workbook
Set newBook = Workbooks.Add
With newBook
.SaveAs fileName
End With
Set CreateWorkbook = newBook
End Function
'函数名: MergeContent
'接受参数:targetWorkbook(合并后的数据存放的Workbook对象)
excel 批量合并多个sheet的数据
最新推荐文章于 2024-08-23 06:34:22 发布
这篇博客介绍了如何利用VBA编写两个函数, Creatworkbook 和 MergeContent,来实现批量合并Excel文件中的多个Sheet。通过创建新Excel并命名以日期和时间,将所有Sheet的内容整合到一起。当源数据变动时,只需重新运行代码即可完成更新。文章还提供了操作的动图辅助理解。
摘要由CSDN通过智能技术生成