Простенький макрос по изменению формулы во всех excel файлах - вопрос №4044402

Необходимо поменять одну формулу во всех файлах excel с помощью макроса
Здравствуйте!
Появилась срочная необходимость решить следующий вопрос: у нас есть однотипные файлы по разным месяцам, где нам необходимо поменять одну формулу. Руками это делать безумно долго и работа повторяющаяся. Для того, чтобы разобраться с этой задачкой я решил на простых примерах, записал макрос и он выглядит следующим образом:

Sub умножение_на_10()
'
' умножение_на_10 Макрос
'

'
Range(«I9»).Select
Application.CutCopyMode = False
Public Const myPath = ThisWorkbook.Path
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
myPath & «2.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
«задание/3.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
«задание/4.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
«задание/5.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
End Sub

Нужна какая-то переменная внутри макроса, которая бы ссылалась на путь к этой книге и подставляла поочередно названия файла. Например:
Переменная WorkDir = «наш путь»
Workbooks.Open FileName:= _
WorkDir + «2.xlsx»

Прошу помощи. Буду безумно благодарен!
Ответов пока нет

Alexander

от 500 p.
Читать ответы

Александр Радченко

от 1200 p.
Читать ответы
Посмотреть всех экспертов из раздела Технологии > Базы данных
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store