excel读取文件夹内文件名

在Excel中，可以使用VBA（Visual Basic for Applications）编写宏来读取文件夹内的文件名。以下是一个简单的示例，演示如何读取特定文件夹中的所有文件名并将它们显示在Excel工作表中。

1. 首先，打开你需要读取文件名的Excel工作簿。

2. 按下Alt + F11，打开Visual Basic for Applications（VBA）编辑器。

3. 在VBA编辑器中，点击插入（Insert）菜单，然后选择模块（Module），这将在项目浏览器中创建一个新的模块。

4. 在新的模块中，粘贴以下VBA代码：

Sub GetFileNamesInFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim i As Integer

    ' 修改为你要读取的文件夹的路径
    folderPath = "C:\\YourFolderPath\\"

    ' 如果文件夹路径不以反斜杠（\\）结尾，添加一个反斜杠
    If Right(folderPath, 1) <> "\\" Then
        folderPath = folderPath & "\\"
    End If

    ' 在第一列开始的第二行（A2单元格）显示文件名
    i = 2

    ' 使用Dir函数获取文件名
    fileName = Dir(folderPath & "*.*")

    Do While fileName <> ""
        ' 将文件名显示在工作表中
        Cells(i, 1).Value = fileName
        i = i + 1

        ' 继续查找下一个文件
        fileName = Dir
    Loop

    MsgBox "已读取 " & i - 2 & " 个文件名。"

End Sub

1. 修改代码中的folderPath变量，将其设置为你要读取文件名的文件夹的实际路径。

2. 按下F5运行宏，它将读取指定文件夹中的所有文件名并将它们显示在Excel工作表的第一列中。

请注意，这个示例中的代码仅读取文件名，不会读取文件的内容。如果需要处理文件内容，需要使用其他的VBA函数和方法。

另外，如果Excel文件包含宏，可能需要启用宏才能运行VBA代码。