怎样批量提取文件夹下文件名

来源：互联网 2023-02-20 17:42:05 440

电脑操作时，经常要用到电脑文件夹下文件名，常规方法是在文件夹下选文件名重命名，复制文件名，在相应录入软件粘贴文件名。如果要用到成百上千个文件名，按这种方法那多费时费力，同时也无法复制文件后缀名。那下面介绍一个简单省时省力的处理方法。

工具/原料

Excel VBA
电脑

方法/步骤

打开Microsoft Office Excel 2007，在Sheet1表填写如图内容。

怎样批量提取文件夹下文件名

按下快捷键ALT F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

怎样批量提取文件夹下文件名

插入了一个模块1，在代码框中复制如下代码：

Sub 列举文件名()

Dim m1$, m$, r%

m1 = Range("b1").Text

On Error Resume Next

Range("a4:c1000000").ClearContents

m = Dir(m1 & "", vbReadOnly)

r = 3

Application.ScreenUpdating = False

While m > ""

r = r 1

Range("a" & r).Value = r - 3

Range("b" & r).Value = m

Range("c" & r).Value = FileDateTime(m1 & "" & m)

m = Dir

Wend

Application.ScreenUpdating = True

MsgBox "完成"

End Sub

如图

怎样批量提取文件夹下文件名

下面介绍怎样列举文件名操作，以“F:考试书本”文件夹为例，内容如图。

怎样批量提取文件夹下文件名

4该信息未经许可获取自百度经验

在Excel 窗口表Sheet1中B1单元格输入“F:考试书本”，然后菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选宏名“列举文件名 ”点【执行】，在表Sheet1显示列文件名，如图。

怎样批量提取文件夹下文件名

为了方便操作增加一个命令按钮，操作方法是：在工具栏中点【插入控件】（参考“Excel如何将命令添加到工具栏”操作）列表中【按钮（窗体控件）】，在表Sheet1空的单元格窗选一个命令按钮后，打开“指定宏”对话框，选宏名“列举文件名”，再【确定】。然后将【按钮1】改名为【B1输入列举文件名】如图。在B1单元格输入文件夹路径，按下【B1输入列举文件名】命令按钮，就可以在B4单元格以下生成该文件夹路径所有文件名（含后缀名）了，这样提取文件名轻松多了。

0Excel如何将命令添加到工具栏

怎样批量提取文件夹下文件名