왕델초보 wrote:

>

> 스트링 그리드 내용을 엑셀로 보내기 기능을 구현할 수 있나요?

>

> 디비그리드를 엑셀로 보내기는 많이 보이는데 스트링 그리드는 없네요...

>

> 오늘도 좋은 하루...





procedure StringGridToExcel_GRD(var vSGGrid: TStringGrid; Title: string);

var

XL, XLBook: Variant;

i, j, k: Longint;

si, sj: integer;

begin

with vSGGrid do begin

try

XL := GetActiveOLEObject('Excel.Application');

except

on E: EOleSysError do begin

try

XL := CreateOLEObject('Excel.Application'); //엑셀을 실행

except

MessageDlg('Excel이 설치되어 있지 않습니다.', MtWarning, [mbok], 0);

Exit;

end;

end;

end;

try

XLBook := XL.WorkBooks.Add; //새로운 페이지 생성

XLBook.WorkSheets[1].Name := Title;

XL.Visible := True;

i := 1; si := 0;

k := 1; sj := 0;

for si := 0 to colCount - 1 do begin

if si = 0 then

XLBook.WorkSheets[Title].Range['A1'].Value := Cells[si,0]

else if si = 1 then

XLBook.WorkSheets[Title].Range['B1'].Value := Cells[si,0]

else if si = 2 then

XLBook.WorkSheets[Title].Range['C1'].Value := Cells[si,0]

else

XLBook.WorkSheets[Title].Range['D1'].Value := Cells[si,0];

end;

for si := 0 to colCount - 1 do begin

for sj := 1 to RowCount - 1 do begin

if si = 0 then

XLBook.WorkSheets[Title].Range['A'+IntToStr(sj+1)].Value := Cells[si,sj]

else if si = 1 then

XLBook.WorkSheets[Title].Range['B'+IntToStr(sj+1)].Value := Cells[si,sj]

else if si = 2 then

XLBook.WorkSheets[Title].Range['C'+IntToStr(sj+1)].Value := Cells[si,sj]

else

XLBook.WorkSheets[Title].Range['D'+IntToStr(sj+1)].Value := Cells[si,sj];

end;

end;

XLBook.WorkSheets[Title].Range['A1', 'A1'].Select;

XL.Selection.Columns.AutoFit;

finally

XLBook := UnAssigned;

XL := UnAssigned;

end;

end;

end;



좀 복잡하나요...