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

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

工具/原料

• 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单元格以下生成该文件夹路径所有文件名（含后缀名）了，这样提取文件名轻松多了。