Komponen: TscExcelExport

Versi 3,81 (November 2008) - freeware untuk penggunaan non-komersial - Delphi VCL

TscExcelExport komponen yang maju, kuat namun mudah digunakan komponen untuk semua record pada dataset dari Borland / CodeGear Delphi untuk ekspor ke Microsoft Excel. Selain itu, ada banyak kesempatan diberikan untuk mengubah tata letak, gunakan format kondisional, menambahkan total, membuat kelompok, hasutan penyaring, ... Komponen bekerja dalam Delphi 5, 6, 7, 2006, 2007 dan 2009 dan mendukung Excel 97, 2000, XP, 2003 dan 2007.

Peluang Properties Miscellaneous alat untuk tata letak pasar spreadsheet disediakan. Nama worksheet dan file Teks untuk header dan footer Awal baris dan kolom header, footer, judul dan tanggal Lebar kolom secara otomatis mengatur atau menyesuaikan Font header, footer, judul, ringkasan, dan data (Alignment, Wrap Teks, Orientasi, Cell Merge) Warna latar belakang dan perbatasan header, footer, judul, dan ringkasan data Perhitungan (SUM, MIN, MAX, AVG) atau ditetapkan untuk bidang numerik Auto Filter judul Pengelompokan dengan bidang tertentu Suplemen lembar kerja baru atau saham yang ada Akses ke objek Excel (Excel Application, Excel workbook, Excel worksheet, ...) ... Events Untuk menentukan warna latar belakang dan warna font, nama dan ukuran per sel Untuk mengekspor data tanpa menggunakan TDataSet Metode Ekspor ke Excel Menyimpan lembar kerja sebagai xlsx (Open XML), XLS, HTML, XML atau CSV Print preview Component Editor Melalui komponen editor Anda dapat dengan mudah mengubah berbagai pengaturan Live template Live template untuk Delphi 2006, 2007 & 2009 (ExcelExportUse dan Ekspor Buat Excel)

Info

Jenis perpustakaan / COM

• Dalam komponen ekspor Excel menggunakan komponen Server Borland / CodeGear tipe COM perpustakaan.
• Menggunakan perintah kompiler (dalam satuan scExcelExportConfig.inc) dapat menggantikan jenis default perpustakaan. The possibilities are Excel97, Excel2000 dan ExcelXP (peta Borland \ Delphi7 \ OCX \ Server atau CodeGear \ RAD Studio \ 6,0 \ OCX \ Server).
• MS Excel juga diinstal pada PC untuk bekerja dengan komponen ini.

Delphi / Kantor

• Komponen VCL ini diuji dalam
  • Borland Delphi 5 (SP1)
  • Borland Delphi 6
  • Borland Delphi 7
  • Borland Delphi (BDS) 2005
  • Borland Delphi (BDS) 2006
  • CodeGear Turbo Delphi
  • CodeGear Delphi 2007
  • CodeGear Delphi 2009
• Bagian ini bekerja dengan Excel Ekspor
  • Microsoft Excel 97
  • Microsoft Excel 2000
  • Microsoft Excel XP
  • Microsoft Excel 2003
  • Microsoft Excel 2007
• Telah diuji dalam beberapa bahasa Belanda dan Inggris versi Office.
• Hal ini juga memberikan akses ke aplikasi Excel, Workbook dan Worksheet benda bahwa semua properti dan metode VBA bisa menuntut.

Demo aplikasi

• Aplikasi demo lengkap dengan 18 contoh-contoh yang disertakan untuk semua fitur komponen melihat dan tes.

Instalasi

• Buka run-time ExcelExportPack5.dpr paket (untuk Delphi5), ExcelExportPack6.dpr (untuk Delphi6) ExcelExportPack7.dpr (untuk Delphi7), ExcelExportPack9.dpr (untuk Delphi 2005), ExcelExportPack10.dpr (untuk Delphi 2006 dan Turbo Delphi) ExcelExportPack11.dpr (untuk Delphi 2007) atau ExcelExportPack12.dpr (untuk Delphi 2009). "Kompilasi" paket ini.
• Buka paket desain-waktu x. dclExcelExportPack DPR dan "Kompilasi" dan "Instal" itu. TscExcelExport komponen yang muncul pada tab "SC" dari palet komponen.
• Jika Anda ingin komponen paket yang sudah ada, pastikan bahwa file dclOffice DCP terkait, yang dapat ditemukan di Delphi / Lib direktori ditambahkan seperti yang diperlukan. Jika Anda memiliki waktu desain baru-paket untuk membuat, Anda harus file designide.dcp DCP (dsnide50.dcp di Delphi5) menambahkan.

