码迷,mamicode.com
首页 > 其他好文 > 详细

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

时间:2017-09-27 19:03:44      阅读:194      评论:0      收藏:0      [点我收藏+]

标签:sub   sele   需要   第一个   var   sof   开发环境   not   bsp   


     实现的功能是把多个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)里

标签:sub   sele   需要   第一个   var   sof   开发环境   not   bsp   

原文地址:http://www.cnblogs.com/ffhblogs/p/7603097.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!