您的位置：程序门 -> vb -> vba

请问 vba里有没有函数能获取某个目录下所有的文件名，十分感谢

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请问 vba里有没有函数能获取某个目录下所有的文件名，十分感谢[已结贴,结贴人:shun5042]

发表于：2007-09-21 18:25:30 楼主

如题，vba里有没有函数能获取某个目录下所有的文件名。

发表于：2007-09-21 19:19:461楼得分:5

private sub form_load（)
'引用microsoft script runtime
dim f as file, fd as folder
set fd = fso.getfolder（ "c:\ ")
for each f in fd.files
debug.print f.path
next

end sub

发表于：2007-09-21 19:25:052楼得分:2

同楼上

发表于：2007-09-23 12:19:543楼得分:2

dir + 循环也可以。

发表于：2007-09-23 13:00:174楼得分:3

在vba中引用microsoft scripting runtime
打开对象浏览器，选择scripting库，这里面有对磁盘文件系统的所有操作类，具体用法请看msdn帮助

发表于：2007-09-25 09:37:225楼得分:3

用fso对象或dir
配合递归
就可以遍历一棵树

发表于：2007-09-25 14:40:526楼得分:0

谢谢各位了此问题已经解决。另外还有一问题请教：
用 workbooks.open "d:\example.xls " 打开此文件，但我不希望该文件在任务栏窗口显示出来。因为我只需要从这个文件读取一些单元格的数据到另一个文件中。
有什么办法吗？

发表于：2007-09-25 16:20:117楼得分:5

打开文件用
set objexcel = createobject（ "excel.application ")
set objworkbook = objexcel.workbooks.open（ "d:\example.xls ")

关闭时用
objworkbook.close savechanges:=false
objexcel.quit

就可以不现实而在后台运行了。

发表于：2007-09-26 09:49:088楼得分:0

果真如楼上所说。
不过还有些纳闷，workbooks.open 和excel.application.workbooks.open为什么会差这么多呢

第一次用vba，得向大家多多学习了。

下一篇：怎么在word 中开发一个vba能够copy屏幕
上一篇：求vb 对 organization chart 的操作！

其他资讯

您的位置：程序门 -> vb -> vba

请问 vba里 有没有函数 能获取某个目录下所有的文件名 ，十分感谢

请问 vba里有没有函数能获取某个目录下所有的文件名，十分感谢