前两天有篇VBA的文章,,然后在其他平台有朋友问道它的反向操作有没有VBA的代码,表示我也找到了,分享给大家。 适用情形比如下面一堆的各部门文件过来需要进行汇总(说到底就是做成一个文件,,,),然后就可以用到了。 首先是一堆的文件。 Sub 合并工作薄 Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="MicroSoft Excel文件(*.xls), *.xls", _ MultiSelect:=True, Title:="要合并的文件") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "没有选中文件" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x) Sheets.MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End sub |