Пример создания новой таблицы в Excel 2000Delphi , Технологии , OLE Automation MSOfficeПример создания новой таблицы в Excel 2000Автор: http://www.sources.ru
uses ComObj, ActiveX; var Row, Col: integer; DestRange: OleVariant; Excel: Variant; begin Excel := CreateOleObject('Excel.Application.9'); Excel.Visible := True; Excel.WorkBooks.Add; //Создать новую таблицу //Можно помещать текст и значения в диапазон ячеек //Поместить слово тест в диапазон ячеек Excel.ActiveSheet.Range['A2', 'B3'].Value := 'Тест'; //Или число Excel.ActiveSheet.Range['A4', 'B5'].Value := 42; //А вот так задаётся формула Excel.ActiveSheet.Range['A10', 'A11'].Formula := '=RAND()'; //Можно задавать номера ячеек и столбцов Excel.ActiveSheet.Cells.Item[1, 1].Value := 'Первая ячейка'; Row := 1; Col := 3; Excel.ActiveSheet.Cells.Item[Row, Col].Value := 'Другая ячейка'; //Можно скопировать данный из одного диапазона ячеек в другой DestRange := Excel.Range['D6', 'F10']; Excel.Range['A1', 'C5'].Copy(DestRange); //Можно задавать параметры шрифта в определённой ячейке Excel.Range['A2', 'A2'].Font.Size := 20; Excel.Range['A2', 'A2'].Font.FontStyle := 'Bold'; Excel.Range['A2', 'A2'].Font.Color := clFuchsia; Excel.Range['A2', 'A2'].Font.Name := 'Arial'; //Можно ещё и так изменить цвет диапазона ячеек Excel.Range['B2', 'C6'].Interior.Color := RGB(223, 123, 123); end; Статья Пример создания новой таблицы в Excel 2000 раздела Технологии OLE Automation MSOffice может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |