把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里

Posted 忘蓝穹

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里相关的知识,希望对你有一定的参考价值。


     实现的功能是把多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里,并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007,但是Excel2003应该也能用,Excel2000似乎不能用。代码如下:

‘功能:把多个工作簿的第一个工作表合并到一个工作簿的多个工作表,新工作表的名称等于原工作簿的名称

新建的excel新表---书签sheet1--右击查看代码-复制代码进入---运行-选择需要合并的表--OK
Sub Books2Sheets()
    ‘定义对话框变量
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    ‘新建一个工作簿
    Dim newwb As Workbook
    Set newwb = Workbooks.Add

    With fd
        If .Show = -1 Then
            ‘定义单个文件变量
            Dim vrtSelectedItem As Variant

            ‘定义循环变量
            Dim i As Integer
            i = 1

            ‘开始文件检索
            For Each vrtSelectedItem In .SelectedItems
                ‘打开被合并工作簿
                Dim tempwb As Workbook
                Set tempwb = Workbooks.Open(vrtSelectedItem)

                ‘复制工作表
                tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)

                ‘把新工作簿的工作表名字改成被复制工作簿文件名,这儿应用于xls文件,即Excel97-2003的文件,如果是Excel2007,需要改成xlsx
                newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

                ‘关闭被合并工作簿
                tempwb.Close SaveChanges:=False

                i = i + 1
            Next vrtSelectedItem
        End If
    End With

    Set fd = Nothing
End Sub

以上是关于把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里的主要内容,如果未能解决你的问题,请参考以下文章

如何快速的?合并多个excel文件到一个excel里面?

excel多个文件合并一个文件怎么做?

多个EXCEL的CSV文件合并时会把每个文件的表头重复合并到结果文件里,能否让合并结果只有一个表头呢?

怎么把几个Excel合并成一个文件?

如何把多个EXCEL文件汇总到一个EXCEL中?

如何把多个CSV文件的数据变成一个EXCEL表格