V různých aplikacích na Delphi může být nutné uložit data ve formátu Excel bez potvrzení uživatelem. K tomu lze použít speciální funkce a postupy, které vám pomohou automatizovat proces ukládání souboru.
Jedním ze způsobů, jak uložit soubor Excel bez potvrzení, je použití knihovny OLE Automation. Pomocí této knihovny lze spravovat Excel z Delphi a provádět potřebné kroky, jako je otevírání, ukládání a zavírání souboru. Chcete-li to provést, musíte vytvořit instanci objektu aplikace Excel, otevřít požadovaný soubor a uložit do formátu XLS nebo XLSX.
Příklad kódu:
var
Row, Col: Integer;
begin
// Záznam dat do buněk
ExcelWorksheet.Cells[1, 1].Hodnota: = 'Nadpis 1';
ExcelWorksheet.Cells[1, 2].Hodnota: = 'Nadpis 2';
ExcelWorksheet.Cells[2, 1].Value := 'Hodnota 1';
ExcelWorksheet.Cells[2, 2].Hodnota: = 'Hodnota 2';
// Ukončení aplikace Excel
end;
Použití funkcí a postupů Delphi ve spolupráci s knihovnou OLE Automation tak umožňuje ukládat soubory Excel bez potvrzení uživatele. Je to pohodlný způsob, jak automatizovat proces práce s daty a zachovat vývojářský čas.
Instalace Delphi
Chcete-li zahájit instalaci Delphi, musíte si stáhnout instalační balíček z oficiálních stránek Embarcadero Technologies, vývojáře programovacího prostředí Delphi. Po stažení balíčku postupujte podle pokynů k instalaci, které budou poskytnuty spolu s instalačním souborem.
Při instalaci Delphi je obvykle k dispozici několik možností instalace, včetně výběru komponent, které chcete nainstalovat. Většina vývojářů volí kompletní sadu komponent, aby měla přístup ke všem funkcím a možnostem Delphi.
Po úspěšné instalaci Delphi je třeba aktivovat licenci. Pokud máte komerční licenci Delphi, budete muset k aktivaci zadat své licenční údaje. Pokud máte zkušební verzi Delphi, musíte se zaregistrovat na webu Embarcadero Technologies, abyste získali bezplatný aktivační klíč.
Po aktivaci licence můžete začít používat Delphi a vytvářet aplikace v programovacím jazyce Delphi. Delphi poskytuje vývojářům výkonné nástroje pro vytváření různých typů aplikací, včetně aplikací pro Windows, mobilních aplikací a webových aplikací.
Instalace Delphi umožňuje vývojářům používat všechny funkce a funkce Delphi k vytváření vysoce kvalitních aplikací.
Vytvoření souboru excel
Pro začátek je nutné k projektu připojit knihovnu Bibliotheca Plus. Poté můžete vytvořit nový soubor aplikace excel a vyplnit jej daty. K tomu lze použít následující kód:
varExcel: TExcelApplication;Workbook: _Workbook;Worksheet: _Worksheet;Range: Range;begin// Создание экземпляра приложения ExcelExcel := TExcelApplication.Create(nil);try// Запуск ExcelExcel.Connect;// Переключение на активную (первую) книгуWorkbook := Excel.Workbooks[1] as _Workbook;// Выбор первого листаWorksheet := Workbook.Worksheets[1] as _Worksheet;// Заполнение ячеек даннымиWorksheet.Cells.Item[1, 1].Value := 'Заголовок 1';Worksheet.Cells.Item[1, 2].Value := 'Заголовок 2';Worksheet.Cells.Item[2, 1].Value := 'Данные 1';Worksheet.Cells.Item[2, 2].Value := 'Данные 2';// Сохранение файлаWorkbook.SaveAs('путь_к_файлу.xlsx');finally// Освобождение ресурсовRange := nil;Worksheet := nil;Workbook := nil;Excel.Disconnect;Excel.Free;end;end;V tomto příkladu vytvoříme instanci aplikace Excel a spustíme ji. Poté vybereme aktivní knihu (první) a první list. Dále vyplníme buňky daty a soubor uložíme na zadanou cestu.
Pomocí Delphi a knihovny Bibliotheca Plus je tedy možné snadno vytvářet excel soubory a vyplňovat je daty. To může být užitečné například při automatizaci procesů práce s daty nebo při vytváření sestav.
Import potřebných modulů
Před zahájením práce je nutné importovat potřebné moduly, které budou použity pro práci se souborem Excel.
Delphi používá pro práci se soubory Excel modul ExcelXP z knihovny ComObj . Chcete-li začít s modulem, musíte přidat příslušnou směrnici do sekce uses vašeho projektu:
uses. ComObj, ExcelXP;Modul ComObj je zodpovědný za práci s objekty COM a modul ExcelXP poskytuje funkce pro práci se soubory Excel.
Kromě toho je nutné importovat modul Variants pro práci s volitelnými typy dat:
uses. Variants;Po přidání těchto modulů můžete začít pracovat se soubory Excel v Delphi.
Deaktivace potvrzení uložení
K uložení souboru Excel bez potvrzení uživatel obvykle používá metodu SaveAs objektu TExcelApplication v Delphi.
Níže je uveden příklad kódu, který deaktivuje potvrzení uložení a uloží soubor Excel:
varExcelApp: TExcelApplication;ExcelWorkbook: Workbook;ExcelWorksheet: Worksheet;beginExcelApp := TExcelApplication.Create(nil);ExcelApp.Connect;// открытие файла ExcelExcelWorkbook := ExcelApp.Workbooks.Open('C:\путь\к\файлу.xlsx');// выбор активного листаExcelWorksheet := ExcelWorkbook.ActiveSheet as Worksheet;// ваш код для работы с данными в Excel// отключение сообщения о сохранении измененного файлаExcelApp.DisplayAlerts := False;// сохранение файла без подтвержденияExcelWorkbook.SaveAs('C:\путь\к\файлу.xlsx');// закрытие файла ExcelExcelWorkbook.Close;// закрытие приложения ExcelExcelApp.Quit;ExcelApp.Disconnect;ExcelApp.Free;end;Ve výše uvedeném kódu po výběru aktivního listu ExcelWorksheet, možnosti DisplayAlerts jsou nastaveny na hodnotu False Chcete-li zakázat zprávu o uložení upraveného souboru. Pak metoda SaveAs je povolán k uložení souboru bez potvrzení.
Po uložení změn se soubor aplikace Excel zavře pomocí metody Close a aplikace Excel je dokončena pomocí metody Quit. Proč se uvolňuje paměť vyhrazená pro objekty ExcelApplication a Workbook.
Použití zadaného kódu vám umožní uložit soubor aplikace Excel bez potvrzení uložení a zlepší uživatelskou zkušenost programu.
Určení způsobu uložení
V Delphi můžete zadat cestu pro uložení souboru Excel, aniž byste jej museli potvrzovat pomocí standardního dialogového okna. K tomu je třeba použít komponentu TSaveDialog .
Před zahájením procesu ukládání je nutné vytvořit instanci součásti TSaveDialog . Poté byste měli upravit jeho vlastnosti, abyste určili počáteční cestu uložení a typy souborů, které se zobrazí v dialogovém okně výběru souboru.
Ve výchozím nastavení, TSaveDialog odráží pouze soubory s příponou'.xls'. Chcete-li přidat možnost uložení souborů s příponou '.XLSX', je třeba nastavit vlastnost DefaultExt komponenty jako'.xlsx'.
Po konfiguraci vlastností komponent je nutné vyvolat metodu Execute, aby se zobrazilo dialogové okno pro výběr souboru. Pokud uživatel zvolí cestu uložení a klikne na tlačítko Uložit, uloží se do funkce filename funkce.
Výslednou cestu lze použít k uložení souboru Excel pomocí metody saveas objektu ExcelApplication . V tomto případě je třeba věnovat pozornost formátu souboru ('.xls 'nebo'.xlsx') k použití příslušné verze objektu Workbook .
varSaveDialog: TSaveDialog;beginSaveDialog := TSaveDialog.Create(nil);trySaveDialog.Title := 'Сохранить файл';SaveDialog.InitialDir := ExtractFilePath(Application.ExeName);SaveDialog.DefaultExt := '.xlsx'; // добавляет возможность сохранять в формате .xlsxSaveDialog.Filter := 'Файлы Excel (*.xls;*.xlsx)|*.xls;*.xlsx';SaveDialog.Options := [ofOverwritePrompt, ofEnableSizing];if SaveDialog.Execute thenbeginExcelApplication.ActiveWorkbook.SaveAs(SaveDialog.FileName);ShowMessage('Файл успешно сохранен.');end;finallySaveDialog.Free;end;end;V tomto příkladu se po uložení souboru Excel zobrazí zpráva informující uživatele o úspěšném uložení.
Uložení souboru excel
Delphi má možnost ukládat soubory excel bez potvrzení uživatele. K tomu je třeba použít metodu SaveAs a zadat cestu k souboru, podle které bude uložen.
procedure SaveExcelFile(const AExcelApp: TExcelApplication; const AFileName: WideString); begin // Nastavíme vlastnost Saved, aby se zabránilo výstupu dialogového okna Uložit jako AExcelApp.DisplayAlerts := False; AExcelApp.Workbooks[1].SaveAs(AFileName); AExcelApp.DisplayAlerts := True; end;
V tomto příkladu nastavíme vlastnost DisplayAlerts na False, abychom zabránili výstupu dialogového okna Uložit jako. Poté zavoláme metodu SaveAs a předáme jí cestu k souboru, do kterého chceme uložit excel dokument. Po uložení nastavíme vlastnost DisplayAlerts zpět na True, abychom vrátili systémové chování.
Nyní se při volání tohoto postupu aplikace excel soubor uloží bez potvrzení uživatele.