도와주세요!!!
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'
델파이 초보라 뭐가 뭔지 잘 모르겠군요.....고수님들의 도움 부탁드립니다....!!
감사합니다.
> 도와주세요!!!
> 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을 추가해 주셔야 합니다.
그럼...