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

RSS

Простенький макрос по изменению формулы во всех excel файлах, Необходимо поменять одну формулу во всех файлах excel, которые находятся в той же папке

Эльдар Попов

Пользователь

Сообщений: 1 Регистрация: 05.11.2020

05.11.2020 16:31:59

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

Код

Sub умножение_на_10()
&#39;
&#39; умножение_на_10 Макрос
&#39;

&#39;
    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"

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

Читают тему