批量将多个excel中的多个工作簿合并到一个excel中批量将多个excel中的多个工作簿合并到一个excel中
将要合并的excel放到一个文件夹中,在这个目录中新建一个excel。
打开新建的excel。
按alt+F11。
单击【插入】菜单,【模块】。
将下面的东东复制进去,关闭对话框。
选中刚才插入的模块。
点击【运行】菜单,【运行宏】。
在弹出的对话框中选中【Combinefiles】,单击【运行】
搞定。
Sub CombineFiles()
Dim path As String
Dim FileName As String
Dim...
批量将多个excel中的多个工作簿合并到一个excel中
将要合并的excel放到一个文件夹中,在这个目录中新建一个excel。
打开新建的excel。
按alt+F11。
单击【插入】菜单,【模块】。
将下面的东东复制进去,关闭对话框。
选中刚才插入的模块。
点击【运行】菜单,【运行宏】。
在弹出的对话框中选中【Combinefiles】,单击【运行】
搞定。
Sub CombineFiles()
Dim path As String
Dim FileName As String
Dim LastCell As Range
Dim Wkb As Workbook
Dim WS As Worksheet
Dim ThisWB As String
Dim MyDir As String
MyDir = ThisWorkbook.path & "\"
'ChDrive Left(MyDir, 1) 'find all the excel files
'ChDir MyDir
'Match = Dir$("")
ThisWB = ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path = MyDir
FileName = Dir(path & "\*.xls", vbNormal)
Do Until FileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address
Then
Else
WS.Copy
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Set Wkb = Nothing
Set LastCell = Nothing
End Sub
本文档为【批量将多个excel中的多个工作簿合并到一个excel中】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。