excel vba获取目录下的所有文件

2014年11月4日 发表评论 阅读评论

用惯了linux,很不习惯使用windows下的软件思维处理问题。今天遇到了这个一个简单的问题,一个目录里有一部分采集的无用图片,想遍历出来,通过sql语句查看这些图片属于那一篇文章。本来在linux下可以通过ls -1(不是L,是"一 " )获取所有文件的列表。

一、ls -1查看文件列表

[root@91it pic]# ls -1
20141114_01003389.gif
20141114_01012846.jpg
20141114_01014141.png
20141114_01014350.jpg
20141114_01023534.png
20141114_01023535.png
20141114_01023547.jpg
20141114_01023587.jpg
20141114_01023612.png
20141114_01023613.png

二、dir /b 法

由于手头暂时没有linux,又赖得再开虚拟机。所以就想到了win下的dos命令将所有的文件列表输出到文件,再通过excel 公式生成sql 语句。具体可以通过如下命令:

C:UsersAdministrator>dir c:pic /b
20141114_01003389.gif
20141114_01012846.jpg
20141114_01014141.png
20141114_01014350.jpg
20141114_01023534.png
20141114_01023535.png
20141114_01023547.jpg
20141114_01023587.jpg
20141114_01023612.png
20141114_01023613.png
20141114_01023627.png

还支持使用 "dir c:pic /b c:one.xls"支持生成到excel文件中。

三、excel vba生成

本来这两种方法都算是比较完美简单了,不过之前了解过excel 的vba功能很强,也试了下,方法为

打开excel,使用快捷键alt + F11 打开excel vba界面,在相应的sheet工作薄界面使用如下代码:

Sub Iterate_Files()
Dim ctr As Integer
ctr = 1
Path = "C:pic " ' Path should always contain a '' at end
File = Dir(Path) ' Retrieving the first entry.
Do Until File = "" ' Start the loop
  ActiveSheet.Cells(ctr, 1).Value = File
  ctr = ctr + 1
  File = Dir() ' Getting next entry.
Loop
End Sub

然后运行F5 运行,运行完再按ALT+F11返回excel界面,发现所有的文件已经显示到本地列表中。如果想带上文件的路径,可以将第七行更换为: 

ActiveSheet.Cells(ctr, 1).Value = Path & File




本站的发展离不开您的资助,金额随意,欢迎来赏!

分类: windows 标签:
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.