Страница: 1 |
Страница: 1 |
Вопрос: Разрав страницы в макросе.
Добавлено: 19.05.06 08:52
Автор вопроса: Константин
Доброе время суток. Подскажите как можно сделать. Я из программы формирую DBF таблицу (хранятся адреса наших клиентов), запускаю файл екселя, в файле макрос открывает созданную dbf и копирует в ексел, оформляет в виде таблицы. Красивая таблица с адресами получается, но мне надо чтобы каждая новая улица начиналась печататься с нового листа. Как это сделать? Спасибо за внимание.
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
-=Fenix=-
Вопросов: 33
Ответов: 81
Профиль | | #1
Добавлено: 20.05.06 14:12
берёшь открываешь БД и сотрируешь по улицам. Потом начинаешь считывать записи, создаёшь новый лист , где лист = улице и вносишь данные с текущей поиции. Если улица до этого отличается от следующей, то значит создаём новый лист и потом в него вносим всё по этой улице.
Номер ответа: 2
Автор ответа:
NewB
Вопросов: 5
Ответов: 4
Профиль | | #2
Добавлено: 26.07.06 11:36
'Вставка разрыва по условию
For Each cell_in_loop In Range("A1:A3500"
If cell_in_loop.Value = "&" Then
With cell_in_loop.Select
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
End With
End If
Next