Создание сводного отчета VBA

[was3110]

Молодец. Видно желание изучать...
Можно (чисто для сокращения кода) учитывая, что
1) переменных на открытые книги может быть несколько
2) методы .Copy и .PasteSpecial можно сразу применять к объекту Range

Dim wb As Workbook, wb1 As Workbook, mR As Range
Set wb = ActiveWorkbook
Set wb1 = Workbooks.Open (Filename:="F:\Задание\Задание 1. Сводный отчет\Отчет филиала 1.xls")
wb1.Sheets("ИмяЛиста").Range("B5:E7").Copy
Set mR = wb.Sheets("Филиал1").Range("B5")
mR.PasteSpecial
wb1.Close
Set wb1 =Nothing

'то же с другими файлами

Set wb = Nothing

[kuklp]

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

Dim wb As Workbook, wb1 As Workbook, mR As Range
Set wb = ActiveWorkbook
Set wb1 = Workbooks.Open (Filename:="F:\Задание\Задание 1. Сводный отчет\Отчет филиала 1.xls")
wb1.Sheets("ИмяЛиста").Range("B5:E7").Copy
Set mR = wb.Sheets("Филиал1").Range("B5")
mR.PasteSpecial
wb1.Close
Set wb1 =Nothing

'то же с другими файлами

Set wb = Nothing

Слишком.

Sub www()
    Workbooks.Open("F:\Задание\Задание 1. Сводный отчет\Отчет филиала 1.xls").Sheets("ИмяЛиста").Range("B5:E7").Copy ThisWorkbook.Sheets("Филиал1").[B5]
    ActiveWorkbook.Close 0
End Sub

Но я бы делал так:

Sub www()
    a = GetObject("F:\Задание\Задание 1. Сводный отчет\Отчет филиала 1.xls").Sheets("ИмяЛиста").[B5:E7]
    ThisWorkbook.Sheets("Филиал1").[B5].Resize(UBound(a), UBound(a, 1)) = a
    Workbooks("Отчет филиала 1.xls").Close 0
End Sub

[kuklp]

Прчитал тему с начала:

Sub www()
For i = 1 To 5 ' или сколько там у Вас отчетов...
    a = GetObject("F:\Задание\Задание 1. Сводный отчет\Отчет филиала " & i & ".xls").Sheets("ИмяЛиста").[B5:E7]
    If ThisWorkbook.Sheets("Филиал1").[B5].End(xlDown).Row > 65000 Then
        ThisWorkbook.Sheets("Филиал1").[B5].Resize(UBound(a), UBound(a, 1)) = a
    Else
        ThisWorkbook.Sheets("Филиал1").[B5].End(xlDown)(2, 1).Resize(UBound(a), UBound(a, 1)) = a
    End If
    Workbooks("Отчет филиала " & i & ".xls").Close 0
    Next
End Sub

Если же нужна сумма со всех(однотипных) листов, книг - см. пост Hugo121.

[shanemac51]

в зависимости от
-периода
-филиала
-у нового филиала нет старых дат

могут меняться показатели и дате

поэтому
-перевод в столбик
-и чистая сводная

надеюсь, что приложила в е2003(у меня 2010)

[kuklp]

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

надеюсь, что приложила в е2003(у меня 2010)

Да. В 2003 сводная читается. В макросе строка Set ws1 = Excel.Workbooks(1).Worksheets("rab" )
выдает ошибку. Workbooks(1) у меня personal.xls. Думаю, разумно будет явно указать имя книги.

[mr. Good]

Спасибо вам всем большое, ребята. Вижу вы все тут так профессионально управляетесь с переменными, что я вам уже завидую. Надеюсь, что мне до вашего уровня недалеко.
Прошу помочь мне с графиками еще. Вот задание, в нем четыре подзадания, так сказать. С первым подзаданием я справился легко, а с тремя оставшимися графиками случился конфуз. В моей профессиональной деятельности мне никогда не приходилось сталкиваться с ними, но сейчас перехожу на управленческий учет в организации, а им там очень нужны именно эти знания, вот и прислали задания для проверки. Меня нужно только подтолкнуть в заданном направлении, подсказать, так сказать. Попробовал вручную их посоздавать у меня ничего не получается. Видимо придется опять с макросами работать. С созданием графических макросов у меня вообще пробел, не знаю даже основных команд.

Мне нужно создать новую тему или в этой пойдет?

[mr. Good]

Ой, извините! Вот этот файл:

[shanemac51]

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

Да. В 2003 сводная читается. В макросе строка Set ws1 = Excel.Workbooks(1).Worksheets("rab" )
выдает ошибку. Workbooks(1) у меня personal.xls. Думаю, разумно будет явно указать имя книги.

это уже мелочи
-зациклить по DIR
-не обновлять пока считается --для ускорения