Q&A

  • [급질문]엑셀자료를 스트링 그리드에 뿌리는 방법좀 가르쳐주세요...please...
먼저 꾸벅.. 인사.. 그동안 많은 도움 주신분들께 감사드립니다.

급하게 프로그램을 하나 만드는데요.. 엑셀 자료를 스트링 그리드에 뿌리는 방법을 잘 몰라서, 막혀서 현재 작업을 못하고 있는중입니다.

많은 고수님들의 조언 부탁드립니다.



1  COMMENTS
  • Profile
    유종근 2001.02.22 20:31
    Demian wrote:

    > 먼저 꾸벅.. 인사.. 그동안 많은 도움 주신분들께 감사드립니다.

    > 급하게 프로그램을 하나 만드는데요.. 엑셀 자료를 스트링 그리드에 뿌리는 방법을 잘 몰라서, 막혀서 현재 작업을 못하고 있는중입니다.

    > 많은 고수님들의 조언 부탁드립니다.

    >

    엑셀이 설치되어 있다면 아래와 같이 하면 될것같은데요..



    var

    MyXLApp : Variant ;

    i, j : integer ;

    begin

    MyXLApp:= CreateOleObject('Excel.application');

    MyXLapp.workbooks.open('c:book1.xls');



    for i := 1 to ExcelRowNum do

    begin

    for j := 1 to ExcelColNum do

    StringGrid1.Cells[j, i] := Xlapp.cells[j, i] ;

    end ;



    MyXLApp.quit ;

    end;



    그럼 수고하세요....