[Delphi] MS Excel 문서 읽기

uses Windows, SysUtils, Forms, Variants, ComObj, OleServer;

 

 

...

...

...

 

 

function GetExcelText(fName: String): String;
var
  Excel: OleVariant;
  i, j: Integer;
  tmpString: String;

 

begin
  Result:='';

 

  // 엑셀 어플리케이션 생성
  try

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

  except
    MessageBox(0,'Excel이 설치되어 있지 않습니다.','',MB_OK);
    Exit;
  end;

 

  // 파일이 있는지 확인
  if not FileExists(fName) then begin
    MessageBox(0,'파일이 없습니다','',MB_OK);
    Exit;
  end;

 

  // WorkBooks Open
  Excel.Workbooks.Open(fName);

 

  // Cell 의 내용을 받아옴
  for i:=1 to Excel.ActiveSheet.UsedRange.Rows.Count do begin
    for j:=1 to Excel.ActiveSheet.UsedRange.Columns.Count do begin
      tmpString:=Excel.Cells[i, j];
      if Length(Trim(tmpString))>0 then Result:=Result+#13#10+tmpString;

      Application.ProcessMessages;
    end;
  end;

 

  // 해제과정
  Excel.Workbooks.Close;
  Excel.Quit;
  Excel:=Unassigned;
end;