Код: Выделить всё
Set wb = Workbooks.Open("a__0001.xlsx")
Sheets("a__0001").Range("M21").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*0.001"
ActiveWorkbook.Save
Sheets("a__0001").Range("M21").Copy
Set wb = Workbooks.Open("Obrazac.xlsx")
Windows("Obrazac.xlsx").Activate
Sheets("O4").Range("C18").PasteSpecial (xlPasteValuesAndNumberFormats)
Windows("a__0001.xlsx").Activate
ActiveWorkbook.Close SaveChanges = True
Set wb = Workbooks.Open("a__0002.xlsx")
Sheets("a__0002").Range("M21").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*0.001"
ActiveWorkbook.Save
Sheets("a__0002").Range("M21").Copy
Windows("Obrazac.xlsx").Activate
Sheets("O4").Range("D18").PasteSpecial (xlPasteValuesAndNumberFormats)
Windows("a__0002.xlsx").Activate
ActiveWorkbook.Close SaveChanges = True
Если сможете помочь, буду признателен.
Подробнее здесь: https://stackoverflow.com/questions/790 ... ing-python