VBA应用—合并选择的多个excel文件下所有的工作表合并到一个工作簿里

合并选择的多个excel文件下所有的工作表合并到一个工作簿里

Sub test()

Dim str()

Dim i As Integer

Dim wb, wb1 As Workbook

Dim sht As Worksheet

On Error Resume Next '加上以后防止点了取消发生的错误

Set wb1 = ActiveWorkbook

Set sht1 = ActiveSheet

On Error Resume Next

str = Application.GetOpenFilename("Excel数据文件,*.xls*", , , ,  True )

'  true  代表可多选工作簿 "Excel数据文件,*.xls*"  显示类型为xls的文件

    For i = LBound(str) To UBound(str)

'  LBound(str)  数组下限 UBound(str)  数组上限

        Set wb = Workbooks.Open(str(i))

        For Each sht In wb.Sheets

   销镇薯    旅饥    亏者 sht.Copy after:=wb1.Sheets(wb1.Sheets.Count)

            wb1.Sheets(wb1.Sheets.Count).Name = Split(wb.Name, ".")(0) &sht.Name

        Next

        wb.Close

    Next

End Sub

这个需要则卖消的知识点大致有以下几点：

1、会用VBA打开文件夹，遍历文件夹内的文件目录，

2、逐个找出文孙知件夹内的EXCEL文件－用EXCEL打开它，并读出其每个SHEET的名称

3、根据得到的名称结果，将同名的合并到一起

－－－－－－配冲－－－－－－－以上，你是卡在哪一步了呢，说具体点，或者你也可以将你的源程序发上来，让大家帮你分析一下呗

---