태랑
(윤성태)
|
|
저도 초보라 설명이 어려워서..긁어 붙여 봅니다..
----------------------------------------------
procedure TFrmYno.sSpeedButton12Click(Sender: TObject);
var
v: Variant;
i, j: Integer; //I줄ROW J칸 COLUM
begin //uses 문장에 ComObj를반드시 선언을 하여야 함.
If MessageDlg( '결과값을 엑셀로 출력합니다!',mtConfirmation,[mbNo,mbYes],30) <> mrNo Then
Begin
v := CreateOLEObject('Excel.Application');
v.workBooks.Add;
v.cells.Range[v.Cells.Item[1,1], v.Cells.Item[1,12]].Font.Size := 10;
v.Cells[1,1].Value := '권리';
v.Cells[1,2].Value := '당소번호';
v.Cells[1,3].Value := '출원번호';
v.Cells[1,4].Value := '수임일자';
v.Cells[1,5].Value := '출원일자';
v.Cells[1,6].Value := '등록일자';
v.Cells[1,7].Value := '포기일자';
v.Cells[1,8].Value := '담당자';
v.Cells[1,9].Value := '출원인';
v.Cells[1,10].Value := '대리인';
v.Cells[1,11].Value := '귀소번호';
v.Cells[1,12].Value := 'SS등급';
v.Cells[1,13].Value := 'C국가';
v.cells.Range[v.Cells.Item[1,1], v.Cells.Item[1,13]].Font.Bold := True;
v.cells.Range[v.Cells.Item[1,1], v.Cells.Item[1,13]].HorizontalAlignment :=$00000003; //$00000002 는 왼쪽정렬
i := 0;
wwDBGrid1.DataSource.DataSet.First;
While Not wwDBGrid1.DataSource.DataSet.Eof Do
Begin
i := i + 1;
for j := 1 to wwDBGrid1.FieldCount do
begin
v.Cells[i+1,j].Value := wwDBGrid1.Fields[j-1].AsString;
end;
wwDBGrid1.DataSource.DataSet.Next;
End;
v.cells.Range[v.Cells.Item[2,1], v.Cells.Item[100,wwDBGrid1.FieldCount]].Font.Size := 10;
v.Columns.AutoFit;
v.Visible := True;
End;
end;
----------------------------------------------------------------
2019-05-21 오후 5:28:39
|
|
