procedure TForm1.btnexcelClick(Sender: TObject);
var
row,col : integer;
begin
appexcel.Connect;
lCid :=getuserdefaultLCID;
appexcel.Visible[lcid]:=true;
wbexcel.ConnectTo(appexcel.Workbooks.Add(Toleenum(xlWBATworksheet), lcid));
sheetexcel.connectto(wbexcel.Worksheets[1] as _worksheet);
try
appexcel.ScreenUpdating[lcid]:=false;
for row:=0 to 3 do  //dbgrid에서 dbgrid.row라는게 없던데..이부분은 어케 처리해야되는지...???...항목이 4가지라서 저는 걍 이렇게 처리했는데 맞는건지..
  for col := 0 to dbgrid1.Columns.Count-1 do// 여기......컬럼은 이런식으로 카운트하는게 맞는지???
    sheetexcel.cells.item[row+1, col+1].value := DBgrid1.//여기(2)[col,row];//...이분은 어케해야되는지....????
finally
  appexcel.ScreenUpdating[lcid] := true;
  end;
  end;
'여기'라고 써있는 부분에서 막혀서....TDBGRID도 스트링 그리드 처럼 컬럼과 로우로 구성되어 진다고 봐야 하나여>???
TDBGRID에서 로우의 수는 4이고 컬럼은 자료입력에 따라 계속 추가되어진다고 볼때....1)은 컬럼을 카운트해준거...(나름데로 생각)...2)액셀에 tdb값을 할당해주는 부분인데...
막혀버렸네여....혹 아시는분있으면,...조언좀...
아님 다른 소스라도 ^^;;;.....