大家好，我用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