сумма ячеек (A1:F1) или из одной ячейки из разных книг

[ramzan_s]

доброго времени суток!
подскажите как собрать данные из 100 книг в одну

в А1 имя файла
в B1 сумма (А1:F1)
например
А1 книга1.xls
B1 20000 (сумма (A1:F1)

A2 книга2.xls
B2 30000 .....

имена книг разные
Спасибо!

[IgorGO]

одного имени книги мало - надо еще путь к ней и имя листа, с которого собираем данные

[ramzan_s]

Сообщение от IgorGO

одного имени книги мало - надо еще путь к ней и имя листа, с которого собираем данные

путь C:\exel\
лист "Лист2"

[IgorGO]

правой кнопкой по имени листа, "исходный текст", вставте туда этот

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Then Exit Sub
  Target.Offset(0, 1).Formula = "=sum('c:\exel\[" & Target & "]Лист2'!A1:F1)"
End Sub

в колонку А пишете имя книги, в ячейке правее получаете сумму ячеек A1:F1 с Лист2 указанной книги.

[ramzan_s]

Сообщение от IgorGO

правой кнопкой по имени листа, "исходный текст", вставте туда этот

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 1 Then Exit Sub
  Target.Offset(0, 1).Formula = "=sum('c:\exel\[" & Target & "]Лист2'!A1:F1)"
End Sub

в колонку А пишете имя книги, в ячейке правее получаете сумму ячеек A1:F1 с Лист2 указанной книги.

СПАСИБО !!!