Info Teknis

• Lihat bagian atas unit unit scExcelExport.pas untuk informasi lebih lanjut tentang semua properti, metode, peristiwa, ...

• Sejarah versi
  
  
• Ekstensif presentasi (slide) dengan informasi dan contoh-contoh (dalam format PDF) (6.4 Mb)

Screenshot

Delphi Contoh

Contoh 1: Cara paling mudah untuk ekspor dataset ke Excel

scExcelExport1.Dataset:=Table1; scExcelExport1.ExportDataset; scExcelExport1.Disconnect; 

Contoh 2: Menggunakan layout properti, dan menambahkan total toko

 scExcelExport1.WorksheetName := 'MijnDataset' ; scExcelExport1.Dataset:=Table1; scExcelExport1.StyleColumnWidth:=cwOwnerWidth; scExcelExport1.ColumnWidth := 20; scExcelExport1.HeaderText.Text := 'Hoofding' ; scExcelExport1.MergeHeaderCells := True; scExcelExport1.BeginRowHeader := 2; scExcelExport1.FontTitles := LabelTitle.Font; scExcelExport1.FontTitles.Orientation := 45; scExcelExport1.BorderTitles.BackColor := clYellow; scExcelExport1.BorderTitles.BorderColor := clRed; scExcelExport1.BorderTitles.LineStyle := blLine; scExcelExport1.BeginRowTitles := 5; scExcelExport1.FontData := LabelData.Font;    scExcelExport1.SummarySelection := ssValues; scExcelExport1.SummaryCalculation := scMAX; scExcelExport1.AutoFilter := True; scExcelExport1.ExcelVisible:=False; try scExcelExport1.ExportDataset; scExcelExport1.ExcelWorkSheet.Range[ 'A1' , 'A10' ].Value := 'Delphi' ; // Excel 2007 Open XML format (bestands extensie XLSX) if  scExcelExport1.ExcelVersion = 12 then scExcelExport1.SaveAs(ExtractFilePath(Application.ExeName)+ 'ExcelExport2007.xlsx' ,ffXLSX); // Excel 2000/XP/2003 format (bestands extensie XLS) scExcelExport1.SaveAs(ExtractFilePath(Application.ExeName)+ 'ExcelExport2003.xls' ,ffXLS); finally scExcelExport1.Disconnect; end ; 

Contoh 3: kelompok data

 try scExcelExport1.Dataset:=QuerySortShipVia; scExcelExport1.SummarySelection := ssValues; scExcelExport1.SummaryCalculation := scAVG; scExcelExport1.SummaryDisplayFormat := '###0.000' ; scExcelExport1.StyleColumnWidth := cwEnhAutoFit; scExcelExport1.GroupFields.Clear; scExcelExport1.GroupFields.Add( 'ShipVia' ); scExcelExport1.GroupFields.Add( 'Terms' ); scExcelExport1.ExportDataset; finally scExcelExport1.Disconnect; end ; 

Contoh 4: Multiple kumpulan data ekspor

 scExcelExport1.ExcelVisible:=True; try scExcelExport1.Dataset:=Table1; scExcelExport1.WorksheetName:= '1' ; scExcelExport1.ConnectTo := ctNewExcel; scExcelExport1.ExportDataset; scExcelExport1.Disconnect; scExcelExport1.Dataset:=Table2; scExcelExport1.WorksheetName:= '2' ; scExcelExport1.ConnectTo := ctNewWorkbook; scExcelExport1.ExportDataset; scExcelExport1.Disconnect; scExcelExport1.Dataset:=Table3; scExcelExport1.WorksheetName:= '3' ; scExcelExport1.ConnectTo := ctNewWorksheet; scExcelExport1.ExportDataset; finally scExcelExport1.Disconnect; end ; 

