음냐...인잽니다.....

음 액셀파일로 컨버전 하실려구 하시는 군요....

음 SpredOCX는 비베에서 쓰는 물건이걸랑요....물론

비싸게 돈주고 사셔야 하구요...

근데 기능은 빵빵 하다고 하는 군요...제가 별로

써보질 않아서리....



근데 델파이에서는 경나님이 알고 계시듯이

포물라 원이라는 공짜 OCX가 있걸랑요...(역시 델파이란 생각이 듬)

요걸 이용하면 엑셀파일로 만들 수가 있지요.....





그 방법은 다음을 참고 하세요......

테이블이

col1 char(4);

col2 char(6);

col3 number(3);

으로 이루어 졌을때



Table1.Open; (DBF파일)

while not (Table1.EOF) do begin

F1Book1.TextRc[i,1] := Table1Col1.AsString;

F1Book1.TextRc[i,2] := Table1Col2.AsString; //스트링일때 TextRc란 프로퍼티로 Assign함

F1Book1.NumberRc[i,3] := Table1Col3.AsInteger; //정수일때 NumberRc란 프로퍼티로

inc(i); //행을 증가 시켜줌

Table1.Next;

end;

Table1.Close;



이렇게 하면 아마도 F1Book1에 데이타 들이 쫘쫘작 들어갈 겁니다..

그리고 저장하는 방법인데.....조금 껄끄러워요....알면 쉽지만서두...

SaveFileDlg메서드를 이용하셔야 되걸랑요...

F1Book1.SaveFileDlg pTitle, pBuf, pFileType

pTitle, pBuf : WideString형

pFileType : SmallInt형

F1FileFormulaOne Formula One format

F1FileExcel4 Excel 4.0 format

F1FileExcel5 Excel 5.0 format



procedure TForm1.Button1Click(Sender:TObject);

var

ptitle, pbuf : WideString;

pFileType : SmallInt;

begin

pTitle := '저장..';

pFiletype := F1FileExcel4; // 5.0 format은 잘 안되드라구요...음냐...

F1Book1.SaveFileDlg(pTitle, pBuf, pFileType);

end;



그럼 이만...도움이 되셨길..........

그리고 오타가 있을 수 있어요...양해해 주세요.......

그리고 우리회사 홈페이지에 자주 놀러 오시고.....



표경나 wrote:

> 델파이에서 생성된 dbf파일을 엑셀로 보내려고 시도를 하니

> SpredOCX.dcp가 없다는 에러가 생깁니다.

> OCX라고 많이 들어보기는 들어보았는데 한번도 안써봐서요.

> 이 파일은 어떻게하면 구할 수 있나요?

> 그리고 하다가 안되어서 odbc로 연결해서 파일을 보내려고 했는데

> odbc에서 엑셀을 위한 알리아스들고 데스크탑데이타베이스에서

> 엑셀테이블을 만들려고 하니까 엑셀테이블이 만들어 지지 않습니다.

> odbc에 엑셀드라이브가 있는 것을 보면 다른 파일과 엑셀파일이

> 교환된다는 뜻인데... 어떻게 사용해야 하나요?

> 그리고 마지막으로 ActiveX 패키지에 F1book이라는 엑셀과 비슷하게 생긴 콤포넌트가 있더군요.(남들이 말하는 formula one이라는 콤포넌트가 바로 이건가요?)

> 이 콤포넌트를 이용해서 테이블의 내용을 엑셀로 보낼수 있을 것 같기도 한데

> 도움말이 전혀 없어서 도대체 우째 써야하는건지

> 이 콤포넌트에는 Appname,name,filename이 있는데요

> 제 각의 차이와 주요메소드를 알고 싶어요.

> 혹시 아시면 가르쳐 주세요.

> 지금 제게 가장 중요한것은 dbf의 데이타를 엑셀로 보내는 겁니다..

> 엑셀에 넣을줄을 몰라서 이틀동안 밤샘하면서 1000줄이 넘는 데이타를 수작업으로 입력했어요.. 좀 도와주셔요..

>

에고 죄송해요...한가지 빠졌네요....

SAveFileDlg다음에 이걸 주가 시켜 줘야 해요....

음냐..기억을 더듬어 말씀드리자니...힘들군요...



if pbuf <> '' then

F1Book1.Write(pBuf, pFileType);