爱问知识人 爱问教育 医院库

关于excel VBA的问题:如何把不同文件夹的文件提取到同一文件夹?

首页

关于excel VBA的问题:如何把不同文件夹的文件提取到同一文件夹?

关于excel VBA的问题:如何把不同文件夹的文件提取到同一文件夹?问题描述:文件夹topFolder里面包含若干个subFolder.
subFolder里面有若干个xls文件。

目标:把所有,或部分(要求可控)子文件夹里面的xls文件汇总到topFolder之下。

请问用VBA如何处理??谢谢~!

提交回答
好评回答
  • 2011-12-14 20:05:41
    附件中的VBA宏,遍历指定路径(包括所有下级子文件夹),将其所有.xls文件列出,
    并拷贝到指定文件夹中(该指定路径和文件夹应存在)。
    可以修改为其它文件
    也可以添加条件,只拷符合条件的文件。

    l***

    2011-12-14 20:05:41

其他答案

    2011-12-18 10:52:02
  • luo大师就可以了,很不错的。。

    2***

    2011-12-18 10:52:02

  • 2011-12-13 10:24:57
  • Sub 按钮1_单击()
    Set fso = CreateObject(" lesystemobject")
       Set fsub =  tfolder(ThisWorkbook.Path & "\topFolder\")
           For Each nfd In  bfolders
                  pyfolder ThisWorkbook.Path & "\topFolder\" & nfd.Name, ThisWorkbook.Path & "\topFolder\", True
                Next
                 
              Set fso = Nothing
                
    End Sub
    subFolder中不存在子文件夹吧???如果,存在,再存在,就有点复杂.

    1***

    2011-12-13 10:24:57

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):