안녕하세요~ 간단한 팁하나 알려드릴께요~

일반적으로 엑셀을 변환시에는 아래와 같이 사용하는데요~

xls := CreateOleObject( 'Excel.Application' );
wb := xls.workbooks.add;
lineNumber := 1;

for i:=1 to stringgrid1.rowcount-1 do begin
  for j:=0 to stringgrid1.ColCount-1 do begin
    wb.Cells.Item[i+lineNumber,j+1] := stringgrid1.Cells[j,i];
  end;
end;

대용량의 데이터를 엑셀로 변환시에는 상당한 시간이 소요되더라구요~

그래서 MSDN를 찾아보니깐 배열로 저장한 다음에 Range에다 한번에 넣으라고 나와있더군요~

그래서 아래와 같이 적용해보니깐 빠르게 변환이 되더군요~ (속도측정까지는 안해봤지만-_-a)

var
  xls, wb, Range: OLEVariant;
  arrData: Variant;
  RowCount, ColCount, i, j: Integer;
begin
  RowCount := StringGrid1.RowCount;
  ColCount := StringGrid1.ColCount
  arrData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

  for i := 1 to RowCount do
    for j := 1 to ColCount do
      arrData[i, j] := StringGrid1.Cells[j-1, i-1];

  xls := CreateOLEObject('Excel.Application');
  wb := xls.Workbooks.Add;
  Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1, 1],
                                  wb.WorkSheets[1].Cells[RowCount, ColCount]];

  Range.Value := arrData;

  xls.Visible := True;
end;

스타일도 Range단위로 적용하면 되는데요~
단, 제가 테스트했을때는 Font 관련된 스타일을 적용시에는 변환이 오래걸리더라고요~
(이유는 잘 모르겠네요 -_-;)

Range.Borders.LineStyle := 1;
Range.Borders.Weight := 2;
Range.Borders.ColorIndex := 16;

이런식으로 적용하면 한결 빠른 속도로 변환이 되더군요. 그외 스타일을 전부다 적용안해봤지만

각자 테스트해보시면 되실듯 합니다.^^

올 한해 델마당 수고했어요~ 내년에는 더욱더 화이팅 하자고요^^