Q&A

  • 스트링그리드에서 엑셀로...
저의 소스를 먼저 보시구여

ExcelApplication1.Connect;

ExcelApplication1.Visible[0] := true;

ExcelApplication1.caption := ' 에디트를 엑셀로';

ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);

ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);

ExcelWorksheet1.ConnectTo(ExcelWorkBook1.Sheets[1] As _Worksheet);

ExcelWorksheet1.cells.Item[1,1] := StringGrid1.Cells[1,1];



이러면... 쩝... 스트링 그리드에 있는 내용이 엑셀로 넘어가지 않아여..

에러가 나오거든여..OLE error 800A03EC 뭘까여..쩝.. 답답하당..ㅠ.ㅠ

근데... edit1.text := StringGrid1.Cells[1,1];

ExcelWorksheet1.cells.Item[1,1] := edit1.text; 이렇게 하면.

엑셀로 넘어가거든여... 쩝... 한번에 넘어가는걸 하고 싶은데..



그리고.. 엑셀에서 그리드로 뿌려주는것도 하고 싶거든여...



근데 보시다시피 제가 server 텝에 있는 엑셀 컴포넌트를 쓰고 있잖아여..

그래서..컴포넌트 안쓰고 하는거 말고.. 컴포넌트를 이용해서 자료를 뿌려주는걸

알고 싶거든여.. 부탁합니다.. 또..아래에 제가 질문드린 엑셀을 닫으면,

완전히 죽이는 법도 알고 싶습니다..

1  COMMENTS
  • Profile
    류응철 2000.05.25 02:36
    아래의 소스중에서 스트링그리드에서 엑셀로 가는건 되네여...

    몇시간동안 안되던데.. 왜 갑자기 될까..쩝...

    OLE error 800A03EC <--- 이 에러가 뭔지 가르쳐주세여...



    류응철 wrote:

    > 저의 소스를 먼저 보시구여

    > ExcelApplication1.Connect;

    > ExcelApplication1.Visible[0] := true;

    > ExcelApplication1.caption := ' 에디트를 엑셀로';

    > ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);

    > ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);

    > ExcelWorksheet1.ConnectTo(ExcelWorkBook1.Sheets[1] As _Worksheet);

    > ExcelWorksheet1.cells.Item[1,1] := StringGrid1.Cells[1,1];

    >

    > 이러면... 쩝... 스트링 그리드에 있는 내용이 엑셀로 넘어가지 않아여..

    > 에러가 나오거든여..OLE error 800A03EC 뭘까여..쩝.. 답답하당..ㅠ.ㅠ

    > 근데... edit1.text := StringGrid1.Cells[1,1];

    > ExcelWorksheet1.cells.Item[1,1] := edit1.text; 이렇게 하면.

    > 엑셀로 넘어가거든여... 쩝... 한번에 넘어가는걸 하고 싶은데..

    >

    > 그리고.. 엑셀에서 그리드로 뿌려주는것도 하고 싶거든여...

    >

    > 근데 보시다시피 제가 server 텝에 있는 엑셀 컴포넌트를 쓰고 있잖아여..

    > 그래서..컴포넌트 안쓰고 하는거 말고.. 컴포넌트를 이용해서 자료를 뿌려주는걸

    > 알고 싶거든여.. 부탁합니다.. 또..아래에 제가 질문드린 엑셀을 닫으면,

    > 완전히 죽이는 법도 알고 싶습니다..