Здравствуйте! Необходимо сложить ячейку из книги Book1 C1 с ячейкой из книги Book2 B2 и вывести результат обратно в книги Book1 в туже ячейку C1.
Адаптировал код, но получилось только получить число из другой книги, а сохранить число из текущей ячейки и сложить не получается. Может кто подскажет более простой метод? Заранее спасибо
Sub Get_Value_From_Close_Book()
Dim sShName As String, sAddress As String, vData
'Отключаем обновление экрана
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\jv00671\Desktop\Book2.xls"
sAddress = "B3" 'или одна ячейка - "A1"
'получаем значение
vData = Sheets("Sheet1").Range(sAddress).Value
ActiveWorkbook.Close False
'Записываем данные на активный лист книги,
'с которой запустили макрос
If IsArray(vData) Then
[C3].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
Else
[C3] = vData
End If
'Включаем обновление экрана
Application.ScreenUpdating = True
End Sub