Здравствуйте,
прошу помочь решить проблему.
В папке С:\Orders\ сохраняются заявки в формате .xlsx
Стоит задача посчитать при помощи макроса количество заявок находящихся в указанной папке
без учёта скрытых файлов (резервных копий открытых книг) и вывести результат в ячейку рабочей книги.
Сейчас использую макрос:
Sub Orders()
FolderPath = "C:\Orders\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Ord# = FSO.GetFolder(FolderPath).Files.Count
Range("A1").Select
ActiveCell.FormulaR1C1 = Ord#
End Sub
Но если какие-то книги из указанной папки остались открытыми во время расчёта, следствием чего является наличие в папке скрытых временных резервных копии этих фалов, то они тоже учитываются при подсчёте количества файлов, а это ненужно.