Excle 多个文档合并为一个分多个sheet页

最新推荐文章于 2021-08-06 14:29:51 发布

Z·y.freiheit

最新推荐文章于 2021-08-06 14:29:51 发布

阅读量387

点赞数

文章标签：经验分享

本文链接：https://blog.youkuaiyun.com/qq_41834873/article/details/106114456

版权

鼠标放在sheet页标签上邮件选择查看代码
出现在这里插入图片描述
键入一下代码：

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match