[megaloman]

it3, VBS
Категорически не советую, пока скрипт не отработал, работать с другой таблицей в другом окне.
Путь к таблице, адреса ячеек пропишИте свои.

Код:

FileXLS = "Z:\Soft_In\я19082113.xlsx"

Fname1 = "C6"   ' Первая ячейка с путём
fsize1 = "F6"   ' Первая ячейка с размером
koeff = 2       ' 0-байты, 1-Kb, 2-Mb, 3-Gb, 4-Tb

With CreateObject("Excel.Application")
    .Visible = True
    .Workbooks.Open (FileXLS)

    i = 0
    Do
        Pfold = .Range(Fname1).Offset(i, 0)
        If InStr(1, Pfold, "\") = 0 Then Exit Do
        .Range(fsize1).Offset(i, 0) = FFolderSize(Pfold, koeff)
        i = i + 1
    Loop
End With
MsgBox "Done!"
' ===============================

Function FFolderSize(arg, k)
    On Error Resume Next
    Err.Number = 0
    
    FFolderSize = CreateObject("Scripting.FileSystemObject").GetFolder(arg).Size
    If Err.Number <> 0 Then
            FFolderSize = Err.Description
    Else
        If k = 1 Then FFolderSize = FFolderSize / 1024
        If k = 2 Then FFolderSize = FFolderSize / 1024 / 1024
        If k = 3 Then FFolderSize = FFolderSize / 1024 / 1024 / 1024
        If k = 4 Then FFolderSize = FFolderSize / 1024 / 1024 / 1024 / 1024
    End If
    On Error GoTo 0
End Function

Iska,

делитель (байты/килобайты/мегабайты/гагабайты) можно при желании добавить вторым аргументом функции. »

Не стал этого делать для функции в ячейке: решил, так гибче. В формуле в ячейке написать деление не проблема, тем более, возможно, еще приделать какую-нибудь функцию, типа ОКРУГ.
В скрипте решил, что здесь удобнее приделать еще один аргумент, поэтому чуть доработал.

[YuS_2]

размер которых необходимо вывести в *.txt/*.csv (Формат: Папка -> Размер). »

Но т.к. объем данных в каталогах велик, процесс занимает довольно-таки длительное время. »

Скрипт powershell (два каталога, общим размером 65Гб и с количеством файлов 51837, вычисляются за 27 сек.):
в скрипт встроен таймер, результат выводится в файл execution_speed.txt
таймер безболезненно можно удалить (первые две строки и последние тоже две)

Код:

$watch = [system.diagnostics.stopwatch]::startnew() #таймер
$watch.start() #запуск таймера

function Get-SizeDirectory {
	param (
		[parameter(ValueFromPipeline=$true)]
		[string[]]$arr
	)
	process {
		foreach ($item in $arr) {
			$tmp = gi $item
			$math = dir -lit $tmp.fullname -rec -force|
				?{!$_.psiscontainer}|measure -prop length -sum
			[pscustomobject]@{
				Name = $tmp.name #Имя каталога
				Fullname = $tmp.fullname #Абсолютный путь с именем
				Count = $math.count #Счетчик файлов в каталоге
				Size = "{0:G}" -f ($math.sum/$k) #Размер каталога
			}
		}
	}
}

#Перечисление каталогов непосредственно в скрипте:
#для использования, блок раскомментировать, при этом, необходимо
#закомментировать обе строки получения массива из файла ниже
<#
$fld = @(
	'O:\Folder1',
	'O:\Folder1\podFolder1',
	'O:\Folder2\podFolder2\podpodFolder2' 
	#и т.д.
)
#>

#Либо получение массива каталогов из текстового файла (один каталог на строку)
$file = 'd:\folders.txt'
$fld = gc $file -enc utf8

#Коэффициент единиц размера каталогов (На выбор: <1|1Kb|1Mb|1Gb|1Tb>):
$k = '1Gb'

#Файл .csv с результатом:
$out = 'result.csv'

$fld|get-sizedirectory|select fullname,count,size|
convertto-csv -not -del ';'|out-file $out -enc utf8

$watch.stop() #остановка таймера
$watch.elapsed >execution_speed.txt #время выполнения

вывод можно сделать и непосредственно в файл .xlsx, но, имхо, это лишнее, т.к. .csv легко открывается в Excel

[it3]

it3, VBS Категорически не советую, пока скрипт не отработал, работать с другой таблицей в другом окне. Путь к таблице, адреса ячеек пропишИте свои. »

megaloman, подскажите пожалуйста, в некоторых "путях"/каталогах вместо размера пишется текст:

Код:

Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден
Путь не найден

Хотя, по факту, путь правильный, и если пройти по этому пути, и провалиться в подкаталог, и вставить этот путь в табличку, то размер считывается, а корневой каталог, не считывается. Привилегии полные.

[megaloman]

it3, Не знаю.

Хотя, по факту, путь правильный »

Если на клетке слона прочтёшь надпись «буйвол», не верь глазам своим.

Значит, что-то Вы не то пишите, ИМХО.
Мой полёт извращенной фантазии:
1. Вместо латинской буквы стоИт русская: (О-O, например)
2. В ячейке в пути перед путём есть пробел(ы).
3. Путь указан в кавычках без знака = впереди. То есть, "D:\Тра ля ля" - нельзя, а ="D:\Тра ля ля" можно.
Естественно, можно просто D:\Тра ля ля (без пробела впереди)

Я бы рекомендовал для указанных Вами путей, где получили "Путь не найден" найти эту папку в проводнике, правой кнопкой мышки вызвать свойства, в закладке Общие, строке Расположение выделить и скопировать путь, вставить в ячейку таблицы.

А вот еще возможность: скопировать указанный путь из ячейки таблицы, и в командном окне проделать
Dir "вставленный из буфера путь\*.*"
Посмотреть, что на это скажет команда Dir

Весь этот Марлезонский балет нужен, чтобы убедиться в правильности указания пути.

[it3]

Значит, что-то Вы не то пишите, ИМХО. Мой полёт извращенной фантазии: 1. Вместо латинской буквы стоИт русская: (О-O, например) 2. В ячейке в пути перед путём есть пробел(ы). 3. Путь указан в кавычках без знака = впереди. То есть, "D:\Тра ля ля" - нельзя, а ="D:\Тра ля ля" можно. Естественно, можно просто D:\Тра ля ля (без пробела впереди) Я бы рекомендовал для указанных Вами путей, где получили "Путь не найден" найти эту папку в проводнике, правой кнопкой мышки вызвать свойства, в закладке Общие, строке Расположение выделить и скопировать путь, вставить в ячейку таблицы. А вот еще возможность: скопировать указанный путь из ячейки таблицы, и в командном окне проделать Dir "вставленный из буфера путь\*.*" Посмотреть, что на это скажет команда Dir Весь этот Марлезонский балет нужен, чтобы убедиться в правильности указания пути. »

Первое что я сделал - это скопировал путь из "Расположения" и вставил в ячейку Excel. Команда dir отрабатывает (выводится количество папок в каталоге и свободное пространство в байтах).
Даже если скопировать этот путь из Excel и вставить в проводник - путь рабочий. Если вставить из Excel в командную строку - тоже работает.

[Iska]

it3, ну, упакуйте Ваш получившийся файл Рабочей книги в архив, каковой приложите к сообщению.