Q&A
- DBGrid에서 엑셀로 자료내릴때 말이죠~
안녕하세요~
저번에 올린건데 다시 올립니다요~
제가 DBGrid에 있는거 엑셀루 내려 받고 있거든요..
근데..
258행이 되니까 Eoleexception 'OLE error 800A03EC' 라는 에러가 나네요~
이거 어케 해결해야죠~?
258행을 넘기질 못하니..
흑흑흑..
제 능력의 한계를 느낍니다~
고수님들 도와주십시요~
그럼 즐건 하루되십시요~
begin
ExcelAppl := GetActiveOLEObject('Excel.Application')
ExcelAppl.Workbooks.add;
ExcelAppl.Visible := True ;
try
with pv_Grid.DataSource.DataSet do
begin
//data-aware 컴포넌트들의 화면출력을 disable시킴
DisableControls;
//현재 레코드 포인터 저장
lb_mark := GetBookmark;
li_bookcnt := ExcelAppl.workbooks.count ;
lv_Column := ExcelAppl.Workbooks[li_bookcnt].WorkSheets[1].Columns ;
First;
while not EOF do
begin
inc(li_row);
//DataType이 문자열일경우
if Fields[1].DataType = ftString then
lv_Column.Columns[li_row - 2].Style.NumberFormatLocal := '@' ;
--------------------------------------------------------------
===> 요기서 트레이스가 걸려서 에러가 났어요~
for li_col := 0 to pv_Grid.Columns.Count - 1 do
ExcelAppl.Cells[li_row, li_col + 1].formula :=
vartostr(pv_Grid.Columns[li_col].Field.Value);
Next;
end;
GotoBookmark(lb_mark);
EnableControls;
end;
except
on e : exception do
if e is Eolesyserror then
begin
Application.MessageBox('서버와의 연결에 실패했거나 데이타베이스와의
연결문제가 발생했습니다'
,'알림' ,MB_OK ) ;
exit;
end;
end;
저번에 올린건데 다시 올립니다요~
제가 DBGrid에 있는거 엑셀루 내려 받고 있거든요..
근데..
258행이 되니까 Eoleexception 'OLE error 800A03EC' 라는 에러가 나네요~
이거 어케 해결해야죠~?
258행을 넘기질 못하니..
흑흑흑..
제 능력의 한계를 느낍니다~
고수님들 도와주십시요~
그럼 즐건 하루되십시요~
begin
ExcelAppl := GetActiveOLEObject('Excel.Application')
ExcelAppl.Workbooks.add;
ExcelAppl.Visible := True ;
try
with pv_Grid.DataSource.DataSet do
begin
//data-aware 컴포넌트들의 화면출력을 disable시킴
DisableControls;
//현재 레코드 포인터 저장
lb_mark := GetBookmark;
li_bookcnt := ExcelAppl.workbooks.count ;
lv_Column := ExcelAppl.Workbooks[li_bookcnt].WorkSheets[1].Columns ;
First;
while not EOF do
begin
inc(li_row);
//DataType이 문자열일경우
if Fields[1].DataType = ftString then
lv_Column.Columns[li_row - 2].Style.NumberFormatLocal := '@' ;
--------------------------------------------------------------
===> 요기서 트레이스가 걸려서 에러가 났어요~
for li_col := 0 to pv_Grid.Columns.Count - 1 do
ExcelAppl.Cells[li_row, li_col + 1].formula :=
vartostr(pv_Grid.Columns[li_col].Field.Value);
Next;
end;
GotoBookmark(lb_mark);
EnableControls;
end;
except
on e : exception do
if e is Eolesyserror then
begin
Application.MessageBox('서버와의 연결에 실패했거나 데이타베이스와의
연결문제가 발생했습니다'
,'알림' ,MB_OK ) ;
exit;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- 2000.02.16 06:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 석기명
- •
- 2000.02.16 06:01
- 2 COMMENTS
- /
- 0 LIKES
-
이현우•2000.02.16 06:23석기명 wrote: > 에디트에서 FindText를 사용했을때. 만약 > EndPos:= FindText('**', StartPos, ToEnd, ...
-
석기명•2000.02.17 07:17이현우 wrote: > 석기명 wrote: > > 에디트에서 FindText를 사용했을때. 만약 > > EndPos:= FindText('*...
-
- 채재호
- •
- 2000.02.16 04:56
- 1 COMMENTS
- /
- 0 LIKES
-
aaa•2000.02.16 18:18채재호 wrote: > ToolBar의 ToolButton에 메뉴를 연결해서 사용하려고 합니다. > 그런데 Toolbutton의 Ca...
-
- 이현우
- 2000.02.16 04:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 한근수
- •
- 2000.02.16 04:18
- 3 COMMENTS
- /
- 0 LIKES
-
smileye•2000.02.21 09:47한근수 wrote: > 오라클 7.3을 쓰고요, 델파이 4를 씁니다. > 전에는 파라독스를 써왔는데, 오라클로 바...
-
윤병익•2000.02.16 18:55맞는지 모르겠네요.... 전 이런 방법으로 Insert를 하고 있습니다... 참고로 제가 알기로는 Select문 빼...
-
신숙정•2000.02.16 18:28올리신 소스가 실제 프로그램 소스와 동일하다면 오타가 난 게 아닐까 생각합니다. 아래중에 :p13 다음...
-
- 이현우
- •
- 2000.02.16 04:12
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.20 14:54이현우 wrote: > 화일입출력과 관련한 질문입니다. > > 문서 화일 두개를 합치려고 합니다.(압축아님) ...
-
- 이용현
- 2000.02.16 03:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 이세영
- 2000.02.16 03:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 송수현
- •
- 2000.02.16 03:10
- 2 COMMENTS
- /
- 0 LIKES
-
whitetree•2001.03.17 02:41송수현 wrote: > 안녕하세요 꾸벅~! > procedure TForm1.Button1Click(Sender: TObject); > var > Vo...
-
이현우•2000.02.16 04:42송수현 wrote: > 안녕하세요 꾸벅~! > procedure TForm1.Button1Click(Sender: TObject); > var > Vo...
-
- 박은철
- 2000.02.16 03:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌맹이
- 2000.02.16 02:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 토이
- 2000.02.16 02:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌맹이
- 2000.02.16 02:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 안창기
- •
- 2000.02.16 01:18
- 1 COMMENTS
- /
- 0 LIKES
-
노태협•2000.02.16 17:50안창기 wrote: > 안녕하세요 여러분. > 저는 Hyper Report를 이용하여 출력을 개발하고 있는데 하다보니 ...
-
- 최종렬
- 2000.02.16 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동식
- 2000.02.16 01:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지현
- •
- •
- 2000.02.16 00:53
- 1 COMMENTS
- /
- 1 LIKES
안녕하세요~ 저번에 올린건데 다시 올립니다요~ 제가 DBGrid에 있는거 엑셀루 내려 받고 있거든요.. 근데.. 258행이 되니까 Eoleexception 'OLE error 800A03EC' 라는 에러가 나네요~ 이거 어케 해결해야죠~? 258행을 넘기질 못하니.. 흑...-
이만준•2000.02.16 02:46안녕하세요.. 뭐땀시 그렇게 많은 컬럼을 사용하는지 모르겠지만.. 엑셀에서 지원하는 최대행수가 25...
-
- 안창기
- 2000.02.16 00:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상학
- 2000.02.16 00:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상학
- 2000.02.16 00:36
- 0 COMMENTS
- /
- 0 LIKES
안녕하세요..
뭐땀시 그렇게 많은 컬럼을 사용하는지 모르겠지만..
엑셀에서 지원하는 최대행수가 256 행이네요..
제꺼 엑셀 버젼이 엑셀 97 이네요...
프로그래밍 문제가 아니라 엑셀문제(?)인 것 같네요..
기럼..
김지현 wrote:
> 안녕하세요~
> 저번에 올린건데 다시 올립니다요~
>
>
> 제가 DBGrid에 있는거 엑셀루 내려 받고 있거든요..
> 근데..
> 258행이 되니까 Eoleexception 'OLE error 800A03EC' 라는 에러가 나네요~
> 이거 어케 해결해야죠~?
> 258행을 넘기질 못하니..
>
> 흑흑흑..
> 제 능력의 한계를 느낍니다~
> 고수님들 도와주십시요~
> 그럼 즐건 하루되십시요~
>
> begin
> ExcelAppl := GetActiveOLEObject('Excel.Application')
> ExcelAppl.Workbooks.add;
>
> ExcelAppl.Visible := True ;
>
> try
>
> with pv_Grid.DataSource.DataSet do
> begin
> //data-aware 컴포넌트들의 화면출력을 disable시킴
> DisableControls;
>
> //현재 레코드 포인터 저장
> lb_mark := GetBookmark;
>
> li_bookcnt := ExcelAppl.workbooks.count ;
> lv_Column := ExcelAppl.Workbooks[li_bookcnt].WorkSheets[1].Columns ;
>
> First;
> while not EOF do
> begin
> inc(li_row);
>
> //DataType이 문자열일경우
> if Fields[1].DataType = ftString then
> lv_Column.Columns[li_row - 2].Style.NumberFormatLocal := '@' ;
> --------------------------------------------------------------
> ===> 요기서 트레이스가 걸려서 에러가 났어요~
>
> for li_col := 0 to pv_Grid.Columns.Count - 1 do
> ExcelAppl.Cells[li_row, li_col + 1].formula :=
> vartostr(pv_Grid.Columns[li_col].Field.Value);
> Next;
> end;
>
> GotoBookmark(lb_mark);
> EnableControls;
> end;
>
> except
> on e : exception do
>
> if e is Eolesyserror then
> begin
> Application.MessageBox('서버와의 연결에 실패했거나 데이타베이스와의
> 연결문제가 발생했습니다'
> ,'알림' ,MB_OK ) ;
> exit;
> end;
> end;
>