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

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

工具/原料

  • Excel VBA

  • 电脑

方法/步骤

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

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

  3. 插入了一个模块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

    如图

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

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

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

赞 (0)

相关推荐