VBA zählt offene .xlsx doppelt
17.03.2020 16:37:37
ma
ich habe einen VBA Code der die .xlsx Dateien in einem Ordner zählt:
strPath = "C:\Ordner"
Set fso = CreateObject("Scripting.FileSystemObject")
For Each File In fso.GetFolder(strPath).Files
If Right(File.Name, 5) = ".xlsx" Then
intI = intI + 1
End If
Next File
Funktioniert soweit gut, aber sobald eine der zu zählenden Dateien geöffnet wird, wird diese doppelt gezählt.
Woran liegt das?
Und wie kann ich das unterbinden?
LG