방문객 wrote:

> 저번에도 여러번 질문을 올렸는데 답변이 없군요...

>

> stringgrid의 내용을 엑셀로 올리고 싶은데 방법이 없나요?

> dbgrid를 엑셀로 올리는게 가능한거 보면 될것도 같은데...

> 답변이 없어서...

>

> 이번에도 답변이 없으면 포기 할래요...





일단 interface uses절에 OleCtrls, ComObj를 추가 하세요





procedure TFrm_MenuB_Busu.BitBtn2Click(Sender: TObject);

var

i, m_count : integer;

sheet : variant;

xl : variant;

begin

if SG1.Cells[1, 1] = '' then

begin

Application.MessageBox(' 저장할 자료가 없습니다.','확인',mb_Ok+mb_IConInformation);

Exit;

end;

xl := createoleobject('excel.application');

xl.visible := true;

xl.workbooks.add(-4167);

xl.workbooks[1].worksheets[1].name := '부서별 금액총계';//Sheet제목

sheet := xl.workbooks[1].worksheets['부서별 금액총계'];//Sheet제목

m_count := SG1.RowCount;

with SG1 do

begin

for i := 1 to m_count do

begin

sheet.cells[i,1] := Cells[0, i-1];

sheet.cells[i,2] := Cells[1, i-1];

sheet.cells[i,3] := Cells[2, i-1];

sheet.cells[i,4] := Cells[3, i-1];

end;

end;

Exit;

end;



엑셀 sheet는 1부터 시작이고 StringGrid는 0부터 시작만 조심하세요.!!1

방문객 wrote:

> 저번에도 여러번 질문을 올렸는데 답변이 없군요...

>

> stringgrid의 내용을 엑셀로 올리고 싶은데 방법이 없나요?

> dbgrid를 엑셀로 올리는게 가능한거 보면 될것도 같은데...

> 답변이 없어서...

>

> 이번에도 답변이 없으면 포기 할래요...



TAdvStringGrid 라는 콤포넌트에서 지원합니다..

간단히 한줄로 엑셀 변환이 가능하더군여...



아래 홈페쥐를 참조하세요..

http://www.tmssoftware.com

방문객 wrote:

> 저번에도 여러번 질문을 올렸는데 답변이 없군요...

>

> stringgrid의 내용을 엑셀로 올리고 싶은데 방법이 없나요?

> dbgrid를 엑셀로 올리는게 가능한거 보면 될것도 같은데...

> 답변이 없어서...

>

> 이번에도 답변이 없으면 포기 할래요...



대답이 궁색하지만...

엑셀로 데이타 옮기는건 콤포넌트는 절나 많음.

그리고 dbgrid에서 옮기는거나 stringgrid에서 옮기는거나...

오십보 백보.