Среда, 26.07.2017
Мой сайт
Меню сайта
Категории раздела
Религия [1]
Буддизм, Христианство, Агни Йога, Йога Васиштха и др. Йоги, Индуизм, Искусство Жизни, Шри Шри Рави Шанкар, Конфуций, Хагакуре Сокрытое в листве, Ицхак Одизес, Наталья Грейс, Ошо, Тантра, Даосизм
Программы [0]
Описание различных программ
Программирование [3]
Исходники, примеры, ссылки, программы C++, Delphi, Python, Html, Java но в основном Delphi, Python, Html, создание игр, Blender Game Engine
Blender [0]
Бесплатный редактор трехмерного моделирования
CAD\CAM\CAE [0]
Solid Works, Nastran, Patran, Ansys и др.
Krita [3]
Материалы по свободному графическому редактору
Статистика

Онлайн всего: 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;

Категория: Программирование | Просмотров: 738 | Добавил: suny-o | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск
Календарь
«  Сентябрь 2016  »
ПнВтСрЧтПтСбВс
   1234
567891011
12131415161718
19202122232425
2627282930
Архив записей
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2017
    Создать бесплатный сайт с uCoz