Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: ActiveX/СОМ/CORBA > Excel


Автор: Foley 21.2.2006, 19:15
Как сделать, чтобы длинная строка, которая не влезает в ячейку Excel, написалась, сколько может, а остальное перенеслось на следующую строку?
См. имагу
Как распечатать шаблон Excel? Я пихаю туда данные из проги (значения полей таблицы БД), потом печатаю,(при этом шаблон невидимый) и закрываю… не могу избавиться от вопроса сохранения файла…Подскажите как избавиться?

Автор: ВасилийАлибабаевич 21.2.2006, 19:18
Вопрос к Excel. Смотри справку по VBA

Автор: Grol 21.2.2006, 19:40
Цитата

Как сделать, чтобы длинная строка, которая не влезает в ячейку Excel, написалась, сколько может, а остальное перенеслось на следующую строку?

Чисто теоритическая часть (как бы делал я): Сначала перенеси значение Excel строчки в переменную типа String, например TempStr, и узнай ее ширину Canvas.TextWidth, потом узнай ширину Excel столбца ColumnWidth. Если ColumnWidt меньше, чем ширина твоей строки, то делаешь так: начиная по циклу с конца TempStr по символьно, записываешь значения в TempStr2 (например TempStr2:=TempStr[i]+TempStr2), пока не доходишь до пробела. Удаляешь кусок строки из TempStr, тот что находится в TempStr2. И снова проверяешь, ширину переменной TempStr. Действуй пока TempStr не станет меньши ColumnWidth.

Цитата

Как распечатать шаблон Excel?

Что это значит? Тебе нужно вывести его на принтер?

Цитата

Подскажите как избавиться от вопроса?

К примеру сразу попытайся ве сохранить: ExcelApplication1.ActiveWorkbook.SaveAs("C:Книга1.xls",xlNormal,"", "",False,False);

Автор: YurikGL 21.2.2006, 20:19
Цитата

Как сделать, чтобы длинная строка, которая не влезает в ячейку Excel, написалась, сколько может, а остальное перенеслось на следующую строку?

Проще уж выбрал ячейку и selection.WrapText: = True


Цитата

не могу избавиться от вопроса сохранения файла…

DisplayAlert:=false

Автор: Albinos_x 21.2.2006, 20:36
Я думаю топик, сзданный мной сегодня тебе поможет:
http://forum.vingrad.ru/index.php?showtopic=84634

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)