|
Платные хостинги
Раскрутка сайта
Книги по программированию
Снова MS Excel, Текст поверх ячеек
- Всем привет!Проблема, по сути, несложная, но я не нашел в своих литературных источниках, как это сделать.Задача такая: Из Grid'a в лист MS Excel копируются данные. Все это происходит в цикле. Пусть в Grid'e всего N записей. Все N выводятся. А теперь надо на N+1 строке написать текст типа "Накладные сданы в бухгалтерию" или что-то в этом роде. В шаблоне документа с самого начала предусмотрен перенос текста и автоподбор ширины. Ячейки маленькие, текст такой ширины, естественно, туда не помещается. Как все эти свойства N+i-тых ячеек программно сменить и какие будут оптимальные варианты? Поделитесь опытом пожалуйста.Спасибо за внимание.
- Как я делаю в таких случаях: добовляю нужное количество строк, определяю последнюю и добавляю еще одну, для поля Итого или что-то в роде этого.На Фоксе это выглядет такКод nRow=0SCANnRow=nRow+1XLApp.Sheets[1].Rows(38+nRow).InsertXLApp.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).DeletehighlightSyntax('delphiMWUxMT','delphi');Думаю, понять как это реализовать в Дельфи будет не сложно.
- Решение неплохое.Теперь только один вопрос - приведите кто-нибудь команду, которая в определённом месте листа Excel делает вставку пустой строки.Простите за крайне нелепый вопрос.
- InsertТолько это не команда языка программирования, а команда OLE сервера Excel.И еще имей ввиду, что тот пример, что я привел хорош только для пустого листа, если тебе надо добавлять строки в шаблоне, то целесооьразней воспользоваться конструкцией Copy - PastePS Для таких тем существует специальный форум, было бы очень хорошо, что бы в следующий раз вопросы по работе с MS Office Вы постили бы там.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
