Question

我想知道1个特定文件夹中有多少个文件扩展名为.xls。我用消息框阅读了数百个例子，但这不是我想要的。我只想将数字显示在1 cel。

有人喜欢帮我吗？我无法发布任何尝试，因为我无法开始： - （

最好的问候，即

Answer 1

尝试以下代码：

在运行以下代码之前，将文件夹的路径分配给变量FolderPath。

Sub sample()

    Dim FolderPath As String, path As String, count As Integer
    FolderPath = "C:\Documents and Settings\Santosh\Desktop"

    path = FolderPath & "\*.xls"

    Filename = Dir(path)

    Do While Filename <> ""
       count = count + 1
        Filename = Dir()
    Loop

    Range("Q8").Value = count
    'MsgBox count & " : files found in folder"
End Sub

计算特定文件夹中的文件并将数字显示为1个单元格

1 个答案: