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

Необходимо поменять одну формулу во всех файлах 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»

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

Александр

Восстановление работы windows, установка и настройка программ, установка драйверов, настройка Wi-Fi, лечение вирусов и т. д.
Посмотреть всех экспертов из раздела Технологии > Базы данных
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store