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

tchenhen · 发表于 2009-8-30 17:51

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

zldccmx · 发表于 2009-8-30 18:12

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

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

zldccmx · 发表于 2009-8-30 18:48

   '撰写:老朽
   '网址: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 · 发表于 2009-8-31 08:55

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

thtfzhaobo · 发表于 2009-8-31 09:28

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

tchenhen · 发表于 2009-8-31 09:35

不好意思,是文件名

tchenhen · 发表于 2009-8-31 09:38

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

zldccmx · 发表于 2009-8-31 12:04

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

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

tchenhen · 发表于 2009-8-31 15:27

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

zldccmx · 发表于 2009-8-31 15:55

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

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

		自动登录	找回密码
密码			免费注册

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

自动提取六个文件下的xls文件,并按一定的顺序排列