求助：VBA写code下标越界问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

sample.rar (4.75 KB) 本附件包括：

• TEST1.xls
• TEST2.xls

2013-7-10 07:35:36 上传

待合并文件如下

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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：code 下标越界 ODE COD VBA excel 文件夹 扩展名 False

关于出错1，可能原因：Sheet(1)似乎应该是Sheets(1)，不过没上机试过，不知是不是可以解决问题。