델파이에서 엑셀 읽기

델파이에서 엑셀을 읽어오는 방식으로는

    1. ODBC를 이용

    2. 델파이에서 제공되는 TExcelApplication 등의 components를 이용

    3. ADO 를 이용

 

이 중에서 ADOConnection을 이용하는 방법은 아래와 같다.

엑셀파일을 열어서 Sheet를 읽어 올 때는 Sheet 명 주위를 '[', ']'로 싸 주어야 한다.

 

procedure OpenExcel(sExcelFileName: string);

var
    oExcelConnection: TADOConnection;

    oExcelQuery: TADOQuery;

    oStringList: TStringList;
    sCon: string;
begin

    sCon := 'Provider=Microsoft.Jet.OLEDB.4.0;'

                  + Data Source='  + sExcelFileName.Text

                  + ';Extended Properties=Excel 8.0;Persist Security info=False;';

 

    oExcelConnection := TADOConnection.Create(self);

    oExcelConnection.ConnectionString := sCon

   

    oExcelQuery := TADOQuery.Create(self);

    oExcelQuery.Connection := oExcelConnection;

 

    oStringList := TStringList.Create;

 

    try

        oExcelConnection.Connected := True;

        oExcelConnection.GetTableNames(oStringList);

 

        oExcelQuery.SQL.Text := 'SELECT * FROM [' + oStringList.Strings[0] + ']';

        oExcelQuery.Open;

 

         showmessage('엑셀파일 열기 성공!')

    except

         showmessage('엑셀파일 열기 실패!');

     end;

 

    oExcelQuery.Close;

    oExcelConnection.Connected := False;

    

     oStringList.Free;

     oExcelQuery.Free;

     oExcelConnection.Free;

end;