Q&A
- Excel을 MDI의 Child로 설정한 후 Excel Control이 왜 안돼나요?
엑셀 어플리케이션을 CreateOLEObject로 생성후 DBGrid의 내용을 Excel로 옮겼습니다
문제는 생성된 엑셀 어플리케이션을 SetParent로 현재 MDI의 Child로 설정하면
Excel의 Close Box, Open, ...의 Excel Fucntion이 수행되지 않는다는 것입니다
Event 처리의 문제라도 생각되는데 어떻게 해야 정상적으로 처리할 수 있는 건가요?
여러 고수님들의 한수 지도 부탁합니다
아래는 Soruce입니다
바쁘시겠지만 한번 봐주세요
try
ExcelApp := CreateOLEObject('Excel.Application') ;
except
Showmessage('Can''t run Excel' + chr(13) + 'please check first');
Exit;
end;
ExcelApp.WorkBooks.Add;
ADOQuery_CustList.First;
for i := 1 to ADOQuery_CustList.RecordCount do
for j := 1 to DBGrid_CustList.FieldCount do
ExcelApp.Cells[i+1,j].Value := ADOQuery_CustList.Fields[j-1].AsString;
wnd := FindWindow( 'XLMAIN', nil );
Windows.SetParent( wnd, FindWindow('TMainForm', nil));
SetWindowPos( wnd, 0, 0, 0, clientwidth, clientheight, SWP_NOZORDER or
SWP_SHOWWINDOW );
ExcelApp.Visible := True ;
end;
문제는 생성된 엑셀 어플리케이션을 SetParent로 현재 MDI의 Child로 설정하면
Excel의 Close Box, Open, ...의 Excel Fucntion이 수행되지 않는다는 것입니다
Event 처리의 문제라도 생각되는데 어떻게 해야 정상적으로 처리할 수 있는 건가요?
여러 고수님들의 한수 지도 부탁합니다
아래는 Soruce입니다
바쁘시겠지만 한번 봐주세요
try
ExcelApp := CreateOLEObject('Excel.Application') ;
except
Showmessage('Can''t run Excel' + chr(13) + 'please check first');
Exit;
end;
ExcelApp.WorkBooks.Add;
ADOQuery_CustList.First;
for i := 1 to ADOQuery_CustList.RecordCount do
for j := 1 to DBGrid_CustList.FieldCount do
ExcelApp.Cells[i+1,j].Value := ADOQuery_CustList.Fields[j-1].AsString;
wnd := FindWindow( 'XLMAIN', nil );
Windows.SetParent( wnd, FindWindow('TMainForm', nil));
SetWindowPos( wnd, 0, 0, 0, clientwidth, clientheight, SWP_NOZORDER or
SWP_SHOWWINDOW );
ExcelApp.Visible := True ;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 맥스맨
- •
- 2001.02.02 19:50
- 3 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.02.02 20:25맥스맨 wrote: > 화면에는 dbgrid가 있습니다. 내가 특정한 레코드를 선택후 버튼을 누르면 아래 문장이 ... -
맥스맨•2001.02.02 20:30테스트 할려고 만든 아주 간단한 전체 소스 입니다. 그런데 이것도 안되네요..ㅠ.ㅠ 컴포넌트는 쿼리,데...
-
조덕진•2001.02.02 22:49안녕하세요. 델초봅니다. TQuery1의 RequestLive := False; 로 설정하세요. 그리고, TUpdateSQL의 SQL...
-
- 김영애
- 2001.02.02 19:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 나야
- 2001.02.03 02:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 임소영
- 2001.02.02 19:11
- 0 COMMENTS
- /
- 0 LIKES
-
- mashall3
- •
- 2001.02.02 18:50
- 2 COMMENTS
- /
- 0 LIKES
-
김상기•2001.02.02 18:58mashall3 wrote: > 안녕하세요 급질문입니다.. > SQL Plus에서 쿼리를 해도 한글 데이타만 ???? 로 나옵...
-
mashall3•2001.02.02 19:08답변 너무 감사합니다. 님 덕분에 해결 되었습니다.. 그럼 항상 행복하세요.. 김상기 wrote: > m...
-
- 김홍배
- 2001.02.02 18:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광식
- 2001.02.02 18:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이파이
- 2001.02.02 17:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 이성윤
- 2001.02.02 14:54
- 0 COMMENTS
- /
- 0 LIKES
-
- jbpark
- •
- 2001.02.02 13:02
- 1 COMMENTS
- /
- 0 LIKES
-
zwChoe•2001.02.23 00:28아마도 "rctrl_renwnd32" 일 겁니다. 직접 확인인 못해봤습니다. Delphi의 WinSight32나 Visual Studio...
-
- ilma
- 2001.02.02 12:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 배움이
- •
- 2001.02.02 12:15
- 2 COMMENTS
- /
- 0 LIKES
-
도지성•2001.02.02 19:56변할 때마다 메시지를 띄운다는게.. 어떤 뜻인지는 몰라도.. 아래의 소스에서 의도 하는 방법으로 ...
-
서록•2001.02.02 19:38조금만 바꿔보시죠. 바로 참조가 아닌 변수에 담아 사용하기로요. procedure TForm1.Button1Click(Sender...
-
- 한상훈
- •
- 2001.02.02 10:44
- 2 COMMENTS
- /
- 0 LIKES
-
컴맹...•2001.02.02 19:23일단 요걸 Class 보다는 Record로 바꾸는게 나은것 같네여.. type HType = Record Str:String; ...
-
한상훈•2001.02.04 00:39답변 감사합니다.. 글구보니 record와 class의 차이점이 모지여..? 용도적으로나 성격적으로나 말이져..
-
- jbpark
- •
- 2001.02.02 10:36
- 1 COMMENTS
- /
- 0 LIKES
엑셀 어플리케이션을 CreateOLEObject로 생성후 DBGrid의 내용을 Excel로 옮겼습니다 문제는 생성된 엑셀 어플리케이션을 SetParent로 현재 MDI의 Child로 설정하면 Excel의 Close Box, Open, ...의 Excel Fucntion이 수행되지 않는다는 ...-
김경헌•2001.06.11 12:22jbpark wrote: > 엑셀 어플리케이션을 CreateOLEObject로 생성후 DBGrid의 내용을 Excel로 옮겼습니다 > ...
-
- 파이파이
- 2001.02.02 09:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 천수희
- 2001.02.02 08:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.02.02 07:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민식
- 2001.02.02 06:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김용희
- •
- 2001.02.02 05:57
- 2 COMMENTS
- /
- 0 LIKES
-
윤광석•2001.02.02 06:10김용희 wrote: > string으로 된 값에서 특정 문자를 꺼내어 char변수에 넣으려고 하는데 > 어떻게 해야할...
-
안영제•2001.02.02 06:00a := s[n] string으로 된 값에서 특정 문자를 꺼내어 char변수에 넣으려고 하는데 > 어떻게 해야할까요. ...
-
- 델왕초
- 2001.02.02 05:53
- 0 COMMENTS
- /
- 0 LIKES
> 엑셀 어플리케이션을 CreateOLEObject로 생성후 DBGrid의 내용을 Excel로 옮겼습니다
> 문제는 생성된 엑셀 어플리케이션을 SetParent로 현재 MDI의 Child로 설정하면
> Excel의 Close Box, Open, ...의 Excel Fucntion이 수행되지 않는다는 것입니다
>
> Event 처리의 문제라도 생각되는데 어떻게 해야 정상적으로 처리할 수 있는 건가요?
> 여러 고수님들의 한수 지도 부탁합니다
>
> 아래는 Soruce입니다
> 바쁘시겠지만 한번 봐주세요
>
>
> try
> ExcelApp := CreateOLEObject('Excel.Application') ;
> except
> Showmessage('Can''t run Excel' + chr(13) + 'please check first');
> Exit;
> end;
> ExcelApp.WorkBooks.Add;
> ADOQuery_CustList.First;
> for i := 1 to ADOQuery_CustList.RecordCount do
> for j := 1 to DBGrid_CustList.FieldCount do
> ExcelApp.Cells[i+1,j].Value := ADOQuery_CustList.Fields[j-1].AsString;
>
> wnd := FindWindow( 'XLMAIN', nil );
>
> Windows.SetParent( wnd, FindWindow('TMainForm', nil));
엑셀을 맨 앞으로 보내는 일만 하니 되더군요....반나절 공들여서
SetForegroundWindow(wnd);
> SetWindowPos( wnd, 0, 0, 0, clientwidth, clientheight, SWP_NOZORDER or
> SWP_SHOWWINDOW );
> ExcelApp.Visible := True ;
> end;
>