Delphi je výkonné integrované vývojové prostředí oblíbené mezi programátory běžícími v jazyce Pascal. Jedním z běžných scénářů použití Delphi je vytváření a zpracování dokumentů MS Excel.
Pro práci s Excelem v Delphi existuje několik přístupů. Jedním z nich je použití komponenty TExcelApplication z knihovny VCL. Tato komponenta vám umožňuje vytvářet, otevírat, upravovat a ukládat soubory aplikace Excel. Při použití aplikace TExcelApplication můžete použít objektový model aplikace Excel pro přístup k různým funkcím a metodám aplikace.
var
ExcelApp: TExcelApplication;
ExcelWorkbook: _Workbook;
ExcelWorksheet: _Worksheet;
begin
ExcelApp := TExcelApplication.Create(nil);
ExcelApp.Connect;
ExcelWorkbook := ExcelApp.Workbooks.Add;
ExcelWorksheet := ExcelWorkbook.Worksheets[1] as _Worksheet;
// Přidání dat
ExcelWorksheet.Cells[1, 1] : = 'Ahoj, světe!';
// Uložení souboru
ExcelWorkbook.SaveAs С:\Новый_файл..xls');
// Uvolnění zdrojů
ExcelWorksheet := nil;
ExcelWorkbook := nil;
ExcelApp.Quit;
ExcelApp := nil;
end;
Pokud chcete flexibilnější a výkonnější práci s Excelem, můžete použít specializované knihovny, jako je Office Open XML nebo Apache POI. Tyto knihovny vám umožňují vytvářet a zpracovávat soubory aplikace Excel bez ohledu na nainstalovanou aplikaci Excel.
V každém případě práce s Excelem v Delphi poskytuje rozsáhlé možnosti pro vytváření a automatizaci datových procesů, díky čemuž je toto vývojové prostředí skvělým nástrojem pro práci s excelovými tabulkami.
Delphi: vytvoření souboru excel
Delphi poskytuje různé způsoby, jak vytvářet a spravovat soubory excel. V tomto článku se podíváme na snadný způsob, jak vytvořit excel soubor pomocí součásti TExcelApplication.
- Vytvořte novou aplikaci Delphi.
- Přidejte do formy komponentu TExcelApplication a tlačítko.
- Nainstalujte vlastnost ConnectMode součásti TExcelApplication do cmexcel;
- V obsluze události kliknutím na tlačítko přidejte následující kód:
varExcelApp: TExcelApplication;ExcelWorkbook: _Workbook;Sheet: _Worksheet;beginExcelApp := TExcelApplication.Create(nil);ExcelApp.Connect;ExcelWorkbook := ExcelApp.Workbooks.Add(EmptyParam, 0);Sheet := ExcelWorkbook.ActiveSheet as _Worksheet;// Запишите в ячейки нужные значенияSheet.Cells.Item[1, 1].Value := 'Заголовок 1';Sheet.Cells.Item[1, 2].Value := 'Заголовок 2';Sheet.Cells.Item[2, 1].Value := 'Значение 1';Sheet.Cells.Item[2, 2].Value := 'Значение 2';// Сохраните файлExcelWorkbook.SaveAs('путь_к_файлу.xls');// Закройте приложение ExcelExcelApp.Disconnect;ExcelWorkbook := nil;ExcelApp := nil;end;Všimněte si, že k zápisu dat do buněk se používá vlastnost Value u objektu buňky. Hodnota buňky je nastavena pomocí indexů řádků a sloupců.
Po spuštění kódu se vytvoří excel soubor na zadané cestě se zadanými hodnotami v buňkách.
Nyní víte, jak vytvořit excel soubor v Delphi pomocí komponenty TExcelApplication.
Část 1: Import Delphi a instalace komponent
Krok 1: Stáhněte Si Delphi
Prvním krokem je stažení Delphi z oficiálních stránek Embarcadero Technologies. Vyberte příslušnou verzi Delphi podle vašich potřeb a systémových požadavků. Ujistěte se, že stahujete nejnovější dostupnou verzi Delphi.
Krok 2: Nainstalujte Delphi
Po stažení Delphi spusťte instalační soubor a postupujte podle pokynů k instalaci. Ujistěte se, že vyberete komponenty Delphi, které potřebujete pro práci se soubory Excel.
Krok 3: Nainstalujte komponenty
Po dokončení instalace Delphi možná budete muset nainstalovat další komponenty pro práci se soubory Excel. Pro Delphi je k dispozici mnoho komponent třetích stran, které usnadňují vytváření a manipulaci se soubory Excel. Jednu z těchto komponent si můžete vybrat podle svých potřeb.
Některé oblíbené komponenty pro práci s Excelem v Delphi zahrnují:
- Excel ADO.Net součást od Devart
- TMS FlexCel
- OS Power Suite pro Excel
Po instalaci komponent je převeďte na svůj projekt Delphi podle pokynů poskytnutých vývojářem každé součásti. Po úspěšném importu a instalaci komponent budete připraveni vytvořit soubory Excel v Delphi.
Oddíl 2: vytvoření instance aplikace Excel
Chcete-li pracovat s Excelem v Delphi, musíte vytvořit instanci objektu aplikace Excel.Application. To lze provést následovně:
1. Přidání modulu používaných knihoven do kódu
Na začátku kódu modulu je nutné přidat použité knihovny:
uses ComObj;
2. Vytvoření instance objektu aplikace Excel
Chcete-li vytvořit instanci objektu Excel.Aplikace používá volání funkce CreateOleObject:
var
Po provedení tohoto kódu se vytvoří instance objektu aplikace Excel.Aplikace, která bude použita pro práci s Excelem.
Část 3: Vytvoření nového dokumentu aplikace Excel
Delphi má několik způsobů, jak vytvořit nový dokument aplikace Excel. Jeden z nejjednodušších způsobů prozkoumáme pomocí knihovny aplikace Excel.
Nejprve je třeba do projektu přidat odkaz na knihovnu aplikace Excel. Chcete-li to provést, otevřete v Delphi IDE kartu "Project" a z nabídky vyberte "Import Type Library". V okně, které se otevře, vyhledejte a vyberte " Microsoft Excel XX.X Object Library", kde XX.X verze aplikace Excel ve vašem počítači (například" Microsoft Excel 16.0 Object Library " pro Excel 2016).
Dále je třeba do kódu přidat následující řádky:
usesExcel_Tlb; // Импортируем модуль с объявлениями типов из библиотеки Excel Application
varExcelApp: _Application; // Переменная для работы с Excel
beginExcelApp := CoApplication.Create; // Создаем новый экземпляр ExcelExcelApp.Visible := True; // Показываем Excel на экранеExcelApp.Workbooks.Add; // Создаем новую книгуend;
To je všechno! Nyní máte nový dokument aplikace Excel, který se zobrazí na obrazovce. K přizpůsobení vzhledu dokumentu nebo přidání dat můžete použít jiné metody a vlastnosti objektu ExcelApp.
Nezapomeňte uvolnit zdroje, až budete s Excelem hotovi:
ExcelApp.Quit; // Закрыть ExcelExcelApp := nil; // Освободить память
V této části jsme se podívali na to, jak vytvořit nový dokument aplikace Excel pomocí Delphi. V další části se naučíme, jak přidat data do vytvořeného dokumentu.
Oddíl 4: vyplňování dat v Excelu
Po vytvoření nového souboru Excel v Delphi jej můžeme začít vyplňovat daty. K tomu použijeme objekty a metody poskytované knihovnou Excel.
V Delphi, abychom zaplnili buňku v Excelu, musíme vytvořit odkaz na objekt pracovní knihy (Workbook) a objekt listu (Worksheet), kde chceme vyplnit data.
K vytvoření odkazu na konkrétní list v knize používáme následující kód:
var Excel: Variant; Workbook: Variant; Worksheet: Variant; begin Excel := CreateOleObject('Excel.Application'); Workbook := Excel.Workbooks.Add; Worksheet := Workbook.Worksheets.Item[1]; / / Odkaz na první list v knize end;
Nyní, když máme odkaz na požadovaný list, můžeme začít vyplňovat data. Vyplňování dat do buňky se provádí pomocí metody Cells, která přijímá číslo řádku a sloupce, a vrací odkaz na konkrétní buňku:
var Cell: Variant; begin Cell := Worksheet.Cells[1, 1]; / / Odkaz na buňku A1 Cell.Hodnota: = 'Hello World'; / / zapíšeme hodnotu do buňky end;
Po provedení tohoto kódu se tedy v buňce A1 zapíše hodnota "Hello World".
Také můžeme vyplnit rozsah buněk daty. K tomu můžeme použít objekt Range, který přijímá počáteční a koncovou buňku rozsahu:
var Range: Variant; begin Range := Worksheet.Range['B1', 'C3']; / / Odkaz na rozsah buněk B1: C3 Range.Value := 123; / / zapisujeme hodnotu 123 do všech buněk endového rozsahu;
Tímto způsobem budou všechny buňky v rozsahu B1:C3 vyplněny hodnotou 123.
Nyní víte, jak vyplnit data v souboru Excel pomocí Delphi. V další části se podíváme na to, jak formátovat data v souboru Excel.
Oddíl 5: formátování buněk v Excelu
Formátování buněk v Excelu vám umožňuje změnit vzhled dat, Přidat styl, barvu, výběr. V Delphi existuje několik způsobů, jak formátovat buňky v Excelu.
- Formátování textu: Můžete změnit písmo, velikost a styl textu v buňce, přidat zarovnání a odsazení. Použití formátování textu umožňuje, aby byla Tabulka čitelnější a úhlednější.
- Formátování čísel: Můžete změnit formát zobrazení čísel v buňce, přidat interpunkční znaménka, děliče tisíců a desetinná místa. Formátování čísel umožňuje lepší čitelnost číselných dat.
- Formátování dat: Můžete změnit formát zobrazení data a času v buňce, přidat formátování data, času nebo obojí najednou. Formátování dat vám umožňuje prezentovat data ve snadno uchopitelném formátu.
- Formátování pozadí a hranic: Můžete změnit barvu pozadí buňky, přidat okraje kolem buňky nebo jednotlivých buněk. Formátování pozadí a hranic pomáhá zvýraznit důležitá data a učinit tabulku strukturovanější.
Delphi poskytuje různé funkce a metody pro formátování buněk v Excelu. Objekty a vlastnosti můžete použít ke změně vzhledu a stylu dat v buňce a také ke správě jejich umístění v tabulce.
V další části se podíváme na to, jak použít formátování textu pro buňky v Excelu pomocí Delphi.
Oddíl 6: uložení a zavření dokumentu aplikace Excel
Jakmile úspěšně vytvoříme a vyplníme náš dokument aplikace Excel, je nutné jej uložit a zavřít. K tomu v Delphi používáme následující metody a vlastnosti:
Vlastnosti Workbook:
- SaveAs(FileName: OleVariant; FileFormat: OleVariant; ReadOnly, CreateBackup, AddToMru, TextCodepage, TextVisualLayout: OleVariant)
Metoda SaveAs umožňuje uložit soubor aplikace Excel na konkrétní cestu a vybrat formát uložení. Jako parametry jsou přenášeny následující hodnoty:
- FileName: cesta k uložení souboru
- FileFormat: formát ukládání (např. xlopenxmlworkbook-pro uložení ve formátu xlsx)
- ReadOnly: určuje, zda soubor uložit pouze pro čtení
Vlastnosti Workbook:
- Close(SaveChanges, Filename, RouteWorkbook: OleVariant)
Metoda Close Umožňuje zavřít aktuální dokument aplikace Excel. Jako parametry jsou přenášeny následující hodnoty:
- SaveChanges: určuje, zda je nutné uložit změny před uzavřením (např. True-pro uložení změn)
- Filename: název souboru, který bude použit k uložení změn
- RouteWorkbook: určuje, zda je nutné aktualizovat uložené odkazy na jiné dokumenty
Příklad použití těchto metod:
Tento kód uloží aktuální dokument aplikace Excel na cestu 'C:\example..xlsx ' ve formátu xlsx.
Tento kód zavře aktuální dokument aplikace Excel a uloží všechny změny.