ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод из Delphi в Excel - форматирование данных - нужна помощь!
7 сообщений из 7, страница 1 из 1
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281144
^junior^
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
^junior^
Участник
Ситуация вкратце:
Есть программа "Банк", которая бросает отчеты в Excel-файлы. Причем, отчеты эти могут быть самыми разнообразными как по содержанию, так и по размерам. Естесственно, для печати их приходится корректировать - менять ширину столбцов или масштаб...
Пожелание клиента:
" -Ну эт же ж та-а-ак неудобно!.. Каждый раз настраивать... А не могли бы вы как-нибудь автоматически подгонять размеры отчета под страничку..." (и т.д. в том же духе)
Резолюция начальства:
Клиент всегда прав! Доработать!!!
Проблемы:
1. "Банк" делал другой человек, который сейчас недоступен.
2. Вывод в Excel осуществляется методом компонента dxDBGrid.SaveToXLS, который производит форматирование данных своим таинственным способом и повлиять на него не представляется возможным. Во всяком случае я не знаю, как. Если кто знает - сообщите.
В результате получаем готовый файл xls. Который тут же и открываем (из "Банка"). Подскажите, как из делфи можно изменить ширину колонок (или любой другой параметр таблицы) в открытом (или не открытом) документе Excel?
...
Рейтинг: 0 / 0
01.10.2003, 18:10
| Ответить | Цитировать | Написать  
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281151
Speaker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Speaker
Участник
А программа каждый раз создает новый файл или использует какой-то шаблон?
Если шаблон, то проще всего, конечно, его изменить.

А вообще смотри здесь:
http://www.delphikingdom.ru/helloworld/excel.htm
http://www.delphikingdom.ru/helloworld/excel2.htm
http://www.delphikingdom.ru/helloworld/excel3.htm
...
Рейтинг: 0 / 0
01.10.2003, 18:18
| Ответить | Цитировать | Написать  
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281152
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
ActiveSheet.PageSetup.FitToPagesWide = 1

Ну вообщем запердоль в прогу такую весч и оки-доки.
...
Рейтинг: 0 / 0
01.10.2003, 18:19
| Ответить | Цитировать | Написать  
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281159
^junior^
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
^junior^
Участник
to Speaker
Шаблона нет (см. выше: "самые разнообразные отчеты") - всё генерится dxDBGrid'ом.

to Papka
Эт куда его за***лить-то? Это вообще-то на VB похоже, а у меня прога на делфях и открытый Excel. Как я из проги достучусь до ActiveSheet?
...
Рейтинг: 0 / 0
01.10.2003, 18:23
| Ответить | Цитировать | Написать  
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281168
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
Таак. Смотри тут: http://www.afalinasoft.com/rus/tips/
...
Рейтинг: 0 / 0
01.10.2003, 18:32
| Ответить | Цитировать | Написать  
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281411
Denis Uskov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis Uskov
Участник
1. Зацепиться к запущенному Excel, методом GetActiveOLEObject
2. Найти нужный Sheet
далее
Sheet.Columns("B:D").Columns.AutoFit подгонит колонки B-C-D по размеру
Sheet.PageSetup - настройка страницы печать
Вырезка из VBA
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1 // разместить отчет на 1 странице в ширину
.FitToPagesTall = 99 // разместить отчет на 99 страницах в высоту
.PrintErrors = xlPrintErrorsDisplayed
Делается это так, старт записи макроса, выполнение необходимых действий, финиш записи, просмотр макроса. Так можно сделать практически все.
...
Рейтинг: 0 / 0
02.10.2003, 08:59
| Ответить | Цитировать | Написать  
Вывод из Delphi в Excel - форматирование данных - нужна помощь!
    #32281510
^junior^
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
^junior^
Участник
to Denis Uskov
Спасибо за ясный и подробный ответ. На таких людях держится форум.
...
Рейтинг: 0 / 0
02.10.2003, 10:27
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод из Delphi в Excel - форматирование данных - нужна помощь!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]