excel批量提取文件夹名

要在Excel中批量提取文件夹名，您可以使用宏（VBA）来完成此任务。以下是一个简单的VBA代码示例，可帮助您提取文件夹名并将其放置在Excel工作表中的一列中：

Sub ExtractFolderNames()
    Dim FolderPath As String
    Dim FileName As String
    Dim FolderName As String
    Dim i As Integer

    ' 设置文件夹路径
    FolderPath = "C:\\Your\\Folder\\Path\\"

    ' 打开文件夹并获取第一个文件名
    FileName = Dir(FolderPath & "*", vbDirectory)

    ' 清空当前工作表的第一列
    Columns(1).Clear

    ' 在第一列中逐行提取文件夹名
    i = 1
    Do While FileName <> ""
        ' 检查是否为文件夹
        If (GetAttr(FolderPath & FileName) And vbDirectory) = vbDirectory Then
            ' 排除 "." 和 ".." 文件夹
            If FileName <> "." And FileName <> ".." Then
                ' 提取文件夹名并写入第一列
                FolderName = FileName
                Cells(i, 1).Value = FolderName
                i = i + 1
            End If
        End If

        ' 获取下一个文件名
        FileName = Dir
    Loop
End Sub

在代码中，您需要修改FolderPath变量的值为您要提取文件夹名的文件夹路径。然后，运行该宏，它将在当前活动的Excel工作表的第一列中提取文件夹名。

请注意，这个示例假设您要提取的是指定文件夹中的所有文件夹名。如果您要提取不同文件夹中的文件夹名，您可以在FolderPath变量中使用一个合适的文件夹路径，然后将提取的文件夹名写入所需的工作表列中。