大家好，我用VBA试图把多个文件合并到一个excel里，并且sheet的名称是要合并的文件的名称，可是怎么 也不行

提示错误1： 下标越界
提示错误2：所要打开文件格式与文件扩展名不符，请检查是否损坏（因为是SAS输出，所以实际是html格式，但是文件时.xls的）

Code如下
Sub 合并文件夹中所有文件()
  Application.ScreenUpdating = False
    Dim spath As String
    spath = InputBox("请输入目录", "合并目录下的文件")
    If spath = "" Then Exit Sub
    mergesheet (spath)
  Application.ScreenUpdating = True
End Sub
Sub mergesheet(ByVal spath As String)
    Dim fs, fd, fl As Object
    Dim xlbook As Workbook
    Dim xlsheet As Worksheet
    Dim i_cnt As Integer
    i_cnt = 1
    Set fs = CreateObject("scripting.filesystemobject")
    Set fd = fs.getfolder(spath)
    For Each fl In fd.Files
    Set xlbook = Application.Workbooks.Open(spath + "\" + fl.Name)
    xlbook.Worksheet.Copy Before:=Workbooks("Book1").Sheet(1)
    Cells.Select
    Range("B2").Activate
    Cells.EntireColumn.AutoFit
    xlbook.Activate
    xlbook.Close
    Next
End Sub