VBA - [решено] Разбор листа Excel по строкам в отдельные файлы

[Debugger]

С VBA сталкиваюсь в первый раз, но тут слезно попросили помочь и я согласился. Цель такая - раздербанить Excel-евский файл по строкам в отдельные файлы, причем у каждого файла должна быть шапка (первая строка) из оригинального файла. Примеров скриптов выполняющих такую работу в интернете навалом, но все они выдергивают только по одной строке. Понадергав то тут то там и почитав описания команд наваял примерно такое:



Код:

Код: Выделить всё

Sub proga()
Application.ScreenUpdating = False
For i = 2 To Cells.SpecialCells(xlCellTypeLastCell).Row
        Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
        Set r1 = Range(Cells(1, 1), Cells(1, 12))
        Set r2 = Range(Cells(i, 1), Cells(i, 12))
        Set myMultiAreaRange = Union(r1, r2)
        myMultiAreaRange.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:= _
        "C:\excel_files\stroka" & i & ".xls", FileFormat:=xlNormal
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

То есть выдергивается первая строка и вторая, первая и третья, первая и четвертая и так далее. Но в созданную книгу они не копируются, т.е. все созданные файлы сохраняются пустыми. Если выделять только одну строку то все работает. Причем при отладке скрипта видно что в буфер обмена строки попадают, и если переключиться на созданную книгу и нажать Ctrl+V то все вставляется. Гугл уже не помогает, а сроки поджимают.

[Iska]

Debugger, как-то так:



Код:

Код: Выделить всё

Option Explicit
Sub proga()
    Dim i As Long
    Dim objUsedRange As Range
    Set objUsedRange = ThisWorkbook.ActiveSheet.UsedRange
    For i = 2 To objUsedRange.Rows.Count
        With Application.Workbooks.Add
            Union(objUsedRange.Rows(1), objUsedRange.Rows(i)).Copy .ActiveSheet.Cells(1, 1)
            .SaveAs "C:\excel_files\stroka" & CStr(i) & ".xls"
            .Close
        End With
    Next
End Sub

Отчего такое странное техзадание?

[Debugger]

Спасибо, работает. Да черт его знает, человек работает в УЖКХ, таблица это список затрат на каждый дом в городе. Каждый файл по отдельности потом куда-то рассылают. Я не в курсе специфики их работы (и слава богу).

[Iska]

Debugger, спасибо, ясно. Я себе примерно такое и представлял.