Nick_A
Посетитель
Всего сообщений: 45
Дата регистрации: 30.09.2021
|
Создано:
29.01.2022 16:49:08
|
Добрый день. Собираю потихоньку макрос из кусочков того, что есть.
Выкопал в папке macro кусочек кода, который позволяет открывать поочередно все файлы в указанной папке и что-либо сделать:
Dim file : For Each file In ssfiles
Path = folder+"\"+file.name
Rastr.Load RG_REPL, Path, Shbl
'действие с каждым загруженным файлом
Rastr.rgm ""
for i=0 to spVetv.size - 1
a = a + spR.z(i)
Next
Next
Судя по протоколу Растр старательно открывает все файлы, лежащие в папке, рассчитывает УР, но вот в переменную а не складывает ничего, а должен бы сумму сопротивлений всех ветвей в данном случае. Если запустить цикл по ветвям с суммированием сопротивлний в одном отдельном файле, то результат получается. Не подскажете, в чем мб причина?
|
Евгений Машалов
Администратор
Всего сообщений: 1042
Дата регистрации: 23.04.2007
|
Создано:
30.01.2022 16:30:07
|
То что у Вас "spR" нужно запрашивать после загрузки каждого файла. После загрузки очередного файла взятые до того поля станут показывать в никуда. Такая вот трактовка COM.
|
Nick_A
Посетитель
Всего сообщений: 45
Дата регистрации: 30.09.2021
|
Создано:
30.01.2022 20:46:12
|
Ух ты! Как просто оказалось то... Спасибо)
|