VBA 批量合并workbook工作簿至主workbook工作簿的多个worksheet工作表中

本文链接：https://blog.csdn.net/weixin_41706566/article/details/94505027

前言：此程序是将多个工作簿汇总至主工作簿的多个工作表中，且每个工作表的name是对应的工作簿的name。

Sub 批量合并workbook至主workbook的多个worksheet中()

    '1.批量打开文件，将文件路径记录到数组f中
    f = Application.GetOpenFilename(FileFilter:="Excel文件(*.xls; *.xlsx),*.xls;*.xlsx,所有文件(*.*),*.*", Title:="Excel选择", MultiSelect:=True)
    
    '2.建立当前workbook自变量
    Set t = ThisWorkbook 'thisworkbook指的是当前VBA代码所在的workbook
    Application.ScreenUpdating = False '关闭刷新，提高效率
    
    '3.对数组f包含的文件路径，批量合并到Excel主文件簿（即thisworkbook->t）中。
    For Each f1 In f
        Set tsh = t.Sheets.Add '在主文件薄中创建工作表
        
        Set w = Workbooks.Open(f1)
        Set wsh = w.Sheets(1) '指定所需合并工作表，这里是第一张工作表
    
        wname = Left(w.Name, InStr(w.Name, ".xl") - 1) '工作表命名
        tsh.Name = wname
        wsh.UsedRange.Copy tsh.Range("A1") '工作表复制
        w.Close '关闭工作表
    Next f1
    
    Application.ScreenUpdating = True  '重启刷新
End Sub