【ChatGPT智能分析】合并工作簿

用ChatGPT自动生成代码,十倍提升工作效率
怎样提问,生成不需要修改的代码?
纸质图书:《智能分析:ChatGPT+Excel+Python超强组合玩转数据分析》 京东当当
视频课程:点这里,超值套餐,系统学习Python办公自动化

================================================================

合并工作簿

【问题描述】

与合并不同工作表中的数据类似,只是现在数据是保存在不同Excel工作簿文件中的。

【示例4-5】

本例使用的Excel文件的完整路径为“D:/Sam

  • 7
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
在 VBA 中合并多个工作簿可以通过以下步骤实现: 1. 打开一个新的空白工作簿 2. 创建一个变量来存储所有要合并工作簿的文件名(路径) 3. 循环遍历每个文件名,打开工作簿并将其内容复制到新工作簿中 4. 关闭所有要合并工作簿 下面是一个示例代码: ```vb Sub MergeWorkbooks() Dim MyPath As String Dim FilesInPath As String Dim MyFiles() As String Dim SourceWorkbook As Workbook Dim DestWorkbook As Workbook Dim LastRow As Long '设置要合并工作簿所在的文件夹路径 MyPath = "C:\Users\Username\Desktop\Workbooks\" '获取所有要合并工作簿的文件名 FilesInPath = Dir(MyPath & "*.xlsx") Do While FilesInPath <> "" If FilesInPath <> ThisWorkbook.Name Then ReDim Preserve MyFiles(0 To UBound(MyFiles) + 1) MyFiles(UBound(MyFiles)) = MyPath & FilesInPath End If FilesInPath = Dir() Loop '打开新工作簿并复制所有工作簿的内容到其中 Set DestWorkbook = Workbooks.Add(xlWBATWorksheet) For Each File In MyFiles Set SourceWorkbook = Workbooks.Open(File) LastRow = DestWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row SourceWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy _ DestWorkbook.Sheets(1).Range("A" & LastRow + 1) SourceWorkbook.Close SaveChanges:=False Next File '保存合并后的工作簿并关闭 DestWorkbook.SaveAs Filename:=MyPath & "MergedWorkbooks.xlsx" DestWorkbook.Close SaveChanges:=True End Sub ``` 在上面的代码中,将要合并工作簿所在的文件夹路径存储在变量 `MyPath` 中。然后使用 `Dir` 函数获取所有要合并工作簿的文件名,并将它们存储在数组 `MyFiles` 中。接下来,使用 `Workbooks.Add` 方法打开一个新的工作簿,并使用 `For Each` 循环遍历数组中的每个文件名。在循环中,使用 `Workbooks.Open` 方法打开每个工作簿,并将其内容复制到新工作簿中。最后,使用 `SaveAs` 方法将新工作簿保存到指定路径,并使用 `Close` 方法关闭它。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Data_Hunter

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值