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
Anzeige