首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-03-11 
请问 vba里 有没有函数 能获取某个目录下所有的文件名 ,十分感谢如题,vba里有没有函数能获取某个目录下所

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

[解决办法]
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

[解决办法]
同楼上
[解决办法]
dir + 循环也可以。
[解决办法]
在VBA中引用Microsoft Scripting Runtime
打开对象浏览器,选择Scripting库,这里面有对磁盘文件系统的所有操作类,具体用法请看MSDN帮助
[解决办法]
用fso对象或dir
配合递归
就可以遍历一棵树

[解决办法]
打开文件用
Set objExcel = CreateObject( "Excel.Application ")
Set objWorkbook = objExcel.Workbooks.Open( "d:\example.xls ")

关闭时用
objWorkbook.Close SaveChanges:=False
objExcel.Quit

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

热点排行