안녕하세요?

고드름 김정입니다.



var

XL : Variant;

begin

try

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

except

MessageDlg('Excel이 설치되어 있지 않습니다.', MtWarning, [mbok], 0);

Exit;

end;



XL.Visible := False; // 화면에 보이지않게 설정합니다.

XL.WorkBooks.Add; // 그냥 워크북을 생성합니다.

// XL.workbooks.Add( 'oldfile.xls' ); // 특정화일을 open합니다.

XL.Range['A2', 'A2'].Value := '입력값입니다.';

XL.Range['A1', 'A10'].Select; // A1 부터 A10 까지 Select 합니다.

XL.Selection.Columns.AutoFit; // select 범위의 컬럼을 자동 정렬합니다.

XL.Selection.Font.Size := 10; // 폰트 크기를 10로 맞춥니다.

XL.workbooks[1].SaveAs( 'newfile.xls' );

XL.workbooks[1].Close; // 워크북을 닫습니다.

XL.Quit; //엑셀을 종료합니다.



이상입니다. 입력/수정정도 하실 수 있을 겁니다.



이외에 작업 내용은 엑셀에서 매크로를 Record해서 Macro Edit 소스를 보면,

VBscript 로 위와 같은 형태의 작업 내용을 확인할 수 있습니다.

저도 모르는 건 그렇게 공부했습니다.

이럴경우 문제는 상수값들인데, 소스의 상수에서 오른쪽 클릭하여 요약정보를 보면,

상수 정의값 자체가 나오더군요. 그걸 const로 선언해서 사용하면 됩니다.



그럼.



맹주형 wrote:

> 엑셀파일이 이미 생성되어 있습니다.

> 엑셀파일을 열어서 여기에 새로운 데이터를 특정한 셀에

> 업데이트를 하려고 하는데 어떻게 해야 하나요...