![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Пример создания новой таблицы в Excel 2000Delphi , Технологии , OLE Automation MSOfficeАвтор: 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; Пример создания новой таблицы в Microsoft Excel 2000 с помощью компонента ActiveX Delphi. Вот разбивка кода:
Некоторые предложения по улучшению:
В качестве альтернативных решений вы можете использовать другие компоненты Delphi или библиотеки, которые предоставляют возможности автоматизации Excel. Например, вы можете использовать компонент В статье описывается пример создания новой таблицы в Microsoft Excel 2000 с помощью программирования на языке Delphi, используя ActiveX-компоненту. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |