合并当前目录下所有工作簿的全部工作
来源:高中英语教学交流网
发布时间:2019-01-10 10:18:00
查看次数:
内容提要:合并当前目录下所有工作簿的第一个工作表,且只保留一个表头
有时候需要合并多个分班表格,一般做法是一个一个复制粘贴,其实可以使用这种快捷的方法。
VBA代码如下。
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As String, G As Long, Num As Long
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
If Num = 1 Then
'Wb.Sheets(1).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(1).UsedRange.Copy .Cells(1, 1)
Wb.Sheets(1).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
End If
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄的工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
- 相关文章
- ·我的电脑图标不见了怎么办?10-29·EXCEL输入的技巧08-11·巧用Excel数组公式统计各班优秀人数04-24·一步去掉页眉横线的方法08-02·快速增加共享打印机的代码05-17·用vlookup从右向左查询(逆向查询)吗?01-20·解决桌面IE图标或者我的电脑无法删除02-20·磁带转录成MP3操作方法 09-23·如何让试题的ABCD选项对齐04-13·微信公众号音频音乐提取方法10-19
- 最新文章
- ·视频号视频的四种下载方法07-07·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·Excel 进行学生成绩统计分析03-13·不同电脑文件字体改变了的解决方法12-15·我的电脑图标不见了,怎么找回来!09-14·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05·Excel如何批量插入分页符02-12·巧用Excel数组公式统计各班优秀人数04-24
2008-2024 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号
点击这里识别二维码关注公众号