Question

excel怎样用vba自动提取文件夹内的文件名

Answer 1

excel中用vba实现自动提取文件夹内的文件名的方法如下：

1、新建一个vba宏脚本

2、写入如下代码：

Function GetFileList(FileSpec As String) As Variant

'   Returns an array of filenames that match FileSpec

'   If no matching files are found, it returns False

    Dim FileArray() As Variant

    Dim FileCount As Integer

    Dim FileName As String

    

    On Error GoTo NoFilesFound

    FileCount = 0

    FileName = Dir(FileSpec)

    If FileName = "" Then GoTo NoFilesFound

'   Loop until no more matching files are found

    Do While FileName <> ""

        FileCount = FileCount + 1

        ReDim Preserve FileArray(1 To FileCount)

        FileArray(FileCount) = FileName

        FileName = Dir()

    Loop

    GetFileList = FileArray

    Exit Function

'   Error handler

NoFilesFound:

    GetFileList = False

End Function

3、传入文件路径就可以获取文件名到指定的excel表格中

4、结果：

Answer 2

qgrmdtj的代码生成的是"文件名",这和楼主的要求一样,而"喜欢自作多情
"生成的结果是代路径的,好像和提问有点偏差.

Answer 3

试问，文件夹路径为何？