Vba Excel-计数特定的命名文件夹

我不太擅长VBA。我正在尝试创建一个函数，用于计算以

3

开头的文件夹中有多少子文件夹，例如：

C:\Files\

如果只有一个子文件夹名为

32156

，它将返回

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

Sub TestCalling（）
MsgBox fGetFolderCount（“C:\Files”、“3”）
端接头
函数fGetFolderCount（ByVal FolderPath为字符串，可选ByVal前缀为String=vbNullString）的长度为
作为变体的dimd
尺寸C与长度相同
D=Dir（FolderPath&Application.pathseptor&Prefix&“*”，vbDirectory）
而D“
如果左（D，1）”，则
C=C+1
如果结束
D=Dir
温德
fGetFolderCount=C
端函数

这些示例脚本有什么问题吗？谢谢Arya，在电子表格中如何调用此函数？我应该只分配一个按钮吗（抱歉，可能是一个非常蹩脚的问题，还在学习）Hi Jayson-你可以把这个函数放在一个模块中，然后调用一个单元格，根据需要传递参数，或者你可以像调用TestCalling一样调用这个函数