您的位置:程序门 -> 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,得向大家多多学习了。


快速检索

最新资讯
热门点击