Подсчет файлов в папке и вывод значения в ячейку

@Далала · Регистрация: 28.02.2020

Здравствуйте! Есть макрос, который в подсчитывает количество файлов, находящихся в заданной папке.
Необходимо полученное значение вывести в конкретную ячейку F4 таблицы "показатели(2).xlsm"

Visual Basic

Private Sub Example_Dir()
    iPath$ = "C:\Users\us446777\Desktop\НПА\"
    iFileName$ = Dir(iPath$)
    Do While iFileName$ <> ""
       iCount& = iCount& + 1
       iFileName$ = Dir
    Loop
    MsgBox "Доп. обязанности = " & iCount&
End Sub

Заранее прошу прощения за глупый вопрос, в макросах полный нуль

@Kubuntovod · 29.02.2020, 13:19

Cells(4, 6).Value = iCount

@Далала · 01.03.2020, 12:12 **[ТС]**

Спасибо большое!
Все получилось

@Kubuntovod 1895 / 633 / 154 Регистрация: 14.01.2013 Сообщений: 2,953
	29.02.2020, 13:19	2
	Сообщение было отмечено Далала как решение Решение Cells(4, 6).Value = iCount 1

@Далала 0 / 0 / 0 Регистрация: 28.02.2020 Сообщений: 9
	01.03.2020, 12:12 [ТС]	3
	Спасибо большое! Все получилось 0

Опции темы

Подсчет файлов в папке и вывод значения в ячейку

Решение