|
1. 개발/실행 플랫폼
(1) OS : Windows 7
(2) 개발툴 : Delphi 7
(3) 사용 Database : Firebird 2.1
2. 개발 중인 프로그램
3. 질문 내용
엑셀파일을DB에 넣고 스트링그리드로 불러와서 열기 까지는 만들었 습니다. 엑샐 양식을 DB에 넣고 불러와서 엑셀 양식에 이미지가 포함된 데이터를 뿌려주는 루턴을 만들었습니다. 뮨제는 데이터는 양식에 잘 들어가는데 이미지는 엑셀 양식에 들어가지 않네요.
OpenDialog 로 엑셀 양식을 불러와서 뿌려주는 것은 이미지나 데이터가 잘 들어갑니다.
아래코드는 DB에서 스트링그리드로 불러들인 엑셀 양식을 선택하여 데이터를 엑셀에 뿌려주는 코드 입니다. 고수님들 무었이 잘못 된건지 좀 봐주세요.
// 퀴리결과 엑셀로 보내기
procedure TFEM2011_F.Btn_ExcelClick(Sender: TObject);
VAR
EXEDir,DataDir : String;
FileExt : String;
aImage : String;
XL,xlbook,xlsheet : VARIANT;
ArrV : OleVariant;
nROW,iRow : integer;
I,Row,Col : Integer;
begin
EXEDir := ExtractFilePath(Application.ExeName);
DataDir := EXEDir + 'Injang\';
ForceDirectories(DataDir);
aImage:=DataDir+'EQIMG.JPG';
Screen.Cursor:= crHourGlass;
try
XL:= CreateOleObject('Excel.Application');
except
Application.MessageBox('Excel이 설치되어 있지 않습니다. 먼저 Excel을 설치하세요.',
'오류', MB_OK or MB_ICONERROR);
Screen.Cursor:= crDefault;
Exit;
end;
{----<첨부파일에 있는 프로그램 호출>---}
// 엑셀양식 저장DB 프로그램 불러오기
ECLFILE_F := TECLFILE_F.create(self);
Try
ECLFILE_F.showmodal;
finally
ECLFILE_F.close;
end;
{--------------------------------------}
Try
XL.Visible := True;
APPLICATION.BringToFront;
// FORM CAPTION을 제목으로 넘기기
nROW:=1;
XL.CELLS[nROW,1].FONT.NAME:='굴림';
XL.CELLS[nROW,1].FONT.SIZE:=24;
XL.CELLS[nROW,1].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,1].FONT.BOLD:=TRUE;
XL.CELLS[nROW,1]:=Copy(Panel11.Caption,1,17);
// 장비코드 넘기기
nROW:=2;
XL.CELLS[nROW,2].FONT.NAME:='굴림';
XL.CELLS[nROW,2].FONT.SIZE:=14;
XL.CELLS[nROW,2].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,2].FONT.BOLD:=TRUE;
XL.CELLS[nROW,2]:=ED_QFEQ_CODE.Text;
// 기기명 넘기기
nROW:=3;
XL.CELLS[nROW,2].FONT.NAME:='굴림';
XL.CELLS[nROW,2].FONT.SIZE:=14;
XL.CELLS[nROW,2].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,2].FONT.BOLD:=TRUE;
XL.CELLS[nROW,2]:=ED_QFEQ_NM.Text;
// 조회일자 넘기기
nROW:=3;
XL.CELLS[nROW,6].FONT.NAME:='굴림';
XL.CELLS[nROW,6].FONT.SIZE:=12;
XL.CELLS[nROW,6].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,6].FONT.BOLD:=TRUE;
XL.CELLS[nROW,6]:='조회일자: '+FORMATDATETIME('yyyy"년" mm"월" dd"일"',DATE);
// 설치장소 넘기기
nROW:=4;
XL.CELLS[nROW,2].FONT.NAME:='굴림';
XL.CELLS[nROW,2].FONT.SIZE:=14;
XL.CELLS[nROW,2].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,2].FONT.BOLD:=TRUE;
XL.CELLS[nROW,2]:=ED_QESBH_LC.Text;
// 합계정비금액 넘기기
nROW:=4;
XL.CELLS[nROW,4].FONT.NAME:='굴림';
XL.CELLS[nROW,4].FONT.SIZE:=12;
XL.CELLS[nROW,4].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,4].FONT.BOLD:=TRUE;
XL.CELLS[nROW,4]:=St_AMT.CAPTION;
// 처리건수 넘기기
nROW:=4;
XL.CELLS[nROW,6].FONT.NAME:='굴림';
XL.CELLS[nROW,6].FONT.SIZE:=12;
XL.CELLS[nROW,6].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,6].FONT.BOLD:=TRUE;
XL.CELLS[nROW,6]:='처리건수: '+Lb_CrKunSu.CAPTION;
{----------------<이미지를 엑셀에 뿌리기>----------------------------}
// 이미지 엑셀로 넘기기(작성)
IF FileExists( aImage ) then
begin // 여기서부터 인식을 못하고 지나가는 곳입니다.
xlsheet.cells[5,1].select;
xlsheet.pictures.insert(aImage).Select;
xlsheet.pictures[1].ShapeRange.Left := xlsheet.Range['A5'].Left;
xlsheet.pictures[1].ShapeRange.Top := xlsheet.Range['A5'].Top;
xlsheet.pictures[1].ShapeRange.IncrementLeft(10);
xlsheet.pictures[1].ShapeRange.IncrementTop(1);
xlsheet.pictures[1].width := 312;
xlsheet.pictures[1].height:= 215;
end;
{--------------------------------------------------------------------}
// 기기NO 넘기기
nROW:=5;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QFEQ_CODE.Text;
// 기기명 넘기기
nROW:=6;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QFEQ_NM.Text;
// 장비분류 넘기기
nROW:=7;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=14;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QFEQ_DV.Text;
// 부서명 넘기기
nROW:=8;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=14;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ST_QPART_NM.Caption;
// 공급장소 넘기기
nROW:=7;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QSPL_LC.Text;
// 제조번호 넘기기
nROW:=8;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QMAK_NO.Text;
// 제작회사 넘기기
nROW:=9;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QMET_COMP.Text;
// 설치장소 넘기기
nROW:=10;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QESBH_LC.Text;
// 설치년도 넘기기
nROW:=11;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QESBH_YR.Text;
// 형식 넘기기
nROW:=12;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QFEQ_FROM.Text;
// 수량 넘기기
nROW:=13;
XL.CELLS[nROW,5].FONT.NAME:='굴림';
XL.CELLS[nROW,5].FONT.SIZE:=12;
XL.CELLS[nROW,5].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,5]:=ED_QFEQ_QTY.Text;
// 장비제원 넘기기
nROW:=6;
XL.CELLS[nROW,7].FONT.NAME:='굴림';
XL.CELLS[nROW,7].FONT.SIZE:=9;
XL.CELLS[nROW,7].FONT.COLOR:=clBLACK;
XL.CELLS[nROW,7]:=MO_QFEQ_STD.Lines.Text;
XL.Cells[6, 7].Value := StringReplace(MO_QFEQ_STD.Lines.Text,
#13, '', [rfReplaceAll]);
ArrV:= VarArrayCreate([0, StringGrid1.RowCount,
0, StringGrid1.ColCount], varOlestr);
I:= 0;
// 검색 루프
for Row:=0 to StringGrid1.RowCount -1 do
begin
//INC(nROW);
// 셀병합
XL.Range['E' + IntToStr(16 + Row) + ':G' + IntToStr(16+Row)].mergecells := True;
// 필드 넘기기
for Col:= 0 to StringGrid1.ColCount -1 do
begin
ArrV[Row,Col]:=StringGrid1.cells[Col,Row];
if (Row <> 0) then
// 문자를 숫자포멧으로 전환하여 자료를 엑셀로 넘긴다.
XL.CELLS[Row +16, Col + 1].Value := StringGrid1.Cells[Col, Row];
end;
Inc(I);
end;
// 1셀씩 뿌리기
nRow := 17;
for iRow :=1 to StringGrid1.RowCount do
begin
XL.CELLS[nROW,8] :=StringGrid1.Cells[5,iRow]; //비고
inc(nROW);
end;
// 테두리
XL.Range['A' + IntToStr(16) + ':H' + IntToStr(15+StringGrid1.RowCount)].Borders.Color := clBlack;
// 필드를 가운데 정렬
XL.Workbooks[1].WorkSheets[1].Range['A16:H116'].HorizontalAlignment :=xlHAlignCenter;
XL.Visible := True; //엑셀 출력
// 필드줄 굵은 테두리 설정
XL.Range['A16:H16'].Select;
XL.Range[XL.Selection, XL.Selection.End[xlDown]].Select;
XL.Selection.Borders[xlEdgeLeft].Weight := xlMedium;
XL.Selection.Borders[xlEdgeTop].Weight := xlMedium;
XL.Selection.Borders[xlEdgeBottom].Weight := xlMedium;
XL.Selection.Borders[xlEdgeRight].Weight := xlMedium;
// 제목줄 굵은 테두리 설정
XL.Range['A16:H16'].Select;
XL.Selection.Borders[xlEdgeLeft].Weight := xlMedium;
XL.Selection.Borders[xlEdgeTop].Weight := xlMedium;
XL.Selection.Borders[xlEdgeBottom].Weight := xlMedium;
XL.Selection.Borders[xlEdgeRight].Weight := xlMedium;
// 엑셀 문자를 셀에 맞춘다.
XL.Range['A17:H17'].Select;
XL.Range[XL.Selection, XL.Selection.End[xlDown]].Select;
XL.Selection.HorizontalAlignment := xlGeneral;
XL.Selection.VerticalAlignment := xlCenter;
XL.Selection.ShrinkToFit := True;
XL.Selection.ReadingOrder := xlContext;
// 폰트 지정
XL.Range['A17:H17'].Select;
XL.Range[XL.Selection, XL.Selection.End[xlDown]].Select;
XL.Selection.Font.Name := '굴림체';
XL.Selection.Font.Size := 10;
XL.Range['A1'].Select;
finally
Screen.Cursor:= crDefault;
End;
Btn_Excel.Enabled := False;
end;
|
[질문]DB에 있는 엑셀 양식에 이미지 뿌리기 좀 봐주세요.
