자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이6 버젼에서 엑셀에 자료를 저장하기 위해 아래와 같이
구현하였눈데 아래와 같은 에러가 나는데 원인을 알려 주시면 고맙겠습니다.
procedure TFHWA67R.Button1Click(Sender: TObject);
var
WorkBook, WorkSheet : OLEVariant;
XL : OLEVariant;
begin
try
try
//엑셀을 실행
XL := CreateOLEObject('Excel.Application');
except
MessageDlg('Excel이 설치되어 있지 않습니다.',MtWarning, [mbok], 0);
Exit;
end;
WorkBook := XL.WorkBooks.Add; //새로운 페이지 생성
// WorkBook := XL.ActiveWorkBook;
WorkBook.Sheets.Add;
WorkSheet := WorkBook.WorkSheets[1];
XL.Visible := True;
WorkSheet.Cells[0,1].Value := '1';
WorkSheet.Cells[0,2].Value := '2';
finally
//XL.workbooks.Close;
//XL.Application.Quit;
end;
end;
댓글 5
-
김원경
2020.04.27 11:17
-
똘귀아빠
2020.04.27 11:18
-
똘귀아빠
2020.04.27 11:19
엑셀버젼은 excel 2016입니다.
-
김원경
2020.04.27 12:04
아 ! 엑셀은 0부터 시작이 아니고 1부터 시작입니다.
WorkSheet.Cells[1,1].Value := '1';
WorkSheet.Cells[1,2].Value := '2';
이렇게 수정하니 되네요 ~~
-
똘귀아빠
2020.04.27 15:37
잘 해결 되어습니다 고맙습니다
그덴 혹시 델파이로 엑셀 셀의 넓이 나 폰트크기 같은 것 등을 조절 할 수 있나요
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
델파이6 버젼에서 엑셀에 자료를 저장하기 위해 아래와 같이
구현하였눈데 아래와 같은 에러가 나는데 원인을 알려 주시면 고맙겠습니다.
procedure TFHWA67R.Button1Click(Sender: TObject);
var
WorkBook, WorkSheet : OLEVariant;
XL : OLEVariant;
begin
try
try
//엑셀을 실행
XL := CreateOLEObject('Excel.Application');
except
MessageDlg('Excel이 설치되어 있지 않습니다.',MtWarning, [mbok], 0);
Exit;
end;
WorkBook := XL.WorkBooks.Add; //새로운 페이지 생성
// WorkBook := XL.ActiveWorkBook;
WorkBook.Sheets.Add;
WorkSheet := WorkBook.WorkSheets[1];
XL.Visible := True;
WorkSheet.Cells[0,1].Value := '1';
WorkSheet.Cells[0,2].Value := '2';
finally
//XL.workbooks.Close;
//XL.Application.Quit;
end;
end;
댓글 5
-
김원경
2020.04.27 11:17
-
똘귀아빠
2020.04.27 11:18
-
똘귀아빠
2020.04.27 11:19
엑셀버젼은 excel 2016입니다.
-
김원경
2020.04.27 12:04
아 ! 엑셀은 0부터 시작이 아니고 1부터 시작입니다.
WorkSheet.Cells[1,1].Value := '1';
WorkSheet.Cells[1,2].Value := '2';
이렇게 수정하니 되네요 ~~
-
똘귀아빠
2020.04.27 15:37
잘 해결 되어습니다 고맙습니다
그덴 혹시 델파이로 엑셀 셀의 넓이 나 폰트크기 같은 것 등을 조절 할 수 있나요
오류 이미지를 파일첨부로 다시 올려주시면 감사하겠습니다. (안보임) 또 하나 엑셀 버전도 좀 적어주세요.
엑셀의 버전에따라 약간 다른 부분이 있습니다.