Kreuz wrote:

> 안녕하세요?

>

> 엑셀 파일을 읽어들이고 싶은데요..

>

> DBGrid를 쓰지 않고 바로 Text처럼 읽는 방법은 없나요? (*.csv말고 *.xls)

>

> 저희는 DB엔진을 쓰지 않고 직접 읽어서 데이터를 소켓으로 보낸 후에 서버에서

>

> ProC로 DB에 적용하거든요. (유저가 많지 않아서 그게 더 빨라요...^^;;)

>

> 데이터를 CSV로 만들어 달라고 하면 현업에서 투덜거릴 거 같아서...

>

> 방법이 없으면 어쩔 수 없겠지만요..

>

> 아시는 분 답변 부탁드립니다.

>



ADO 컴포넌트 쓰시면 될겁니다...

밑에 소스를 보내니 참고하세요..

일단 ADOQuery로 불러들인 다음....... db로 upload 시키시면 되겠죠..^^

그럼 즐프하세요....

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

with ADOQuery1 do

begin

close;

ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +

OpenDialog1.FileName + ';Extended Properties=Excel 8.0;Persist Security Info=False';

SQL.Clear;

SQL.Text := 'SELECT * FROM [Sheet1$]'; // 엑셀 문서의 sheet값이 Sheet1

open;

end;

end;