Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 550

•  TDictionary Custom Sort  6 578

•  Fast Watermark Sources  6 351

•  3D Designer  9 301

•  Sik Screen Capture  6 685

•  Patch Maker  7 055

•  Айболит (remote control)  7 066

•  ListBox Drag & Drop  5 938

•  Доска для игры Реверси  97 423

•  Графические эффекты  7 270

•  Рисование по маске  6 566

•  Перетаскивание изображений  5 440

•  Canvas Drawing  5 803

•  Рисование Луны  5 509

•  Поворот изображения  5 042

•  Рисование стержней  3 593

•  Paint on Shape  2 846

•  Генератор кроссвордов  3 725

•  Головоломка Paletto  3 002

•  Теорема Монжа об окружностях  3 808

•  Пазл Numbrix  2 506

•  Заборы и коммивояжеры  3 196

•  Игра HIP  2 165

•  Игра Go (Го)  2 098

•  Симулятор лифта  2 471

•  Программа укладки плитки  2 135

•  Генератор лабиринта  2 613

•  Проверка числового ввода  2 289

•  HEX View  2 623

•  Физический маятник  2 233

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Пример создания новой таблицы в 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;




Похожие по теме исходники

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

Экспорт баз данных в Excel

 

Transfer Tables Excel-Access

Excel Films Lister

Work with Word and Excel




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте