Оптимизация вычислений при помощи цикла - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте есть такой код
данное действие нужно сделать для 22 файлов, хочу оптимизировать с циклом но с синтаксисом не могу справиться
но дает ошибку

Решение задачи: «Оптимизация вычислений при помощи цикла»

textual
Листинг программы
For i = 1 To 22
 
Workbooks.Open Filename:="C:\Users\00033648\Desktop\НПА\Расчет\" & i & ".XLS"
Columns("A:C").Copy
Windows("расчет.xlsx").Activate
 
sheets(i).activate
 
Range("A1").Select
ActiveSheet.Paste
Windows("i &".XLS").Activate
ActiveWindow.Close
 
Next i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы