다음부터는 자료들을 먼저 찾아보시는

작은 성의를 보이시길 바랍니다. 그럼 즐코~~





엑셀의 총레코드수는 입력을 받아야됩니다.



procedure TForm1.Button1Click(Sender: TObject);

var

MyXLApp : Variant ;

i, j : integer ;

begin

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

MyXLapp.workbooks.open(엑셀파일명);



CNT := StrToInt(총 레코드수);

StringGrid1.RowCount := CNT +1;



for i := 1 to CNT do

begin

for j := 1 to 10 do

StringGrid1.Cells[j-1, i] := MyXLapp.cells[i, j] ;

Application.ProcessMessages;

Panel3.Caption :=

'엑셀데이터를 읽어오는 중 입니다. 잠시만 기다리십시요.(총 읽은 수 : '+

IntToStr(i)+' )';

end ;



MyXLApp.WorkBooks.Close;

MyXLApp.quit ;

MyXLApp:=unassigned;

Panel3.Caption := '엑셀데이터 읽기를 완료했습니다.

저장버튼을 눌러 테이블에 저장하십시요.';

end;