Помогите с временным решением

[maxa]

Нужно чтобы из листа "СНГ_БАЗА" из первой строки копировались данные в соответствующие ячейки листа "ДиагКарта". Далее создаваль(в любой папке) книга с именем как Гос. номер. Получается сколько строк в листе СНГ_БАЗА столько и книг. Машин окло 700 и под каждую нужно создать таким образом свою Диаг Карту. Это нужно пока не найду человека, который сделал бы программу для создания и ведения учета данных карт. Заранее спасибо, кто поможет.

Комп очень старый и стоит Office 95. Поэтому файлы должны создаваться в этом формате.

[Dim_ok]

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

Sub MakeCard()
Dim i As Integer
    With Worksheets("СНГ_БАЗА")
        For i = 2 To Range("A2").End(xlDown).Row
            Sheets("ДиагКарта").Cells(5, 5) = .Cells(i, 1)
            Sheets("ДиагКарта").Cells(5, 1) = .Cells(i, 2)
            Sheets("ДиагКарта").Cells(7, 1) = .Cells(i, 3)
            Sheets("ДиагКарта").Cells(5, 4) = .Cells(i, 4)
            Sheets("ДиагКарта").Cells(7, 5) = .Cells(i, 5)
            Sheets("ДиагКарта").Cells(7, 4) = .Cells(i, 6)
            Sheets("ДиагКарта").Cells(9, 1) = .Cells(i, 7)
            Sheets("ДиагКарта").Copy
            ChDir "указать путь к папке"
            ActiveWorkbook.SaveAs Filename:=.Cells(i, 1).Value
            ActiveWindow.Close
        Next
    End With
End Sub

[maxa]

Большое спасибо. Не думал что все окажется так легко.