Q&A
- 엑셀 파일로 저장시 문제 입니다.
procedure TFRM_CDR_SUB_REPORT.XlsBtnClick(Sender: TObject);
Var
v : Variant;
i,j : Integer;
begin
Screen.Cursor := crHourGlass;
Try
v := CreateOleObject('Excel.Application');
Except
MessageDlg('Excel이 설치되어 있지 않습니다!',mtWarning,[mbOk],0);
Screen.Cursor := crDefault;
Exit;
End;
v.WorkBooks.Add;
DM.SubDtlPrn_Q.DisableControls;
DM.SubDtlPrn_Q.First;
For i := 0 To DM.SubDtlPrn_Q.RecordCount-1 Do
Begin
For j := 1 To DBGrid1.FieldCount Do
Begin
v.Cells[i+1,j].Value := DM.SubDtlPrn_Q.Fields[j-1].AsString;
End;
DM.SubDtlPrn_Q.Next;
End;
DM.SubDtlPrn_Q.EnableControls;
Screen.Cursor := crDefault;
v.Visible := True;
end;
CreateOleObject 이 선언되어 있지 않다고 나오면서 컴파일시 실행이 안됩니다.
기존에 누가 했던걸 그대로 코드만 복사한 건데..
그건 됩니다..
도대체 무슨 문제죠?
답변 꼭꼭꼭 부탁 드립니다.
행복하세요
Var
v : Variant;
i,j : Integer;
begin
Screen.Cursor := crHourGlass;
Try
v := CreateOleObject('Excel.Application');
Except
MessageDlg('Excel이 설치되어 있지 않습니다!',mtWarning,[mbOk],0);
Screen.Cursor := crDefault;
Exit;
End;
v.WorkBooks.Add;
DM.SubDtlPrn_Q.DisableControls;
DM.SubDtlPrn_Q.First;
For i := 0 To DM.SubDtlPrn_Q.RecordCount-1 Do
Begin
For j := 1 To DBGrid1.FieldCount Do
Begin
v.Cells[i+1,j].Value := DM.SubDtlPrn_Q.Fields[j-1].AsString;
End;
DM.SubDtlPrn_Q.Next;
End;
DM.SubDtlPrn_Q.EnableControls;
Screen.Cursor := crDefault;
v.Visible := True;
end;
CreateOleObject 이 선언되어 있지 않다고 나오면서 컴파일시 실행이 안됩니다.
기존에 누가 했던걸 그대로 코드만 복사한 건데..
그건 됩니다..
도대체 무슨 문제죠?
답변 꼭꼭꼭 부탁 드립니다.
행복하세요
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- aparadin
- 2001.07.24 03:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 초짜맨
- 2001.07.24 02:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.07.24 02:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 이기용
- 2001.07.24 02:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.07.24 02:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 성승기
- •
- 2001.07.24 02:16
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.07.24 02:23델파이 디렉토리의Bindbexplor.exe (SQL Explorer) 을 사용해 보세요... ^^; 성승기 wrote: > DB ...
-
- 윤신호
- 2001.07.24 01:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕델초
- 2001.07.24 01:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.07.24 01:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 급한사람
- 2001.07.24 01:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.07.24 01:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 정종섭
- •
- 2001.07.24 01:40
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•2001.07.24 19:0964bit(8 Byte) integer 값은 16진수 문자열로 변환하는 함수 같군요. 변수 u 는 integer값의 상위값부터 1...
-
- 왕초짜
- •
- 2001.07.24 01:35
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.07.24 04:29StringGrid의 OnDrawCell이벤트를 사용하세요. ComboBox는 처음 Visible을 false로하세요 if(gdfocused...
-
왕초짜•2001.07.24 17:46답변 감사합니당 *^^*
-
- hopi
- •
- 2001.07.24 01:28
- 1 COMMENTS
- /
- 0 LIKES
-
손•2001.07.31 23:48마스터의 적당한 밴드의 force new page 프로..를 true 로 하면.. hopi wrote: > 세금계산서를 출력...
-
- 인어공주
- •
- 2001.07.24 01:26
- 1 COMMENTS
- /
- 0 LIKES
procedure TFRM_CDR_SUB_REPORT.XlsBtnClick(Sender: TObject); Var v : Variant; i,j : Integer; begin Screen.Cursor := crHourGlass; Try v := CreateOleObject('Excel.Application'); Except MessageDlg('Excel이 설치되어 있지 않습...-
한휘•2001.07.24 02:12Uses 절에 ComObj 를 추가해 주시면됩니다. 인어공주 wrote: > procedure TFRM_CDR_SUB_REPORT.XlsBt...
-
- 김정수
- 2001.07.24 01:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 초짜맨
- 2001.07.24 01:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보맨
- •
- 2001.07.24 00:52
- 2 COMMENTS
- /
- 0 LIKES
-
이박사•2001.07.24 01:13초보맨 wrote: > 안녕하십니까 ? 고수님들 > 다름이 아니라 DBGRID에서 입력할때 CELL에 입력 후 ENTER K...
-
초보맨•2001.07.24 03:44> DBGrid1.Perform(WM_KEYDOWN, VK_TAB, 0 ); ---> 문장에 대해서 설명좀 부탁드려요...
-
- login75
- 2001.07.24 00:45
- 0 COMMENTS
- /
- 0 LIKES
-
- mamma
- 2001.07.24 00:43
- 0 COMMENTS
- /
- 0 LIKES
인어공주 wrote:
> procedure TFRM_CDR_SUB_REPORT.XlsBtnClick(Sender: TObject);
> Var
> v : Variant;
> i,j : Integer;
> begin
> Screen.Cursor := crHourGlass;
> Try
> v := CreateOleObject('Excel.Application');
> Except
> MessageDlg('Excel이 설치되어 있지 않습니다!',mtWarning,[mbOk],0);
> Screen.Cursor := crDefault;
> Exit;
> End;
>
> v.WorkBooks.Add;
> DM.SubDtlPrn_Q.DisableControls;
> DM.SubDtlPrn_Q.First;
> For i := 0 To DM.SubDtlPrn_Q.RecordCount-1 Do
> Begin
> For j := 1 To DBGrid1.FieldCount Do
> Begin
> v.Cells[i+1,j].Value := DM.SubDtlPrn_Q.Fields[j-1].AsString;
> End;
> DM.SubDtlPrn_Q.Next;
> End;
> DM.SubDtlPrn_Q.EnableControls;
> Screen.Cursor := crDefault;
> v.Visible := True;
> end;
>
>
>
> CreateOleObject 이 선언되어 있지 않다고 나오면서 컴파일시 실행이 안됩니다.
> 기존에 누가 했던걸 그대로 코드만 복사한 건데..
>
> 그건 됩니다..
> 도대체 무슨 문제죠?
>
> 답변 꼭꼭꼭 부탁 드립니다.
>
> 행복하세요