Contoh 5: warna latar belakang dan perubahan gaya font OnGetCellStyle event

 procedure  scExcelExportGetCellStyleEvent(Sender: TObject; Field: TField; var  ColorBackground : TColor; FontCell : TxlFont); begin if  Field.FieldName = 'CustNo' then begin if  Field.Value > 2000 then begin FontCell.Color := clRed; FontCell.Name := 'Times New Roman' ; FontCell.Size := 14; end ; if  Field.Value > 3000 then begin FontCell.Color := clGreen; FontCell.Style := [fsBold]; end ; end ; if  Field.FieldName = 'EmpNo' then begin if  Field.Dataset.FieldByName( 'CustNo' ).Value > 2000 then ColorBackground := clRed; end ; if  Field.DataSet.FieldByName( 'EmpNo' ).Value > 100 then ColorBackground := clYellow; end ; 

Contoh 6: Akses ke properti dari objek Lembar Kerja Excel

 try scExcelExport1.Dataset:=Table1; scExcelExport1.Connect; scExcelExport1.ExcelWorkSheet.Range[ 'A2' , 'C8' ].Borders.Color := clRed; scExcelExport1.ExportDataset; scExcelExport1.ExcelWorkSheet.Range[ 'B2' , 'B2' ].Select;
  scExcelExport1.ExcelApplication.ActiveWindow.FreezePanes := True; scExcelExport1.ExcelWorkSheet.Range[ 'B5' , 'E7' ].Cells.Clear; scExcelExport1.ExcelWorkSheet.Range[Format( 'A%d' ,[scExcelExport1.EndRowData+3]), Format( 'A%d' ,[scExcelExport1.EndRowData+3])].Value := 'Extra informatie toevoegen aan Excel werkblad' ; scExcelExport1.ExcelWorkSheet.Range[ 'M1' , 'M1' ].Value := 10; scExcelExport1.ExcelWorkSheet.Range[ 'M2' , 'A2' ].Value := 5; scExcelExport1.ExcelWorkSheet.Range[ 'M3' , 'M3' ].Value := '=M1+M2' ; scExcelExport1.ExcelWorkSheet.Range[ 'M3' , 'M3' ].Font.Color := clRed; scExcelExport1.ExcelWorkSheet.Range[ 'M1' , 'M20' ].EntireColumn.Autofit; scExcelExport1.ExcelWorkSheet.Range[ 'B2' , 'B2' ].AddComment( 'Dit is commentaar voor een cel' ); finally scExcelExport1.Disconnect; end ; 

Hak cipta dan penyebaran

• Semua hak cipta komponen Delphi ini milik penulis Stefan Cruysberghs.
• Komponen ini freeware untuk penggunaan non-komersial dan dapat bebas didistribusikan.
• Semua sumber (dengan komentar rinci) yang dimasukkan.
• Penulis tidak menjamin karya sempurna komponen ini.
• User terdaftar yang dapat menghitung bahwa bug ini diselesaikan sesegera mungkin.

Pendaftaran

• Jika Anda menemukan menarik, atau komponen dalam lingkungan komersial, Anda harus mendaftar komponen ini.
• Hal ini mendorong penulis untuk komponen Ekspor Excel ini untuk lebih mengembangkan dan memperbaiki.

Manfaat pendaftaran

• Kode sumber lengkap untuk Delphi versi 5-2.009.
• Unlimited lisensi untuk peluncuran (deployment)
• Anda juga akan menerima e-mail saat versi baru atau update.
• Dukungan dapat diminta melalui e-mail.

Harga

• The RegNet Layanan ini digunakan untuk menangani pembayaran. Anda dapat dengan mudah dan aman membayar online dengan kartu kredit. Di samping itu, situs ini juga tersedia dalam bahasa Belanda.
• Seorang pengembang lisensi (lisensi pengembang tunggal): $ 35

https: / / secure.reg.net / produk.asp? ID = 11.696

• Lisensi untuk perusahaan penuh (Situs lisensi, pengembang tidak terbatas): $ 100

https: / / secure.reg.net / produk.asp? ID = 15.336

• Setelah pendaftaran, Anda tidak perlu kunci pendaftaran! Versi yang Anda dapat men-download pada halaman ini, Anda memiliki semua fungsi tersebut.

Unduh

