如何把几个Excel文件合并在一起？

EXCEL如何把几个文件，合并在一起的方法如下：

1、复制粘贴法，就是把需要合并的文档打开，把后面的文档的内容全选复制后，粘贴到第一个文档适当的位置。

2、公式法，在第一个表格中需要的位置写好公式，从其它的表格中提取数据，设置好公式后，相关的内容就都合并在一起了。

3、编程法。可以根据需要，编写一段vba程序，从各个文件中读出数据，然后统一写到一个文档中，这样就合并在一起了。

合并选择的多个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、根据得到的名称结果，将同名的合并到一起

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

---