아래소스로 엑셀파일은 잘불려지거든여
스트링그리드에두 잘나오구여
근대여
다불어오구나서는 마우스커서가 화살표로 대야 되는대여
계속 모래시계로 있내여 왜그런지??????
프로그램이 제대로 끝나지 않아서그러지???
부탁드립니다....

procedure TForm1.Button1Click(Sender: TObject);
// 버튼 클릭시 스트링그리드에 엑셀 화일 불러오기 입니다.
var
   MyXLApp : Variant ;
   i,j,l,m:integer;
begin
screen.Cursor:=crhourglass;
MyXLApp:= CreateOleObject('excel.application');
MyXLapp.workbooks.open( 'D:DELPHI20020930엑셀팔호출918.xls');   // 엑셀화일위치를 설정
MyXLapp.Sheets['sheet1'].Select ;

//값받아올때는 아래처럼
for i := 1 to 210 do begin// 엑셀의 행 갯수인데요. 갯수는 임의로 넣었습니다.
    for j:=5 to StringGrid1.ColCount do begin
       StringGrid1.Cells[0,i]:=inttostr(i);
       if i mod 10=0 then
       begin
//        StringGrid1.Fixe
       end
       else
       begin
        StringGrid1.Cells[j,i-1]:=myxlapp.cells[i,j];
       end;

    end;
end;