델파이 TcxDBTreeList 엑셀변환

델파이 TcxDBTreeList 엑셀변환

 

728x90

 

 

 

 

Delphi에서 TcxDBTreeList에서 조회된 자료를

엑셀로 변환하는 과정은 몇 단계로 이뤄집니다.

아래는 간략한 예제 코드입니다.

 

이 코드는 DevExpress VCL 컴포넌트 라이브러리의

TcxDBTreeList 및 TcxGrid 컴포넌트를 기반으로 합니다.

 

엑셀 변환에는 OLE Automation을 사용합니다.

엑셀 객체 초기화: 엑셀을 조작하기 위해

ExcelApplication, Workbook 및 Worksheet 객체를 생성합니다.

 

 

uses

..., cxDBTL, cxGridExportLink, ComObj; var

 

ExcelApp: Variant; Workbook: Variant; Worksheet: Variant;

 

TcxDBTreeList 데이터 로드: TcxDBTreeList에서 데이터를 로드합니다.

 

 

// 예제 데이터셋이라고 가정하고, 실제로는 데이터 소스 및 필드에 맞게 수정해야 합니다.

cxDBTreeList.DataController.DataSource.DataSet.Open;

엑셀에 데이터 복사: TcxDBTreeList의 데이터를 엑셀로 복사합니다.

 

ExcelApp := CreateOleObject('Excel.Application');

ExcelApp.Visible := True;

Workbook := ExcelApp.Workbooks.Add;

Worksheet := Workbook.Worksheets[1];

 

// 엑셀로 데이터 복사

cxGridExportLink1.ExportToExcel(Worksheet, 'A1', true, true, true);

 

 

필요에 따라 메모리를 정리합니다.

 

cxDBTreeList.DataController.DataSource.DataSet.Close;

ExcelApp := Unassigned;

Workbook := Unassigned;

Worksheet := Unassigned;