如何将几百个excel表汇总到一个excel簿中，并且每个sheet在个excel簿中都独立存在

cicihuanying

如何将几百个excel表汇总到一个excel簿中，并且每个sheet在个excel簿中都独立存在？
在网上找了一个代码，但是总是运行错误，请各位大神指导，谢谢了！
以下代码标红的部分是报错的语句。
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename_
(FileFiler='Micrsofe Excel文件(*.xls),*.xls',_
MultiSelect=True,Title:='要合并的文件')
'GoTo errhandler
End If
x = 1
While x<=UBound(Filename:=FilesToOpen(x))
wk.Sheet().Move after:=ThisWorkbook.Sheets_(ThisWorkbook.Sheets.Count)
x = x1
Wend
MsgBox '合并成功完成！’
errhandler:
'MsgBox Eee.Description
'Resume errhandler
End Sub

wenli904

代码宝里面有合并多个工作表的代码，你可以参考
Sub hebing()
    Dim sht As Worksheet
    Set sht = Worksheets("?????")
    sht.Rows("2:65536").Clear      
    Dim wt As Worksheet, xrow As Integer, rng As Range
    For Each wt In Worksheets
        If wt.Name <> "?????" Then
            Set rng = sht.Range("A1048576").End(xlUp).Offset(1, 0)
            xrow = wt.Range("A1").CurrentRegion.Rows.Count - 1
            wt.Range("A2").Resize(xrow, 7).Copy rng
        End If
    Next
End Sub

cicihuanying

wenli904 发表于 2019-11-15 22:52
代码宝里面有合并多个工作表的代码，你可以参考
Sub hebing()
    Dim sht As Worksheet

？？？是什么意思？

cicihuanying

wenli904 发表于 2019-11-15 22:52
代码宝里面有合并多个工作表的代码，你可以参考
Sub hebing()
    Dim sht As Worksheet

运行的时候显示下标越界，运行错误