안녕하세요. 저는 얼마전 회사에 취직했는데..

프로그램 경력은 없고, 현재 유지 보수 중입니다.

학원에서 델파이를 조금 배웠지만. 실력은 너무 미비합니다.



현재 db의 자료를 엑셀 파일로 내료받기 하는 부분입니다.

엑셀 파일은 로컬 pc에 존재하고

파일의 지정된 셀에 자료를 박아야 합니다.



그런데 엑셀을 응용프로그램을 생성하는 부분에서 아래의 에러가 발생합니다.



'MOF.XLS을(를) 사용할 수 없습니다. 파일이 읽기 전용이거나 읽기 전용 위치에 접근하여 했습니다. 또

는 문서를 저장한 서버가 응답하지 않습니다.'



그러나 현재 대상 파일은 모두 읽기/쓰기 가능합니다.

엑셀 버젼이 맞지 않아서 그렇다는 말도 있는데 만일 그렇다면 어떻게 해결해야 하는지

도와 주세요..





-----------------------------SOURCE 일부--------------------------

with qryWork do

begin

Close; Sql.Clear;

Sql.Add('Select Name, Excel From ExcelFile');

Sql.Add('Where Code = :Code');

ParamByName('Code').AsString := '10001';

Open;

vPath := ExtractFilePath(Application.ExeName) + 'Temp' + FieldByName('Name').AsString + '.XLS';

TBlobField(FieldByName('Excel')).SaveToFile(vPath);

end;





(에러 발생 부분)

v := CreateOLEObject('Excel.Application');

if fileExists(vPath) then

v.workbooks.open(vPath)

else begin

v.workbooks.add;

v.ActiveWorkbooks.saveas(vPath);

end;

v.DisplayAlerts := False;



if cbofactory.Text= 'DS' then

v.cells[2,3].formula :='Chang Shin [ CSI ]'

else if cbofactory.Text= 'QD' then

v.cells[2,3].formula :='QingDao Changshin Trading co., LTD'

else v.cells[2,3].formula :='Changshin Trading co., LTD';

v.cells[2,10].formula := edtModel.Text;

v.cells[2,17].formula := edtCode.Text;