VBA常用小代码201:批量获取指定文件夹下文件名

摘要: 获取指定文件夹下文件的名称

10-30 23:28 首页 Excel之家ExcelHome

哈喽小伙伴们好,我是人见人爱的男神星光。今天说说如何获取指定文件夹下文件的名称。

很久以前(2年前?)我们分享过DOS的方法,操作动画如下:

VBA可以通过Wscript.Shell调用DOS语句,以后我们可能会分享到这部分内容~所以这里先简单说下动画中DOS语句的意思

DIR *.*/B>LIST.TXT

DIR可以简单理解成函数。

*.*  *是通配符,第一个*是文件名,第二个*是文件格式。如果只要excel文件,就修改为*.xls。

/b 是使用空格式,没有标题信息之类的。

list.txt是生成的文件类型和名字。

综上所述,如果是生成excel文件的目录,并以excel来呈现,命名为目录,语句就改为DIR *.xls /B >目录.xls

..

除了DOS的方法还有函数法以及我们今天分享的VBA法。

函数法如下图所示。

看我眼睛,先声明,动画里的政治经济学和我没关系啊,别找我要种子……


最后说下VBA的方法,照例先上操作动画:

代码的核心是DIR语句,注释部分业已作了解释,这里就不再啰嗦了。



Sub FileDir()

    Dim p$, f$, k&

        获取用户选择文件夹的路径

    With Application.FileDialog(msoFileDialogFolderPicker)

   选择文件夹

        .AllowMultiSelect = False

        不允许多选

        If .Show Then

            p = .SelectedItems(1)

            选择的文件路径赋值变量P

        Else

            Exit Sub

            如果没有选择保存路径,则退出程序

        End If

    End With

    If Right(p, 1) <> "\" Then p = p & "\"

    f = Dir(p & "*.*")

    返回变量P路径下带任意扩展名的文件名。如果超过一个文件存在,函数将返回按条件第一个找到的文件名。

    如果一个文件都没有,则f返回""

    [a:a].ClearContents 清空A列数据

    [a1] = "目录"

    k = 1 K

    Do While f <> "" 如果f不等于"",则…

        k = k + 1 累加K

        Cells(k, 1) = f

        f = Dir

        若第二次调用 Dir 函数,但不带任何参数,则将返回同一目录下的下一个文件。

    Loop  

    MsgBox "OK"

End Sub



小思考:

如何用VBA判断某个文件夹下是否存在名称为“看见星光”的工作簿?方法有很多种哦~

VBA编程学习与实践


首页 - Excel之家ExcelHome 的更多文章: