送人玫瑰，手有余香，請(qǐng)將文章分享給更多朋友

動(dòng)手操作是熟練掌握EXCEL的最快捷途徑！

【置頂公眾號(hào)】或者【設(shè)為星標(biāo)】及時(shí)接收更新不迷路

小伙伴們好，今天和大家分享一則非常實(shí)用的小技巧。有時(shí)候我們需要知道一個(gè)文件夾下面有多少個(gè)文件，并把這些文件的文件名都提取出來。小時(shí)候我就曾經(jīng)一個(gè)文件一個(gè)文件的復(fù)制名稱，但今天后就不用再做這樣的傻事情了！

題目是這樣子的：

在一個(gè)文件夾中有這樣幾個(gè)文件

這個(gè)文件夾的絕對(duì)路徑是C:\Users\win10\Desktop\Test

怎樣才能很方便地將所有文件的文件名都像下面這樣提取出來呢？

使用公式可以輕松解決這個(gè)問題。公式法要用到FILES函數(shù)，而這個(gè)函數(shù)不能直接在工作表中使用，因此我們首先要?jiǎng)?chuàng)建名稱。

創(chuàng)建名稱的過程就不詳細(xì)介紹了。創(chuàng)建后如下。

在單元格A1中輸入下列公式，向下拖曳即可。

=INDEX(提取文件名,ROW(A1))

公式很簡單，不再贅述了。這里“提取文件名”就是我們創(chuàng)建的名稱。

有時(shí)為了更加靈活一些，還可以按照下面的方式來書寫。我們可以將文件夾路徑復(fù)制粘貼在一個(gè)單元格中。當(dāng)創(chuàng)建名稱時(shí)可以直接引用這個(gè)單元格。

在單元格A1中輸入下列公式，向下拖曳即可。

=INDEX(創(chuàng)建名稱2,ROW(A1))

在這個(gè)名稱中，我們直接引用了包含路徑地址的單元格。

如果使用VBA也是可以輕松解決問題的。

完整的代碼如下：

Sub 提取文件夾中所有文件名稱()    Dim i As Integer, filename As String    filename = Dir("C:\Users\win10\Desktop\測(cè)試\*")    i = 1    Do While filename <> ""        Cells(i, 1) = filename        filename = Dir        i = i + 1    LoopEnd Sub

這里使用了DIR這個(gè)函數(shù)。第一次使用DIR函數(shù)時(shí)，需要給出文件夾的完整地址，它提取出文件夾下第一個(gè)文件的名稱。代碼循環(huán)運(yùn)行后，當(dāng)需要再次使用DIR來提取文件名時(shí)，就不需要再次提供路徑了。

本期內(nèi)容練習(xí)文件提取方式：

鏈接：https://pan.baidu.com/s/1T50JykUOYPrzxkFRhLzaJw?pwd=f7uc

提取碼：f7uc