Уважаемые!
Кто поможет прояснить ситуацию с производительностью? В частности меня интересует - как приблизительно определить ресурсоёмкость программы или кода? Разговор идет не столько об объёме хранемой информации в переменных, сколько о замысловатостях функций.
На кто конкретно стоит обращать внимание при написании кода?

Думал, чем больше действий (строк кода), тем больше процессов будет выполнять программа и это влияет на ее производительность.
Но.. Хочу навести одну ситуацию - реализовал задачу двумя похожими способами и меня удивило то, что у них была одинаковая производительность! Имею ввиду количество обработанных фалов за 1 мин.
Хотя в одном из них использовал глобальные переменные (слышал о том, что они сильно нагружают оперативку), да и функций с кодом больше.
Считал, что второй способ будет шустрее - но оказалось одинаково! Как нибудь можно ускорить производительность?
Например, если сначала полученные добавить в массив, а добавить через range - может ускорить процесс?

Скажу сразу, стараюсь пользоваться такой логикой, которую можно использовать в другом языке, а не встроенными методами эксель.

Задача - имеются однотипные паспорта сделок менеджеров за несколько лет, требуется получить значения из известных ячеек и данные файла - путь, наименование и т.п..
Структура - общая папка - в ней папки по каждому сотруднику - в них подпапки с контрагентам - а те в свою очередь могут содержать другие подпапки, например, архив с паспортами за прошлый год или с другой информацией. В них же и файлы xls.
Но офисные планктоны не стремились к порядку, поэтому файлы xls могут находится как в коренной папке, так и в подпапках.

За основу взял FDO для обоих способов
процедура - fsoObj - вызывает рекурсивную процедуру screachFilesFolder(fso.GetFolder(str)) 'путь на общую папку
Та через For Each.. перебирает сначала файлы эксель, далее также перебирает рекурсивно подпапки с вызовом screachFilesFolder(folderSub)

Способ первый

'переменные модуля
Private wbObj As New obj 'встроенный класс, найденный эксель
Private enterObject As activeWB 'Type модуля, книга для данных

call fsoObj - call screachFilesFolder(fso.GetFolder(str)) - вызывает процедуру - outDataObject
***
Процедура outDataObject(fileFolder.Name, fileFolder.Path, currentFolder.ParentFolder.Name, currentFolder.Name) - присваивает значения свойствам переменной wbObj
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wbData = GetObject(PathFile) 'обращаемся к найденному файлу
.Трейдер = wbData.Sheets(1).Cells(6, 3).Value 'определяем значение свойству
.ИмяФайла = NameFile
Call enterDataObject 'вызывает конструктор моего файла для добавления полученных данных (ниже коротко)
wbData.Close 'закрываем файл
***
Функция enterDataObject - определяет значения переменной enterObject, его свойства - это ячейки для добавления данных
With enterObject
Set .wbBook = Workbooks("MyBookData") 'моя книга
Set .sh = .wbBook.Sheets(.numSheetData) 'лист для данных, если больше 65000 срок, переходит на другой лист
.cellLastRow = .sh.Cells(Rows.Count, 1).End(xlUp).Row 'последняя заполненная ячейка
Set .ТрейдерБаза = .sh.Cells(.cellLastRow + 1, 3) 'определяет свойство as Object
Set .ИмяФайлаБаза = .shТест.Cells(.cellLastRow + 1, 8)
End With
Call constructorBase 'заполняет данные
**
Процедура constructorBase - добавляет данные в мой файл
With enterObject
.ТрейдерБаза.Value = wbObj.Трейдер
.ИмяФайлаБаза.Value = wbObj.ИмяФайла
End With
***
в завершении - CLEARDataObject - Все удаляем и очищаем
Set fso = Nothing
Set fileFolder = Nothing
Set folderSub = Nothing
Set wbObj = Nothing
Set wbData = Nothing
Set enterObject = Nothing
***

Второй способ
call fsoObj - call screachFilesFolder(fso.GetFolder(str)) - вызывает процедуру - constructorData
***
Процедура constructorData(NameFile As String, PathFile As String, paråntFolder As String, curFolder As String) - добавляет данные
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wbData = GetObject(PathFile) 'найденный файл
Set wbBook = Workbooks("MyBook") 'мой файл
cellLastRow = wbBook.Sheets(numSheetData).Cells(Rows.Count, 1).End(xlUp).Row 'последняя ячейка, если больше 65000 срок, переходит на другой лист
wbBook.Sheets(numSheetData).Cells(cellLastRow + 1, 3).Value = wbData.Sheets(1).Cells(6, 3).Value 'добавляем значение Трейдер
wbBook.Sheets(numSheetData).Cells(cellLastRow + 1, 8).Value = NameFile 'имя файла
wbData.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
***

Shocker.Pro,

ну не умею я.. не получается...

Antonariyдаст результата хранение файлов на ssd.
А вот тут можно подробнее? Что это за штуковина такая "ssd" и с чем ее едят?

Этот скрипт обошел несколько тысяч файлов, первая сотня быстро прошла, а далее стало медленнее. Но комп не тормозил, в стандартном режиме работал. Обратил внимание на то, что много времени уходило на "перенос" значений.
Есть основание предполагать, что даже может повлиять на производительность свойство FormulaR1C1 вместо Value.

Но основное я понял - циклы и условия сильно тормозят процесс.