Excel

Question

我不太擅长VBA。我正在尝试创建一个函数来计算以 3 开头的文件夹中有多少子文件夹，例如：

C:\Files\ <This is the main folder>

如果只有一个名为 32156 的子文件夹，它将 return 1

的结果

我发现了很多计算子文件夹的脚本，但不够熟悉，无法修改它们。

Answer 1

试试这个：

    Sub TestCalling()
        MsgBox fGetFolderCount("C:\Files", "3")
    End Sub



    Function fGetFolderCount(ByVal FolderPath As String, Optional ByVal Prefix As String = vbNullString) As Long

        Dim D As Variant
        Dim C As Long
        D = Dir(FolderPath & Application.PathSeparator & Prefix & "*", vbDirectory)

        While D <> ""
            If Left(D, 1) <> "." Then
                C = C + 1
            End If
            D = Dir
        Wend

        fGetFolderCount = C

    End Function

Excel - 计算特定的命名文件夹

Excel - Count specific named folders

vba

count

directory