上一篇 | 这是最后一篇日志下一篇
学习课件 订阅所有学习课件的日志

excel合并多个文件的模块Alt+F11


    Sub sheets2one()

    '定义对话框变量

    Dim cc As FileDialog

    Set cc = Application.FileDialog(msoFileDialogFilePicker)

    Dim newwork As Workbook

    Set newwork = Workbooks.Add

    With cc

    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:=newwork.Worksheets(i)

    newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

    tempwb.Close SaveChanges:=False

    i = i + 1

    Next vrtSelectedItem

    End If

    End With

    Set cc = Nothing

    End Sub

下载文件 点击下载此文件,导入即可执行



[本日志由 admin 于 2018-03-22 11:24 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 657
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