TSMExportToXls를 사용하여 Excel에서 여러 시트를 작성하는 방법 Delphi 구성 요소

Question

데이터 세트에서 Excel 파일을 작성하는 데 TSMExportToXls 구성 요소를 사용하고 있습니다. Excel 파일에 다른 시트를 작성하는 데 어려움을 겪고 있습니다. 그것은 단일 시트에 대한 파일을 작동합니다. 여러 장을 쓰는 법을 모르겠습니다. 다음은 제 코드입니다. 어떤 도움을 주시면 감사하겠습니다.

procedure TfrmXLSExport.btnExportClick(Sender: TObject); 
begin 
    SMExportToXLS1.Header.Add('New Sheet Data'); 
    SMExportToXLS1.Execute; 
end; 

나는 TTable 객체를 만들어 그 안에 데이터를 채워하고 다중 시트 통합 문서를 만들 수 TSMExportToExcel 구성 요소를 사용할 수 있습니다 SMExport에서 TSMExportToXls

Answer 1

의 DataSet 속성으로 설정했습니다. DEMOS \ Merge \ XLS 디렉토리에서 샘플 프로젝트를 확인할 수 있습니다.

Answer 2

대체 방법으로 TSMExportToXLSX 구성 요소를 사용하여 xlsx 파일을 생성 할 수 있습니다. 그러나 TSMExportToXLS는 병합 기능을 지원하지 않습니다.

Answer 3

는이 코드 (델파이) 사용

procedure TFormMain.ExportExec(aDataSet: TDataSet; aSheetName: string); 
var FirstTime : integer; 
begin 
    Inc(FirstTime); 
    //use this code to delete default worksheets but only the first time instead 
    //it will delete those newly created 
    if FirstTime = 1 then 
    XLS.DeleteDefaultSheets := True 
    else 
    XLS.DeleteDefaultSheets := False; 

    XLS.DataSet := aDataSet; 
    XLS.KeyGenerator := aSheetName; 
    XLS.Execute; 
end; 

을 그리고 나는 TSMExportToExcel 구성 요소를 살고 있고 어떻게입니다.

희망이 도움이됩니다. : D