Сумма ссылок

[mephist]

Нужно через макрос присвоить ячейке формулу, которая представляет из себя сумму трех ссылок. Все три ссылки из разных книг. Я написал вот такое (это естественно не работает)

    
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "mc.xlsx")
    With Workbooks.Open(Filename, , , , , , True)
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "nc.xlsx")
    With Workbooks.Open(Filename, , True)
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "cc.xlsx")
    With Workbooks.Open(Filename, , True)
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "sc.xlsx")
    With Workbooks.Open(Filename, , True)
    Workbooks("mc.xlsx").Sheets("8.1_").Cells(9, 10).Formula = "=" & Workbooks("nc.xlsx").Sheets("8.1_").Cells(9, 10).Address(, , , True) "+"&Workbooks("cc.xlsx").Sheets("8.1_").Cells(9, 10).Address(, , , True) "+" &Workbooks("sc.xlsx").Sheets("8.1_").Cells(9, 10).Address(, , , True)
    .Close False: End With: .Close False: End With: .Close False: End With: .Close True: End With

VBA ругается на знаки выделенные красным. Как можно подправить этот код или вообще написать другой.

[IgorGO]

Workbooks("mc.xlsx").Sheets("8.1_") .Cells(9, 10).Formula = "=" & Workbooks("nc.xlsx").Sheets("8.1_") .Cells(9, 10).Address(, , , True) & "+" & Workbooks("cc.xlsx").Sheets("8.1_") .Cells(9, 10).Address(, , , True) & "+" & Workbooks("sc.xlsx").Sheets("8.1_") .Cells(9, 10).Address(, , , True)
.Close False: End With: .Close False: End With: .Close False: End With: .Close True: End With

[mephist]

Спасибо большое! То, что нужно! Супер!

[mephist]

Хотя код не работает

Sub Blank_fill()
    Dim Sh As Worksheet
    Application.Calculation = xlCalculationManual: Application.ScreenUpdating = False: On Error Resume Next
    For Each Sh In Sheets
        Sh.Unprotect
    Next
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, asCenterNames(2))
    With Workbooks.Open(Filename, , , , , , True)
        Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, asCenterNames(3))
        With Workbooks.Open(Filename, , , , , , True)
            Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, asCenterNames(4))
            With Workbooks.Open(Filename, , , , , , True)
                ThisWorkbook.Sheets("8.1").Cells(9, 10).Formula = "=" & Workbooks("nc.xlsx").Sheets("8.1").Cells(9, 10).Address(, , , True) & "+" & Workbooks("cc.xlsx").Sheets("8.1").Cells(9, 10).Address(, , , True) & "+" & Workbooks("cc.xlsx").Sheets("8.1").Cells(9, 10).Address(, , , True)
    .Close True: End With: .Close True: End With: .Close True: End With
    Application.Calculation = xlCalculationAutomatic
End Sub

Я что-то не так делаю??? Книги открываются, а вот значения ячейки J9 не меняется. Что не так?

[EducatedFool]

Что не так?

Уберите On Error Resume Next, и увидите, в чём проблема...

Вообще, я не могу без слёз смотреть на этот код - на то, что когда-то было вполне рабочим макросом.
Зачем было делать вложенные With Workbooks.Open(Filename, , , , , , True)???
Зачем открывать книги, если надо в ячейку только записать формулу?
Вы же знаете имена файлов и листов - сформируйте программно формулу на основании этих данных - макрос сократится в 3 раза, и не понадобится открывать/закрывать все эти файлы...