在表中监控文件夹中文件个数

lczzzzzzz

求助各位大神，如何利用EXCEL表监控文件夹中的文件数量。

limonet

到底要不要“手工刷新”？

lczzzzzzz

limonet 发表于 2024-5-12 19:16
到底要不要“手工刷新”？

增加文件后，表中数据要变，但不要手工刷。

limonet

增加文件后，表中数据要变，但不要手工刷。
另请高明

明天会更好zj

可以用workbooks激活事件

perfect131

lczzzzzzz 发表于 2024-5-12 19:59
增加文件后，表中数据要变，但不要手工刷。

写个vbs 定时刷新 但挺耗内存

Qs18

不刷新怎么知道？？

yynrzwh

Public Stop_Run As Boolean
Sub 停止()
    Stop_Run = False
End Sub
Sub 开始监控()
Stop_Run = True
Application.ScreenUpdating = False
For i = 1 To 10000
    With ThisWorkbook.Sheets(1)
        For j = 2 To 3
            t = 0
            f = Dir(.Cells(1, j).Value & "\*.*")
            Do While f <> ""
                t = t + 1
                f = Dir
            Loop
            .Cells(2, j) = t
        Next
    End With
    DoEvents
    If Stop_Run = False Then Exit For
    Application.Wait (Now + TimeValue("00:00:02"))
    If Stop_Run = False Then Exit For
Next
Application.ScreenUpdating = True
End Sub

LIUZHU

在Excel表进行监控时，肯定要用到事件，用到了事件，文件夹还能更新吗？这个答案我不确定

一执成念

这种需求考虑.NET来做岂不是简单多了