아래와 같이 코딩을 했는데 이상하게 excel값이 stringgrid에는 보여지는데

showmessage를 하면 값이 안보입니다. 어떻게 된건지 아시는 분 제발

답변좀 주세요...



그리고

ShowMessage(Sht.Cells[i, j]); 이렇게 썼을때는 값이 안보이고,

ShowMessage(Sht.Cells[2, 1]); 이렇게 썼을때는 값이 보입니다.

어떻게 된건지요.



uses comobj;

...

procedure TForm1.Button1Click(Sender: TObject);

var

Excel, Wbk, Sht: Variant;

i, j : integer ;

begin

//엑셀 호출

try

Excel := CreateOleObject('Excel.Application');

except

on EOleError do Exit;

end;



// Excel.Visible := True;



try

Wbk := Excel.Workbooks.Open['c:testtest.xls'];

except

ShowMessage('엑셀 파일을 찾을 수 없습니다.');

end;



//엑셀파일 첫번째 쉬트 첫행 첫칸의 값을 읽어온다.

Sht := Wbk.Worksheets[1];



for i := 1 to 2 do

begin

for j := 1 to 1 do

StringGrid1.Cells[j, i] := Sht.Cells[i, j] ;

ShowMessage(Sht.Cells[i, j]);

end ;



ShowMessage(Sht.Cells[2, 1]);

Excel.quit ;

end;