如何提取多个文件下的excel文件名并按顺序排列

tchenhen

用VBA提取单个文件下的文件可以实现。请高后指点如何提取多个文件下的文件并按顺序排列。

zldccmx

原帖由 tchenhen 于 2009-8-30 17:51 发表
用VBA提取单个文件下的文件可以实现。请高后指点如何提取多个文件下的文件并按顺序排列。

多个文件下的文件？
是不是多个目录下的文件？

zldccmx

      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-8-30 下午 06:47:53
Sub zldccmx()
    Dim Fp, Dic, Fn
    Set Dic = CreateObject("Scripting.Dictionary")
    Do
        Fp = Application.GetOpenFilename("EXCEL 文件(*.xls), *.xl*", , "请选择一个目录")
        If Fp = False Then Exit Do
        Fp = Left(Fp, InStrRev(Fp, "\"))
        Fn = Dir(Fp & "*.xl*")
        Do While Fn <> ""
            Dic(Fp & Fn) = ""
            Fn = Dir
        Loop
    Loop
    If Dic.Count > 0 Then
        With Sheets.Add.[a1].Resize(Dic.Count, 1)
            .Value = WorksheetFunction.Transpose(Dic.keys)
            .Sort [a1]
        End With
    End If
End Sub

tchenhen

我的E盘下有六个文件夹,甲A、甲B、乙A、乙B、丙A、丙B，如何打开一份汇总表，让表格里的第一列自动提取上述六个文件夹里的XLS文件，并按升序排列，请高手指教。

thtfzhaobo

文件名、sheet，还是文件内容？
老朽做了文件名

tchenhen

不好意思,是文件名

tchenhen

是提取六个文件夹里的XLS文件名

zldccmx

多文件夹下提取文件清单.rar (9.89 KB, 下载次数: 263)

2009-8-31 12:04 上传

点击文件名下载附件

[ 本帖最后由 zldccmx 于 2009-8-31 16:28 编辑 ]

tchenhen

非常感谢老朽的指教，不过我想要的不是现在这种情况，你所做的是要逐个打开文件，我指的是我打开一个表格时（如第一页），那么在这页的任一列或第一列自动提取多个文件夹（有六个）里的xls文件，而不是要一个个去打开。

zldccmx

原帖由 tchenhen 于 2009-8-31 15:27 发表
非常感谢老朽的指教，不过我想要的不是现在这种情况，你所做的是要逐个打开文件，我指的是我打开一个表格时（如第一页），那么在这页的任一列或第一列自动提取多个文件夹（有六个）里的xls文件，而不是要一个个去打开 ...

上传你的附件，目录已知则更容易