Q&A

  • Excel handling 방법 좀 알려주세요
도와주세요!!!

DBGrid의 내용을 Excel File 로 저장하고 싶은데요.......

소스는 다음과 같습니다.

--

Excel : variant;

--

Excel := CreateOleObject('Excel.Application') ;

Excel.WorkBooks.open('c:testExcel.xls') ;

Excel.Sheets['sheet1'].Select ;

Excel.Cells[1, 1] := 'Excel Test1' ;



for ii := 1 to ufrdm.ds062100.DataSet.RecordCount do

begin

for jj := 1 to DBGrid1.FieldCount do

begin

Excel.Cells[ii+1, jj].Value := ufrdm.ds062100.DataSet.Fields[jj-1].asString ;

end ;

ufrdm.ds062100.DataSet.Next;

end ;

Excel.Columns.AutoFit ;

Excel.Visible := true ;

Excel.DisplayAlerts := true ;

Excel.Save ;





이재식님께서 올리신 예제를 보고 한번 테스트 해보고 있는데요...^^

에러가 납니다. == [Error] Undeclared identifier:'CreatOleObject'

델파이 초보라 뭐가 뭔지 잘 모르겠군요.....고수님들의 도움 부탁드립니다....!!

감사합니다.

2  COMMENTS
  • Profile
    아세만 2000.07.06 01:04
    ssonn wrote:

    > 도와주세요!!!

    > DBGrid의 내용을 Excel File 로 저장하고 싶은데요.......

    > 소스는 다음과 같습니다.

    > --

    > Excel : variant;

    > --

    > Excel := CreateOleObject('Excel.Application') ;

    > Excel.WorkBooks.open('c:testExcel.xls') ;

    > Excel.Sheets['sheet1'].Select ;

    > Excel.Cells[1, 1] := 'Excel Test1' ;

    >

    > for ii := 1 to ufrdm.ds062100.DataSet.RecordCount do

    > begin

    > for jj := 1 to DBGrid1.FieldCount do

    > begin

    > Excel.Cells[ii+1, jj].Value := ufrdm.ds062100.DataSet.Fields[jj-1].asString ;

    > end ;

    > ufrdm.ds062100.DataSet.Next;

    > end ;

    > Excel.Columns.AutoFit ;

    > Excel.Visible := true ;

    > Excel.DisplayAlerts := true ;

    > Excel.Save ;

    >

    >

    > 이재식님께서 올리신 예제를 보고 한번 테스트 해보고 있는데요...^^

    > 에러가 납니다. == [Error] Undeclared identifier:'CreatOleObject'

    > 델파이 초보라 뭐가 뭔지 잘 모르겠군요.....고수님들의 도움 부탁드립니다....!!

    > 감사합니다.



    안녕하세요

    아세만 입니다.

    Interface Uses절에 Comobj을 추가해 주셔야 합니다.



    그럼...



  • Profile
    ssonn 2000.07.06 02:24


    답변 감사 드립니다. 정말 정말 감사합니다!!!





    아세만 wrote:

    > ssonn wrote:

    > > 도와주세요!!!

    > > DBGrid의 내용을 Excel File 로 저장하고 싶은데요.......

    > > 소스는 다음과 같습니다.

    > > --

    > > Excel : variant;

    > > --

    > > Excel := CreateOleObject('Excel.Application') ;

    > > Excel.WorkBooks.open('c:testExcel.xls') ;

    > > Excel.Sheets['sheet1'].Select ;

    > > Excel.Cells[1, 1] := 'Excel Test1' ;

    > >

    > > for ii := 1 to ufrdm.ds062100.DataSet.RecordCount do

    > > begin

    > > for jj := 1 to DBGrid1.FieldCount do

    > > begin

    > > Excel.Cells[ii+1, jj].Value := ufrdm.ds062100.DataSet.Fields[jj-1].asString ;

    > > end ;

    > > ufrdm.ds062100.DataSet.Next;

    > > end ;

    > > Excel.Columns.AutoFit ;

    > > Excel.Visible := true ;

    > > Excel.DisplayAlerts := true ;

    > > Excel.Save ;

    > >

    > >

    > > 이재식님께서 올리신 예제를 보고 한번 테스트 해보고 있는데요...^^

    > > 에러가 납니다. == [Error] Undeclared identifier:'CreatOleObject'

    > > 델파이 초보라 뭐가 뭔지 잘 모르겠군요.....고수님들의 도움 부탁드립니다....!!

    > > 감사합니다.

    >

    > 안녕하세요

    > 아세만 입니다.

    > Interface Uses절에 Comobj을 추가해 주셔야 합니다.

    >

    > 그럼...

    >