создание макроса в Excel

[studentki]

здравствуйте, программисты!очень нужна помощь!мы вообще не сильны в программирование на VBA! задача вот такая: нужно создать макрос в главном документе Excel,который должен извлекать данные из одной и той же ячейки разных документов Excel, складывать их и выводить сумму в определенную ячейку главного документа Excel. очень просим вас помочь, жизненно необходимо!:mad ::

[nerv]

\опять этот кросс-постинг
http://www.planetaexcel.ru/forum.php?thread_id=43054

[studentki]

я смотрю вы тоже на разных форумах, как и мы. А по делу что-нибудь подскажете?

[motorway]

Всего за 2000 рублей сделаю
skype:ktmtramway

[kuklp]

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

я смотрю вы тоже на разных форумах, как и мы. А по делу что-нибудь подскажете?

Подскажем. Учитесь. Учите то, что вам преподают. А не хотите учить - см. ответ от motorway и тех, кто вам отвечал ранее здесь и на Планете.

[The_Prist]

Называется - от нефиг делать. Как спросили - такой ответ и получили:

Sub Very_Difficult_Macro()
    Dim wbBook As Workbook, dblSum As Double
    For Each wbBook In Workbooks
        If Not wbBook Is ThisWorkbook Then
            dblSum = Range("Лист1!A1").Value + dblSum
        End If
    Next wbBook
    ThisWorkbook.Sheets(1).Range("A1").Value = dblSum
End Sub

Суммирует данные из ячейки А1 Листа1 всех открытых книг, кроме книги с макросом. Записывает сумму в ячейку А1 первого листа книги с макросом.

[Hugo121]

Что-то так у меня не заработало...
А вот так, чуть изменив, вполне:

Sub Very_Difficult_Macro()
    Dim wbBook As Workbook, dblSum As Double
    For Each wbBook In Workbooks
        If Not wbBook Is ThisWorkbook Then
            If wbBook.Windows(1).Visible = True Then
                dblSum = wbBook.Sheets(1).[a1].Value + dblSum
            End If
        End If
    Next wbBook
    ThisWorkbook.Sheets(1).Range("A1").Value = dblSum
End Sub

[The_Prist]

Да, надо было только подставить книгу:
dblSum = Range("[" & wbBook.Name & "]Лист1!A1").Value + dblSum

[studentki]

не хочет работать, ссылается на строку
dblSum = Range("Лист1!A1").Value + dblSum

[Hugo121]

А вы, студентки, не из Эстонии случайно?