엑셀파일 내용을 (리얼)그리드에 가져오는
간단한 프로그램 입니다...


==========================================================
uses
   ComObj;


var
  v_XLS, v_WorkBook, v_Sheet : Variant;
  i,j:integer;
begin

  try
    v_XLS := CreateOleObject('Excel.Application');
  except
    MessageDlg('현재 PC는 Excel을 사용할 수 없는 상태입니다.', mtError, [mbOk], 0);
    Exit;
  end;

  try
    v_XLS.Visible := False;
    v_XLS.DisplayAlerts := False;

    v_WorkBook := v_XLS.WorkBooks.Open(e_Excel.Text);
    v_WorkBook := v_XLS.WorkBooks.item[1];

    v_Sheet := v_XLS.Worksheets.Item[cbSheet.ItemIndex+1];

    for i:= 1 to v_Sheet.UsedRange.Rows.Count-1 do
    begin
      rgFrom.AddRow;
      for j:= 0 to rgFrom.ColCount-1 do
        rgFrom.Cells[j, rgFrom.RowCount-1].AsString:= v_Sheet.Cells[i+1, j+1];
    end;
  finally
    v_XLS.Quit;
    v_XLS := Unassigned;
  end;
end;
================================================================

델파이6으로 컴파일한

동일한 EXE파일을 실행, 동일한 엑셀파일을 가져오기 했을때...


OS가 윈도우XP PC는 정상적으로 엑셀 내용 가져오기가 되는데요.

윈도우7인 PC는 가져오기 결과가 이상합니다..

윈도우7에서 지원이 안되는 건가요?



윈도우7 사용자가 많아 지는데.. 걱정이네요..^_^

해결 방법이 없을까요?