procedure TFm2011.FOpenBtnClick(Sender: TObject);

var fname :string;

Excel,Wbk,Sht : Variant;

begin



//에디트박스를 놓고 내가 열고자 하는 엑셀Sheet명(마케팅)을 입력합니다

//그리고 그 값을 변수에 저장 합니다

fname := ac_fname.Text+ '$'; //변수결과 확인 ---> 마케팅$



try

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

Excel := ('[APP.MAXIMIZE()]');

Except

on EOleError do Exit;

end;

if OpenDialog1.Execute then begin

try

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;



//아래구문일 경우 ADO쿼리가 정상적으로 OPEN

//SQL.Text := 'SELECT * FROM [마케팅$]'; // 불러올 엑셀의sheet명



//아래구문은 위의 변수를 대입하려는데 Error를 냅니다

//시트명을 찾을수 없다는......

SQL.Text := 'SELECT * FROM [fname]'; // 불러올 엑셀의sheet명

open;

end;

Except

Showmessage('Excel 파일을