chmod 777 文件夹下所有文件_提取文件夹下所有Excel文件名

需要提取下图文件夹中，所有XLSX格式的文件名称。

图 1 需求示例

可以通过如下一段VBA代码实现：

----------------------------------------------------------------------------------------------

Sub 提取文件名()

Dim i, j As Integer

Dim mypath, myworkbook

mypath = ThisWorkbook.Path

myworkbook = Dir(mypath & "" & "*.xlsx", vbNormal)

ThisWorkbook.Sheets("汇总表").Range("B2:B65536").ClearContents

i = 2

Do While myworkbook <> ""

If myworkbook <> ThisWorkbook.Name Then

ThisWorkbook.Sheets("汇总表").Cells(i, 2) = myworkbook

End If

myworkbook = Dir

i = i + 1

Loop

End Sub

-----------------------------------------------------------------------------------------------

整个过程如下：

知乎视频​www.zhihu.com