TscExcelExport komponen

	Isi	TscExcelExport komponen dengan sumber-sumber dan contoh program (untuk Delphi 5, 6, 7, 2005, 2006, Turbo Delphi, 2007 dan 2009)
	Versi	3,8 (2008-10-11)
	Ukuran	1,88 Mb
	Author	Stefan Cruysberghs
Sekarang

Export data hasil query ke excel di Delphi

Adakalanya kita membutuhkan laporan data dalam bentuk format file excel, yang mana laporan tersebut biasanya merupakan hasil dari sebuah query. Agar hal tersebut bisa kita lakukan, maka kita bisa menggunakan komponen tambahan yaitu ExcelExport yang dengan mudah kita bisa tambahkan ke component pallete dengan menginsallnya melalui menu Component >> Install Packages.

Langkah-langkahnya :
1. Tambahkan komponen scExcelExport pada form yang akan ada fasilitas untuk export ke excel
2. Tambahkan sebuah button untuk tombol export. Dan ketikkan code berikut, pada event onclick button tersebut.
(Misalkan kita akan mengeksport ke excel data beban mengajar dosen).

procedure Tflapbebanajar.BEksporClick(Sender: TObject);
begin
try
scExcelExport1.ExcelVisible:=True;
scExcelExport1.LoadDefaultProperties;
scExcelExport1.Dataset:=Qbebanajar; //nama komponen query
scExcelExport1.WorksheetName:=’Beban Mengajar Dosen’; //judul sheet
scExcelExport1.ConnectTo := ctNewExcel;

scExcelExport1.HeaderText.Text:= ‘BEBAN MENGAJAR DOSEN ‘;
scExcelExport1.HeaderText.Add(’FAKULTAS SAINS DAN TEKNOLOGI’);
scExcelExport1.BeginRowTitles:=5; //mulai baris data
scExcelExport1.ExportDataset;
finally
scExcelExport1.Disconnect;
end;
end;

[delphi] Export Data to Excel

This is delphi function to export data from delphi to excel. We still use ComOBj to create ole object excel

from delphi.

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, Grids, StdCtrls, ExtCtrls, DBCtrls, DBGrids, DB,
DBTables;

• XLApp := CreateOleObject(’Excel.Application’); –>command to call excel
• XlBook:=XLApp.WorkBooks.Add; –>command to add workbook in excel
• XlSheet := XlBook.worksheets.add; –> command to add worksheet in workbook
• Go to the first record on table
• create loop
• write data on cell worksheet until end of file or last record

This is full function exportab( tab: Ttable; SFile: string): Boolean;

call function :

procedure TForm1.Button3Click(Sender: TObject);
begin

exportab(table1,’export at’+ FormatDateTime(’ dddd dd mmmm yyyy hh mm ss’, Now )+’.xls’);

end;

function TForm1.exportab(tab: Ttable; SFile: string): Boolean;

const
xlCellTypeLastCell = $0000000B;
var
XLApp, XlSheet,XlBook: OLEVariant;
x, r: Integer;
begin
Result := False;
XLApp := CreateOleObject(’Excel.Application’);
try
XlBook:=XLApp.WorkBooks.Add;
XlSheet := XlBook.worksheets.add;
x:=2;

tab.First;
while not tab.Eof do
begin
for r := 1 to tab.FieldCount do
begin
if tab.Fields[r-1].DataType=ftString then
XlSheet.Cells.Item[x, r].Value:=””+tab.Fields[r-1].AsString
else
XlSheet.Cells.Item[x, r].Value:=tab.Fields[r-1].AsString
end;
tab.Next;
inc(x,1);
end;

finally

for r := 1 to tab.FieldCount do
begin
XlSheet.Cells.Item[1, r].Value:=tab.Fields[r-1].FieldName;
XlSheet.cells[1, r].Interior.ColorIndex := 39;
end;
XlSheet.range['A1:z1000'].Columns.AutoFit;
XlApp.visible:=true;

XlApp.ActiveWorkBook.SaveAs(ExtractFilePath(Application.ExeName)+SFile);
XlSheet.PrintPreview;
// XlApp.visible:=true;
// XlApp.free;
end;

end;

NutsMail Squirrelmail theme XP BlueSky Download

XP BlueSky Squirrelmail Skin:

” Add a nice refreshing blue touch to enhance your webmail experience.”


Full Size View

Message Inbox View

Read Message View

XP BlueSky Squirrelmail Download: (dah hilang)