Q&A

  • OLE로 엑셀을 제어 하는데요..셀병합이 안되요..
안녕 하세요.



이번에 Excel로 리포트를 하려고 하는데 데이타는 넘어가는데 포멧 작업이

힘드네요.. 일단 제목을 셀 병합하려고 하는데 어떻게야 하는지...





ExcelWS.Range['A1', 'G1'].Select;

Rnge := ExcelApp.ActiveCell;

with ExcelApp.ActiveCell do

begin

Font.Size := 14;

Font.Name := '굴림체';

Font.FontStyle := 'Bold';

HorizontalAlignment := xlCenter;

VerticalAlignment := xlBottom;

WrapText := False;

Orientation := 0;

AddIndent := False;

ShrinkToFit := False;

MergeCells := False;

end;

ExcelApp.ActiveCell.Merge(Rnge);



위와 같이 하면 font는 바뀌는데 셀병합에서 에러가 발생하네요...



그리고 선그리기나 행높이,열넓이등 문서 포멧에 관한 것도 알려 주시면 감사..(염치없음)



고수님들의 가르침을 바랍니다. 꾸벅....

3  COMMENTS
  • Profile
    떡이 2001.07.21 00:04
    도움이 될지...

    ExcelWS.Range['A1', 'G1'].Merge(EmptyParam);

    라고 써 주시면 되던데요 .





    최락중 wrote:

    > 안녕 하세요.

    >

    > 이번에 Excel로 리포트를 하려고 하는데 데이타는 넘어가는데 포멧 작업이

    > 힘드네요.. 일단 제목을 셀 병합하려고 하는데 어떻게야 하는지...

    >

    >

    > ExcelWS.Range['A1', 'G1'].Select;

    > Rnge := ExcelApp.ActiveCell;

    > with ExcelApp.ActiveCell do

    > begin

    > Font.Size := 14;

    > Font.Name := '굴림체';

    > Font.FontStyle := 'Bold';

    > HorizontalAlignment := xlCenter;

    > VerticalAlignment := xlBottom;

    > WrapText := False;

    > Orientation := 0;

    > AddIndent := False;

    > ShrinkToFit := False;

    > MergeCells := False;

    > end;

    > ExcelApp.ActiveCell.Merge(Rnge);

    >

    > 위와 같이 하면 font는 바뀌는데 셀병합에서 에러가 발생하네요...

    >

    > 그리고 선그리기나 행높이,열넓이등 문서 포멧에 관한 것도 알려 주시면 감사..(염치없음)

    >

    > 고수님들의 가르침을 바랍니다. 꾸벅....

  • Profile
    kokoo 2000.11.14 05:42
    ExcelWS.Range['A1:G1'].merge;

    ExcelWS.Range['A1:G1'].value := '넣을 데이타를 쓰면 돼요..';

    그럼 수고 하세요... ^^;







    > 이번에 Excel로 리포트를 하려고 하는데 데이타는 넘어가는데 포멧 작업이

    > 힘드네요.. 일단 제목을 셀 병합하려고 하는데 어떻게야 하는지...

    >



    ExcelWS.Range['A1', 'G1'].Select;

    > Rnge := ExcelApp.ActiveCell;

    > with ExcelApp.ActiveCell do

    > begin

    > Font.Size := 14;

    > Font.Name := '굴림체';

    > Font.FontStyle := 'Bold';

    > HorizontalAlignment := xlCenter;

    > VerticalAlignment := xlBottom;

    > WrapText := False;

    > Orientation := 0;

    > AddIndent := False;

    > ShrinkToFit := False;

    > MergeCells := False;

    > end;

    > ExcelApp.ActiveCell.Merge(Rnge);

    >

    > 위와 같이 하면 font는 바뀌는데 셀병합에서 에러가 발생하네요...

    >

    > 그리고 선그리기나 행높이,열넓이등 문서 포멧에 관한 것도 알려 주시면 감사..(염치없음)

    >

    > 고수님들의 가르침을 바랍니다. 꾸벅....

  • Profile
    Merge에서 across 라 2001.07.15 00:23
    Merge 프로시저에서 across 라는파라미터가 있던데요,

    안주면 애러가 뜹니다. 아무 파라미트(oleVariant)나 주면

    옆으로는(Range['A1:G1']) 병합이 되지만 아래로는(Range['A2:A5'])

    병합이 않되네요.;;

    가르침을 바랍니다. 꾸벅....



    kokoo wrote:

    > ExcelWS.Range['A1:G1'].merge;

    > ExcelWS.Range['A1:G1'].value := '넣을 데이타를 쓰면 돼요..';

    > 그럼 수고 하세요... ^^;

    >

    >

    >

    > > 이번에 Excel로 리포트를 하려고 하는데 데이타는 넘어가는데 포멧 작업이

    > > 힘드네요.. 일단 제목을 셀 병합하려고 하는데 어떻게야 하는지...

    > >

    >

    > ExcelWS.Range['A1', 'G1'].Select;

    > > Rnge := ExcelApp.ActiveCell;

    > > with ExcelApp.ActiveCell do

    > > begin

    > > Font.Size := 14;

    > > Font.Name := '굴림체';

    > > Font.FontStyle := 'Bold';

    > > HorizontalAlignment := xlCenter;

    > > VerticalAlignment := xlBottom;

    > > WrapText := False;

    > > Orientation := 0;

    > > AddIndent := False;

    > > ShrinkToFit := False;

    > > MergeCells := False;

    > > end;

    > > ExcelApp.ActiveCell.Merge(Rnge);

    > >

    > > 위와 같이 하면 font는 바뀌는데 셀병합에서 에러가 발생하네요...

    > >

    > > 그리고 선그리기나 행높이,열넓이등 문서 포멧에 관한 것도 알려 주시면 감사..(염치없음)

    > >

    > > 고수님들의 가르침을 바랍니다. 꾸벅....