Q&A

  • StringGrid에서 엑셀로 전환시에
질문내용을 찾아봐도 DBGrid에서 엑셀로 전환은 있는데 StringGrid에서
엑셀로 전환하는것은 답변이 없네요.
근데 필드가 전 36개 거든요. 좀 많은데..
혹시 아시는분좀 가르쳐주세요.
1  COMMENTS
  • Profile
    Tk 2002.03.27 23:25
    comobj 추가

    var
    XL: Variant;
    i, j: Integer;
    begin
    try

    XL := CreateOLEObject('Excel.Application');
    except
    ShowMessage('Excel이 설치되어 있지 않습니다!!!');
    Exit;
    end;


         XL.WorkBooks.Add;
         XL.Visible := True;
    for i := 0 to sg1.RowCount - 1 do
    for j := 0 to sg1.ColCount - 1 do
      XL.cells[i +1,j +1]:= sg1.cells[j,i];