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

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

•  TDictionary Custom Sort  6 169

•  Fast Watermark Sources  5 964

•  3D Designer  8 847

•  Sik Screen Capture  6 308

•  Patch Maker  6 719

•  Айболит (remote control)  6 713

•  ListBox Drag & Drop  5 571

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

•  Графические эффекты  6 934

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

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

•  Canvas Drawing  5 470

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

•  Поворот изображения  4 722

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

•  Paint on Shape  2 575

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

•  Головоломка Paletto  2 773

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

•  Пазл Numbrix  2 344

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

•  Игра HIP  1 984

•  Игра Go (Го)  1 906

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

•  Программа укладки плитки  1 970

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

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

•  HEX View  2 429

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

 
скрыть

  Форум  

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

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