엑셀자료 변환은 여기 이미 자료가 많이 있는걸로 알고 있습니다..

엑셀의 컬럼 형식을 바꿔주고 데이타를 뿌려주면 될겁니다..

아래는 샘플인데요...응용해서 사용 하시면 될겁니다..

그럼 즐코 하셔욤..



for j:=0 to FieldCount-1 do begin

if (Fields[j].DataType = ftString) then begin

XL.Columns[j+1].Select;

XL.Selection.NumberFormatLocal := '@';

end

else begin

XL.Columns[j+1].Select;

XL.Selection.NumberFormatLocal := '#,##0_ ;[빨강]-#,##0 ';

end;

end;







BLUE wrote:

> 안녕하세요...

> 델파이 고수님들의 많은 도움 바랍니다...

>

> 스트링 그리드의 자료를 엑셀로 변환시에 보통은 자료가 잘 넘어갑니다..

> 그런데, 어떠한 자료는 자꾸 엑셀이 Number 타입의로 자료를 뿌려줍니다..

> 미칠지경이죠...

> Ex) 001(스트링그리드) => 1(엑셀)

> 010(스트링그리드) => 10(엑셀)

> 저는 그리드에 있는 그대로 엑셀로 뿌리기를 원하는데,

> 방법 좀 갈쳐주세요...

>

> 빠른 지도 편달로 쑥쑥 자라는 새싹!!!!!!!!