Delphi je výkonný integrovaný nástroj pro vývoj softwaru, který se používá k vytváření různých aplikací. Jednou z důležitých součástí Delphi je schopnost pracovat s tabulkami, jako je Microsoft Excel. V tomto článku se podíváme na podrobný proces vkládání excelových buněk do Delphi.
Za prvé, abychom mohli začít s Excelem v Delphi, budeme muset nainstalovat a nakonfigurovat příslušnou knihovnu, která nám umožní komunikovat s dokumenty Excel. V Delphi jsou k dispozici různé knihovny, jako je Excel Automation, OLE Automation nebo komponenty, jako je TExcelApplication a TExcelWorkbook.
Po instalaci knihovny a konfiguraci potřebných komponent můžeme začít s vkládáním buněk aplikace Excel. Nejprve musíme otevřít dokument Excel, se kterým plánujeme pracovat. Poté můžeme vybrat požadované buňky pomocí příslušných metod a vlastností knihovny Delphi.
Po výběru správných excelových buněk je můžeme vyplnit daty pomocí metod a vlastností knihovny. Můžeme například použít metodu Range.Value Chcete-li přiřadit hodnotu konkrétní buňce. Máme také možnost Formátovat buňky, nastavit jim barvu, písmo a další vlastnosti pomocí metod a vlastností knihovny Delphi.
Je důležité si uvědomit, že po práci s Excelem v Delphi bychom měli zavřít spojení s dokumentem Excel a uvolnit zdroje, abychom se vyhnuli únikům paměti.
V tomto článku jsme se zabývali pouze základními kroky k vložení excelových buněk do Delphi, ale pomocí knihovny Delphi můžeme také provádět složitější operace, jako jsou výpočty, vytváření diagramů a další operace dat v dokumentech Excel. Podle této příručky a prozkoumáním příslušné dokumentace budete moci úspěšně pracovat s buňkami Excelu v Delphi a vytvářet výkonné tabulkové aplikace.
Jak vložit buňky aplikace Excel do Delphi-podrobný průvodce
- Nainstalujte knihovnu Excel do Delphi. Než začnete s Excelem, musíte nainstalovat knihovnu Excel do Delphi. Chcete-li to provést, otevřete Delphi a vyberte nabídku "Component" a poté "Install Packages". V okně, které se otevře, vyberte komponentu " Microsoft Excel "a klikněte na tlačítko"Install". Knihovna Excel je nyní k dispozici pro použití v Delphi.
- Připojte knihovnu Excel do Delphi. Po instalaci knihovny Excel je nutné ji připojit do Delphi. Chcete-li to provést, otevřete Delphi, vyberte nabídku "Project" a "Options". Na stránce "Packages" vyhledejte komponentu "Microsoft Excel" a ujistěte se, že je označena jako aktivní. Pokud ne, aktivujte jej a klikněte na tlačítko "OK". Nyní je knihovna Excel připojena v Delphi a je připravena k použití.
- Vytvořte nový projekt Delphi a přidejte komponenty. Chcete-li přidat Excelové buňky do Delphi, vytvořte nový projekt Delphi a přidejte komponenty potřebné pro práci s Excelem. Klikněte pravým tlačítkem na formulář a vyberte "View as Text". V okně kódu, které se otevře, přidejte následující kód:
usesExcel_TLB; // Импорт типов Excelprocedure TForm1.Button1Click(Sender: TObject);varExcelApp: _Application; // Переменная для работы с ExcelExcelWorkbook: _Workbook; // Переменная для работы с книгой ExcelExcelSheet: _Worksheet; // Переменная для работы с листом ExcelbeginExcelApp := CoApplication.Create; // Создание экземпляра ExcelExcelWorkbook := ExcelApp.Workbooks.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam); // Создание новой книги ExcelExcelSheet := ExcelWorkbook.Worksheets.Item[1] as _Worksheet; // Получение первого листа книги// Вставка данных в ячейку A1ExcelSheet.Cells.Item[1, 1].Value := 'Hello, Excel!';// Отображение ExcelExcelApp.Visible := True;end;V této příručce jsme se podívali na podrobný proces vkládání excelových buněk v Delphi. Nyní můžete tento přístup použít k práci s daty aplikace Excel ve svých projektech Delphi.
Instalace součásti TExcelApplication
Chcete-li pracovat se soubory Excel v Delphi, musíte nainstalovat komponentu TExcelApplication. Tato komponenta poskytuje funkce pro práci se soubory Excel, což vám umožní otevřít, Vytvořit, upravit a uložit dokumenty aplikace Excel.
Instalace součásti TExcelApplication se skládá z několika kroků:
- Stáhněte si archiv s komponentou TExcelApplication. Obvykle je dodáván jako soubor ZIP.
- Rozbalte archiv s komponentou do adresáře, který vám vyhovuje.
- Otevřete Delphi a vytvořte nový projekt nebo otevřete stávající projekt, ve kterém budete používat komponentu TExcelApplication.
- Přidejte do svého projektu komponentu TExcelApplication. Chcete-li to provést, vyberte položku nabídky "Component" - > "Import Component".
- V dialogovém okně, které se otevře, vyberte kartu "ActiveX" a vyhledejte komponentu TExcelApplication. Vyberte jej a klikněte na tlačítko "Install".
- Po úspěšné instalaci součásti TExcelApplication bude k dispozici pro použití ve vašem projektu.
Nyní můžete použít komponentu TExcelApplication k práci se soubory Excel v Delphi. Poskytuje mnoho metod a vlastností pro práci s dokumenty aplikace Excel, jako je otevírání a zavírání souborů, čtení a zápis dat do buněk, formátování buněk a další.
Připojení k souboru Excel
Chcete-li pracovat se soubory Excel v Delphi, musíte být připojeni k aplikaci Excel. To umožní interakci s buňkami a daty v tabulce.
Chcete-li začít, připojte knihovnu Excel pravým tlačítkem na kartě použití v části rozhraní v okně hlavní knihovny a vyberte Přidat - > rozhraní - > Microsoft Excel 16.0 Object Library. Tím se připojí potřebná rozhraní pro práci s Excelem.
Po připojení knihovny vytvořte objekty aplikace Excel.Aplikace a Excel.Workbook:
varExcelApp: Variant;ExcelWorkbook: Variant;Dále otevřete soubor Excel pomocí metody Open zařízení ExcelApp:
ExcelApp := CreateOleObject('Excel.Application');ExcelWorkbook := ExcelApp.Workbooks.Open('C:\Путь\к\файлу\Book1.xlsx');Nyní můžete přistupovat k buňkám a datům v tabulce:
ExcelWorkbook.Worksheets[1].Cells[1, 1].Value := 'Значение ячейки A1';Po provedení operací s tabulkou nezapomeňte uvolnit zdroje. Chcete-li to provést, zavřete soubor a uvolněte objekty ExcelWorkbook a ExcelApp:
ExcelWorkbook.Close;ExcelWorkbook := Unassigned;ExcelApp.Quit;ExcelApp := Unassigned;Nyní víte, jak se připojit k souboru Excel a komunikovat s buňkami a daty v Delphi.
Výběr listu Excelu a rozsahu buněk
Chcete-li pracovat s buňkami Excelu v Delphi, musíte vybrat požadovaný list a rozsah buněk. K tomu lze použít speciální objekty a metody z knihovny Excel.
Pro výběr listu aplikace Excel se používá objekt " Worksheet "z knihovny"Excel2000". Vytvoříme objekt třídy "ExcelApplication", což je samotný Excel, a získáme přístup k aktivnímu listu pomocí metody"ActiveSheet". Například:
varExcelApp: Variant;Sheet: Variant;beginExcelApp := CreateOleObject('Excel.Application');Sheet := ExcelApp.ActiveSheet;end;Po výběru listu je možné určit rozsah buněk, se kterými budeme pracovat. K tomu slouží objekt "Range". Chcete-li například vybrat rozsah buněk " A1:B5", musíte použít následující kód:
varRange: Variant;beginRange := Sheet.Range['A1', 'B5'];end;Nyní můžeme použít objekt "Range" pro práci s vybranými buňkami. Chcete-li například získat hodnotu buňky "A1", můžete použít metodu "Value". Například:
varCellValue: Variant;beginCellValue := Range.Item[1,1].Value;end;Výběrem požadovaného listu a rozsahu buněk tedy můžeme snadno přijímat a měnit hodnoty v buňkách aplikace Excel v Delphi.
Získání hodnoty buňky aplikace Excel
Chcete-li začít s aplikací Excel COM, musíte vytvořit objekt aplikace Excel:
var ExcelApp: Variant; begin ExcelApp := CreateOleObject('Excel.Application'); end;
Po vytvoření objektu aplikace Excel můžete pomocí metody otevřít požadovaný soubor aplikace Excel Workbooks.Open:
var ExcelApp, ExcelWorkbook, ExcelWorksheet: Variant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelWorkbook := ExcelApp.Workbooks.Open('С:\путь_к_файлу..xls'); ExcelWorksheet := ExcelWorkbook.Worksheets[1]; end;
K získání hodnoty buňky dochází pomocí vlastnosti Cells Excel Worksheet:
var ExcelApp, ExcelWorkbook, ExcelWorksheet, ExcelCell: Variant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelWorkbook := ExcelApp.Workbooks.Open('С:\путь_к_файлу..xls'); ExcelWorksheet := ExcelWorkbook.Worksheets[1]; ExcelCell := ExcelWorksheet.Cells[1, 1]; / / získání hodnoty buňky A1 ShowMessage (ExcelCell.Hodnota); / / výstup hodnoty buňky end;
V tomto příkladu se získá hodnota buňky A1, jejíž výsledek je odvozen pomocí funkce ShowMessage v okně zprávy. Metoda Value objekt aplikace Excel Cell se používá k získání hodnoty buňky.
Po práci s objekty aplikace Excel COM je nutné uvolnit použité prostředky vyvoláním příslušných metod Close a Quit:
begin // . ExcelWorkbook.Close; ExcelApp.Quit; ExcelWorksheet := Unassigned; ExcelWorkbook := Unassigned; ExcelApp := Unassigned; // . end;
Získání hodnoty buňky aplikace Excel v Delphi je poměrně snadné pomocí objektů aplikace Excel COM a příslušných metod a vlastností. Zvažte také, že je třeba uvolnit zdroje po práci s objekty aplikace Excel.
Změna hodnoty buňky aplikace Excel
Chcete-li změnit hodnotu buňky Excel pomocí Delphi, musíte použít objekty a metody poskytované knihovnou Excel. Zde je příklad kódu, který ukazuje, jak změnit hodnotu buňky:
- Vytvořte instanci objektu aplikace Excel:
- var
- ExcelApp: OleVariant;
- ExcelApp := CreateOleObject('Excel.Application');
- var
- Workbook: OleVariant;
- Workbook := ExcelApp.Workbooks.Open ('Cesta_kniha.xls');
- var
- Sheet: OleVariant;
- Sheet := Workbook.Worksheets[1];
- Sheet.Cells[1, 1].Hodnota: = 'Nová Hodnota';
- Workbook.Save;
- Workbook.Close;
- ExcelApp.Quit;
Všimněte si, že v tomto příkladu se předpokládá, že již máte nainstalovanou knihovnu Excel a používáte Delphi. Pokud chcete změnit hodnoty více buněk, opakujte výše uvedené kroky pro každou buňku.
Přidání nového řádku nebo sloupce
Chcete-li přidat nový řádek nebo sloupec do tabulky Excelu z aplikace Delphi, použijte následující kód:
Chcete-li přidat nový řádek, můžete použít metodu Add pro objekt Rows (řádky) příslušného listu Excel. Například následující kód přidá nový řádek do listu s číslem 1:
Chcete-li přidat nový sloupec, můžete použít metodu Add pro objekt Columns (sloupce) příslušného listu Excel. Například následující kód přidá nový sloupec do listu s číslem 1:
Můžete také určit pozici, do které chcete přidat nový řádek nebo sloupec, přenesením čísla řádku (pro metodu Add u objektu Rows) nebo číslo sloupce (pro metodu Add u objektu Columns). Následující kód například přidá nový řádek v listu Excelu na druhou pozici:
Po přidání nového řádku nebo sloupce, můžete použít indexování pole pro přístup k buňkám v tomto řádku nebo stobce. Například následující kód přistupuje k buňce ve druhém řádku a třetím sloupci:
Zde čísla 2 a 3 odpovídají číslu řádku a sloupce.
Přidání nových řádků nebo sloupců do tabulky aplikace Excel může být užitečné při dynamickém vytváření a aktualizaci dat v aplikaci Delphi.
Odstranění řádku nebo sloupce
Odstranění řádku nebo sloupce v Excelu může být užitečnou operací, když potřebujete změnit strukturu tabulky nebo odstranit zbytečná data. V Delphi je také možné odstranit řádky a sloupce pomocí objektů z knihovny Excel.
Chcete-li odstranit řádek, musíte nejprve získat objekt aplikace Excel.Range, což je řetězec. Poté můžete u objektu Range vyvolat metodu Delete, abyste tento řádek odstranili.
varxlApp: TExcelApplication;xlWorkbook: TExcelWorkbook;xlSheet: TExcelWorksheet;xlRange: ExcelRange;begin// Получаем объекты ExcelxlApp := TExcelApplication.Create(nil);xlApp.Connect;xlWorkbook := xlApp.Workbooks.Open('Путь к файлу.xlsx');xlSheet := xlWorkbook.ActiveSheet;// Получаем объект Range, представляющий строкуxlRange := xlSheet.Range['A1:A1'];// Удаляем строкуxlRange.Delete(Excel.xlShiftUp); // xlShiftUp указывает сдвиг остальных строк вверх// Сохраняем и закрываем файлxlWorkbook.Save;xlWorkbook.Close;xlApp.Quit;xlApp.Disconnect;end;Chcete-li odstranit sloupec, musíte také získat objekt aplikace Excel.Range představující sloupec a vyvolat metodu Delete s posunem pro zbývající sloupce.
varxlApp: TExcelApplication;xlWorkbook: TExcelWorkbook;xlSheet: TExcelWorksheet;xlRange: ExcelRange;begin// Получаем объекты ExcelxlApp := TExcelApplication.Create(nil);xlApp.Connect;xlWorkbook := xlApp.Workbooks.Open('Путь к файлу.xlsx');xlSheet := xlWorkbook.ActiveSheet;// Получаем объект Range, представляющий столбецxlRange := xlSheet.Range['A:A'];// Удаляем столбецxlRange.Delete(Excel.xlShiftToLeft); // xlShiftToLeft указывает сдвиг остальных столбцов влево// Сохраняем и закрываем файлxlWorkbook.Save;xlWorkbook.Close;xlApp.Quit;xlApp.Disconnect;end;Po provedení změn nezapomeňte soubor uložit a zavřít. Nyní víte, jak odstranit řádek nebo sloupec v Excelu pomocí Delphi.