Здравствуйте!
Появилась срочная необходимость решить следующий вопрос: у нас есть однотипные файлы по разным месяцам, где нам необходимо поменять одну формулу. Руками это делать безумно долго и работа повторяющаяся. Для того, чтобы разобраться с этой задачкой я решил на простых примерах, записал макрос и он выглядит следующим образом:
Нужна какая-то переменная внутри макроса, которая бы ссылалась на путь к этой книге и подставляла поочередно названия файла. Например:
Прошу помощи. Буду безумно благодарен!
Появилась срочная необходимость решить следующий вопрос: у нас есть однотипные файлы по разным месяцам, где нам необходимо поменять одну формулу. Руками это делать безумно долго и работа повторяющаяся. Для того, чтобы разобраться с этой задачкой я решил на простых примерах, записал макрос и он выглядит следующим образом:
| Код |
|---|
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" |
Прошу помощи. Буду безумно благодарен!
