问题描述:若干个工作簿,每个工作簿里有一个工作表,如何利用VBA把若干工作簿里的表保存到一个新建的工作簿里,并单独成表?
4条回答
- VBA-守候 2021-11-30 12:42关注
VBA:用 Dir() 函数完成多工作簿合并
一 合并之前的文件夹和文件
文件夹
文件
二 代码
Sub 多工作簿合并_Dir函数方法() Dim fName As String, fPath As String, suffStr As String, newFile As Workbook, opFile As Workbook, newSht As Worksheet Application.ScreenUpdating = False Set newFile = Workbooks.Add fPath = "E:\Zhuomian_CJ\ZZZ\VBA\答网友问" fName = Dir(fPath & "\", vbNormal) Do While fName <> "" suffStr = Split(fName, ".")(UBound(Split(fName, "."))) If suffStr Like "xls*" Then Set opFile = Workbooks.Open(fPath & "/" & fName) 'Debug.Print fName, suffStr Set newSht = newFile.Worksheets.Add(after:=newFile.Sheets(newFile.Sheets.Count)) opFile.Sheets(1).UsedRange.Copy newSht.Range("a1") newFile.ActiveSheet.Name = Left(fName, Len(fName) - Len(suffStr) - 1) & "_" & opFile.Sheets(1).Name Set newSht = Nothing opFile.Close xlDoNotSaveChanges Set opFile = Nothing End If fName = Dir Loop With newFile .SaveAs fPath & "/合并文件.xlsx" .Close xlSaveChanges End With Application.ScreenUpdating = True MsgBox "合并完成!" Set newFile = Nothing End Sub
三 执行代码后的文件效果
有任何【Office办公软件/办公自动化/文件批处理】的问题,欢迎和我交流!
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥15 镍氢电池充电器设计实物使用原理
- ¥15 逻辑谓词和消解原理的运用
- ¥15 三菱伺服电机按启动按钮有使能但不动作
- ¥15 js,页面2返回页面1时定位进入的设备
- ¥50 导入文件到网吧的电脑并且在重启之后不会被恢复
- ¥15 (希望可以解决问题)ma和mb文件无法正常打开,打开后是空白,但是有正常内存占用,但可以在打开Maya应用程序后打开场景ma和mb格式。
- ¥20 ML307A在使用AT命令连接EMQX平台的MQTT时被拒绝
- ¥20 腾讯企业邮箱邮件可以恢复么
- ¥15 有人知道怎么将自己的迁移策略布到edgecloudsim上使用吗?
- ¥15 错误 LNK2001 无法解析的外部符号