把当前文件夹的xlsx或xls文件合并到一个excel文件中的不同sheet中
2024-09-27 17:11:01
把当前文件夹的xlsx或xls文件合并到一个excel文件中的不同sheet中步骤如下:
把需要合并的文件放到同一个文件夹
在该文件夹中新建一个excel文件
打开新建的excel问价,把鼠标放到sheet那,右键鼠标,选择“查看代码”
在代码框输入下面的代码
Private Sub copy_csvfile_to_excel()
Dim mPath$, mFile$, AK As Workbook
Application.ScreenUpdating = False
mPath = ThisWorkbook.Path & "\"
mFile = Dir(mPath & "*.xls")
Do While mFile <> ""
If mFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(mPath & mFile)
AK.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Workbooks(mFile).Close
End If
mFile = Dir
Set AK = Nothing
Loop
Application.ScreenUpdating = True
ActiveWorkbook.Save
MsgBox "汇总完成!", 64, "提示"
End Sub
然后就等它自动汇总就可以啦!
最新文章
- js正则匹配过滤 特殊字符
- 数据库SQL语句学习--view
- 在PHP中遍历数据库表中的数据
- js对象的创建与原型总结
- myeclipse9或myeclipse10安装svn的方法
- xss-跨站脚本攻击-后台传给前端的html标签安全显示
- HDU 4708:Rotation Lock Puzzle
- 谈谈三层架构中Model的作用
- .NET中的注释种类,单行注释、多行注释、文档注释。。。
- android.support.v4.widget.DrawerLayout使用
- (转)CSS字体大小: em与px、pt、百分比之间的对比
- 简识UML语言(转)
- 冒泡排序和选择排序(Go语言实现)
- Selenium_WebDriver登录模拟鼠标移动切换窗体等操作练习(cssSelector初练手)_Java
- 数据结构与算法(九):AVL树详细讲解
- 手机APP应用外网访问本地WEB应用
- Python实现快速排序--数据结构
- JAVA-8大基本类型与包装类的例子(基础必备)
- Excel中substitute替换函数的使用方法
- MVC 视图不使用模板页的两种方法