Создать и назвать книги по алгоритму.

[faz]

Есть алгоритм по которому нужно создать книги с определенным названием. Их получается более 300. Во избежание ошибок можно ли каким либо образом автоматизировать процесс?

Таблица:

Район|Улица|Дом|Квартира

Нужно сделать столько книг, сколько в таблице строк. Это возможно?


P.S. А можно содержимое каждого листа также в соответствии с алгоритмом выстроить.

Район|Улица|Дом|Квартира| Вопросы 1 ,7, 8

Вот эти вопросы вбиваются в строки книги с измененным названием.

Может где прочитать подскажете.

Спасибо всем кто откликнется!!!

[VictorM]

Нужно сделать столько книг, сколько в таблице строк. Это возможно?

возможно

А можно содержимое каждого листа также в соответствии с алгоритмом выстроить.

тоже можно. Но для начала лучше Ваши файлики с примером такого построения посмотреть. Чтобы не гадать потом.
А почитать, смотря что Вы хотите почитать
Столько ресурсов в инете. Искать не пробовали?

[Serge_Bliznykov]

не вижу никаких принципиальных трудностей, чтобы в макросе создать хоть 300 книг, хоть 3000.
Лишь бы имена у них (у файлов) отличались и Вы понимали, что в эти книги писать...

добавлено

с ответом меня опередил VictorM, если бы я его ответ увидел, то не стал бы свой пост писать.. ну теперь пусть останется.
хоть он никакой дополнительной информации уже не несёт..

[VictorM]

Примерно так можно создать несколько рабочих книг с разными именами

Sub tt()
    iKol = 4    'количество строк, т.е. новых книг
    For i = 1 To iKol
        Workbooks.Add.SaveAs Filename:="C:\Temp\Книга_" & i & ".xls"
        ActiveWorkbook.Close
    Next i
End Sub

а дальше, кто знает, что там еще нужно

[faz]

Это таблица названий книг.

Порядок столбцов в названии указан цифрами над заголовками.
Возможно, я не ясно изъяснился в начале, но названия должны исходить из этой таблицы.

[faz]

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

Примерно так можно создать несколько рабочих книг с разными именами

Sub tt()
    iKol = 4    'количество строк, т.е. новых книг
    For i = 1 To iKol
        Workbooks.Add.SaveAs Filename:="C:\Temp\Книга_" & i & ".xls"
        ActiveWorkbook.Close
    Next i
End Sub

а дальше, кто знает, что там еще нужно

Супер. Спасибо за фундамент для начала! =)

[VictorM]

Возможно, я не ясно изъяснился в начале, но названия должны исходить из этой таблицы.

А я и не говорил, что пример соответствует Вашему заданию.
Пример он и есть пример.
А вот так может выглядеть примерный код уже под Ваше задание

Sub ttt()

    iKol = 144    'количество строк, т.е. новых книг
    'количество строк не определял
    For i = 1 To iKol
    a = Cells(i + 2, 2)
    b = Cells(i + 2, 6)
    c = Cells(i + 2, 5)
    d = Cells(i + 2, 4)
        Workbooks.Add.SaveAs Filename:="C:\Temp\Книга_" & a & "_" & b & "_" & c & "_" & d & ".xls"
        ActiveWorkbook.Close
    Next i
End Sub

Создает и сохраняет новую книгу в формате Книга_Ф1_K1_P1_S1.xls
Но чувствую, книгу не просто создать нужно, ее еще чем-то наполнить надо.
Кому она нужна, пустая)