프로그램에 Excel 데이터 읽어오기

uses 
  .., ComObj;

var
  ExcelObj: OleVariant;
  WorkBook: OleVariant;
  WorkSheet: OleVariant;
  I, nRowCount: Integer;
begin
  ExcelObj := CreateOLEObject('Excel.Application'); //엑셀 버전에 따라 명칭이 다를 수 있습니다.
  ExcelObj.DisplayAlerts := False; //Silent Mode
  
  WorkBook := ExcelObj.Workbooks.Open('엑셀파일 경로');
  WorkSheet := Workbook.WorkSheets[1]; //Sheet 선택
  
  nRowCount := WorkSheet.UsedRange.Rows.Count; //전체 Row를 구함
  for I := 1 to nRowCount do begin
    //i번째 Row의 첫번째 컬럼을 가져옴 [Row, Col]
    Memo1.Lines.Add(VarToStr(WorkSheet.Cells[I, 1]));
  end;
  
  //해제
  ExcelObj := unAssigned;
  WorkBook := unAssigned;
  WorkSheet := unAssigned;
end;

2019/04/15 - [Delphi/꿀팁] - 프로그램으로 엑셀 검색하기

2019/04/26 - [Delphi/꿀팁] - 프로그램으로 Excel에 데이터 넣고 저장하기