Question

EXCEL中VB编程中如何提取文件名

已知D:\统计\目录下n个Excel文件,我现在想把这些文件的文件名提取出来,然后再逐个查找这些文件名中有无"检"这个字,把没有该字的文件全部删除
这样的命令怎样写啊
多谢了,达人们!

Answer 1

我曾经做过一个书目管理程序，就是将自己硬盘、光盘的书目名称做成数据库进行管理，想看什么书的时候，可以更快查找出来。
其中有引用文件名的语句，可能对你有帮助：
Dim str As String 'str用于存放文件的名称
Dim i As Integer
l = Forms![新增书目]![导入地址] '可以用窗体输入地址，如果地址固定，也可以自己直接赋值
str = Dir(l) '这里将字符串改为路径
Do While str <> ""
i = i + 1
文件名.Value = str '保存文件名
书名.Value = Trim(Left(str, InStrRev(str, ".", -1) - 1)) ’去掉扩展名，就是书名
DoCmd.GoToRecord , "读取子窗体", acNewRec
str = Dir '得到下一个文件名
Loop

以上为参考，请根据自己的文件名起名特点，自行用字符函数提取相关数据信息。