Категории раздела |
Религия [2]
Буддизм, Христианство, Агни Йога, Йога Васиштха и др. Йоги, Индуизм, Искусство Жизни, Шри Шри Рави Шанкар, Конфуций, Хагакуре Сокрытое в листве, Ицхак Одизес, Наталья Грейс, Ошо, Тантра, Даосизм
|
Программы [5]
Описание различных программ
|
Программирование [24]
Исходники, примеры, ссылки, программы C++, Delphi, Python, Html, Java но в основном Delphi, Python, Html, создание игр, Blender Game Engine
|
Blender [16]
Бесплатный редактор трехмерного моделирования
|
CAD\CAM\CAE [0]
Solid Works, Nastran, Patran, Ansys и др.
|
Krita [4]
Материалы по свободному графическому редактору
|
Интернет [1]
Интересная информация о работе с интернетом
|
IrfanView [1]
Возможности программы
|
Игры [2]
|
Железо [1]
Различная электроника
|
|
Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
Главная » 2016 » Сентябрь » 14 » Работа с Excel через Lazarus
17:07 Работа с Excel через Lazarus |
1. Чтение готового файла Excel и запись в него через компонент Lazarus - FPSpreadsheet описано здесь
http://devlaz.ru/работа-с-excel/
2. Создание нового файла Excel и запись в него через компонент Lazarus - FPSpreadsheet описано ниже (взято с http://wiki.lazarus.freepascal.org/FPSpreadsheet)
{
excel5demo.dpr
Demonstrates how to write an Excel 5.x file using the fpspreadsheet library
You can change the output format by changing the OUTPUT_FORMAT constant
AUTHORS: Felipe Monteiro de Carvalho
}
program excel5demo;
{$mode delphi}{$H+}
uses
Classes, SysUtils, fpstypes, fpspreadsheet, fpsallformats, laz_fpspreadsheet;
const
OUTPUT_FORMAT = sfExcel5;
var
MyWorkbook: TsWorkbook;
MyWorksheet: TsWorksheet;
MyFormula: TsRPNFormula;
MyDir: string;
begin
// Initialization
MyDir := ExtractFilePath(ParamStr(0));
// Create the spreadsheet
MyWorkbook := TsWorkbook.Create;
try
MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet');
// Write some number cells
MyWorksheet.WriteNumber(0, 0, 1.0);
MyWorksheet.WriteNumber(0, 1, 2.0);
MyWorksheet.WriteNumber(0, 2, 3.0);
MyWorksheet.WriteNumber(0, 3, 4.0);
// Write the formula E1 = A1 + B1
MyWorksheet.WriteFormula(0, 4, 'A1+B1');
// Creates a new worksheet
MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet 2');
// Write some string cells
MyWorksheet.WriteText(0, 0, 'First');
MyWorksheet.WriteText(0, 1, 'Second');
MyWorksheet.WriteText(0, 2, 'Third');
MyWorksheet.WriteText(0, 3, 'Fourth');
// Save the spreadsheet to a file
MyWorkbook.WriteToFile(MyDir + 'test' + STR_EXCEL_EXTENSION, OUTPUT_FORMAT);
finally
MyWorkbook.Free;
end;
end.
P.S.
свой вариант 2 я создал как комбинацию 1-го (90%) и 2-го варианта
вместо
MyWorkbook.ReadFromFile('Путь к файлу.xls', sfExcel8);
я использовал
MyWorkbook := TsWorkbook.Create;
|
Категория: Программирование |
Просмотров: 7318 |
Добавил: suny-o
| Рейтинг: 0.0/0 |
|
|
|