Текст задания

Средствами MS Excel выведите и оформите диаграмму «Распределение файлов каталога C:\WINDOWS\SYSTEM по их размерам». На диаграмме должно быть показано: сколько файлов в указанном каталоге лежат в диапазоне от 0 до100 байт, сколько от 100 до 200 байт и т.д. Набор диапазонов можно выбирать самостоятельно ( Совет: используйте команду dir>tmp.txt, функцию СЧЕТЕСЛИ или СЦЕПИТЬ и ТЕКСТ).

Для измерения размера файлов и подсчета их количества была составлена функция VBA, которая запускается по кнопке.

Sub Get_FileLen_File_from_Folder()
    Dim sFolder As String, sFiles As String, i As Integer
    sFolder = "C:\Windows\system\"
    sFiles = Dir(sFolder & "*.*")
    Do While sFiles <> ""
     Cells(i + 2, 1) = FileLen(sFolder & sFiles)
     i = i + 1
     sFiles = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

ВАЖНО: Если Вы используете 64-битную Windows, то вместо папки "C:\windows\system" будет папка "C:\windows\system32". Файл с решение можно скачать по ссылке: https://yadi.sk/i/DR-q4PQLlTr7gg

Общий вид листа после нажатия на кнопку: