杨老师课堂_VBA学习教程之一键合并所有文件-阿里云开发者社区

开发者社区> 云计算> 正文

杨老师课堂_VBA学习教程之一键合并所有文件

简介: 文件合并示例代码:   要求:在C盘中有一个文件夹,文件夹中有文件存在 Sub wjhb() Dim str As String Dim wb As Workbook str = Dir("c:\data\*.

 

文件合并示例代码:

  要求:在C盘中有一个文件夹,文件夹中有文件存在

Sub wjhb()
Dim str As String
Dim wb As Workbook

 
 str = Dir("c:\data\*.*")
 
    For i = 1 To 20
       ' 1 打开文件
     Set wb = Workbooks.Open("c:\data\" & str & "")
          ' 2 从遍历中的某一个工作簿中的第一张表执行拷贝 到这个工作簿中的最后一张表中去
       wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
          ' 3 在这个工作簿中的最后一张表的名字是【已经完成拷贝操作】  = 文件名称
       ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(str, ".")(0)
          '4 遍历中的工作簿执行关闭
       wb.Close
           '下一次遍历
       str = Dir
       
       If str = "" Then
            Exit For
       End If
        
    Next

End Sub

 

End Sub
Sub wjhb2()
Dim str As String
Dim wb As Workbook

 
 str = Dir("c:\data\*.xlsx")
 
    For i = 1 To 20
       
     Set wb = Workbooks.Open("c:\data\" & str & "")
        
       wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
       ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = str
       wb.Close
       str = Dir
       
       If str = "" Then
            Exit For
       End If
        
    Next
End Sub

 

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

其他文章