Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Снова MS Excel, Текст поверх ячеек 
:(
    Опции темы
Serggggg
  Дата 17.3.2004, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет



Всем привет!
Проблема, по сути, несложная, но я не нашел в своих литературных источниках, как это сделать.
Задача такая: Из Grid'a в лист MS Excel копируются данные. Все это происходит в цикле. Пусть в Grid'e всего N записей. Все N выводятся. А теперь надо на N+1 строке написать текст типа "Накладные сданы в бухгалтерию" или что-то в этом роде. В шаблоне документа с самого начала предусмотрен перенос текста и автоподбор ширины. Ячейки маленькие, текст такой ширины, естественно, туда не помещается.
Как все эти свойства N+i-тых ячеек программно сменить и какие будут оптимальные варианты? Поделитесь опытом пожалуйста.
Спасибо за внимание.
--------------------
C уважением, Serggggg.
PM MAIL ICQ   Вверх
Cashey
Дата 17.3.2004, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60



Как я делаю в таких случаях: добовляю нужное количество строк, определяю последнюю и добавляю еще одну, для поля Итого или что-то в роде этого.

На Фоксе это выглядет так
Код
nRow=0
SCAN
nRow=nRow+1
XLApp.Sheets[1].Rows(38+nRow).Insert
XLApp.Sheets[1].Cells(37+nRow,2).value = ALLTRIM(tmp.a2)+' '+'счет №'+' '+alltrim(tmp.a1)+' в '+ALLTRIM(tmp.a3)
ENDSCAN
DisplayProcent(10)
XLApp.Sheets[1].Rows(nRow+38).Delete

Думаю, понять как это реализовать в Дельфи будет не сложно.


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Serggggg
Дата 17.3.2004, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет



Решение неплохое.
Теперь только один вопрос - приведите кто-нибудь команду, которая в определённом месте листа Excel делает вставку пустой строки.
Простите за крайне нелепый вопрос.
--------------------
C уважением, Serggggg.
PM MAIL ICQ   Вверх
Cashey
Дата 17.3.2004, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60



Insert
Только это не команда языка программирования, а команда OLE сервера Excel.
И еще имей ввиду, что тот пример, что я привел хорош только для пустого листа, если тебе надо добавлять строки в шаблоне, то целесооьразней воспользоваться конструкцией Copy - Paste

PS Для таких тем существует специальный форум, было бы очень хорошо, что бы в следующий раз вопросы по работе с MS Office Вы постили бы там.


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0525 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.