테스트를 해 봤는데 문제가 없네요.. 

버전은  ExcelIO: 3.14  AdvStringGrid: 8.4.7.0

첨부파일을 실행해 보시면....  (혹시 실행이 안되면 관리자권한으로...)

 

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AdvUtil, Vcl.Grids, AdvObj, BaseGrid,
  AdvGrid, Vcl.StdCtrls, tmsAdvGridExcel, tmsUFlxFormats;

type
  TForm3 = class(TForm)
    AdvStringGrid1: TAdvStringGrid;
    Button1: TButton;
    ExcelIO: TAdvGridExcelIO;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AdvGridExcelIO1ExportColumnFormat(Sender: TObject; GridCol,
      GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
      var ExportCellAsString: Boolean);
    procedure AdvGridExcelIO1CellFormat(Sender: TAdvStringGrid; const GridCol,
      GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
      var Format: TFlxFormat);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.AdvGridExcelIO1CellFormat(Sender: TAdvStringGrid;
  const GridCol, GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
  var Format: TFlxFormat);
begin
   if GridCol = 1 then
    Format.Format := '#,##0';
end;

procedure TForm3.AdvGridExcelIO1ExportColumnFormat(Sender: TObject; GridCol,
  GridRow, XlsCol, XlsRow: Integer; const Value: WideString;
  var ExportCellAsString: Boolean);
begin
    if GridCol = 2 then
        ExportCellAsString := True;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
    ExcelIO.XLSExport(Edit1.Text);
end;

procedure TForm3.FormCreate(Sender: TObject);
var
  I: Integer;
begin
    AdvStringGrid1.Cells[0, 0] := 'NO';
    AdvStringGrid1.Cells[1, 0] := '숫자';
    AdvStringGrid1.Cells[2, 0] := '문자';

    for I := 1 to 9 do
        AdvStringGrid1.Cells[0, i] := i.ToString;

    // 숫자..
    var Value := 100000;
    for I := 1 to 9 do
        AdvStringGrid1.Floats[1, i] := Value + i;

    Value := 10;
    // 문자
    for I := 1 to 9 do
        AdvStringGrid1.Cells[2, i] :=  '000' + i.ToString;
end;

end.

 

>> 1. 개발/실행 플랫폼

>> (1) OS : Windows ALL

>> (2) 개발툴 : D2007

>>  

>> 3. 질문 내용

>> D2007에 TMS Grid를 사용하고 있습니다.

>> 그런데 거래처에서 가끔 컴플레인 오는것중 하나가 엑셀전환 문제입니다.

>> 이전에는 RealGrid를 썼는데(개인적으로 그리드자체는 RealGrid가 쓰기 좋았어요.. 다만 엑셀전환은 좀 안습이긴한데.. 넘나 느려요) TMS가 좀 이뻐서 TMS로 전향했습니다.

>>  

>> 그런데, 다 좋은데, 아쉬운게 엑셀전환시 컬럼형식관련 문제입니다.

>>  

>> 통계같은걸 만들다보면, 숫자가 있고 문자같은 숫자가 있잖아요? 이걸 제대로 구분하지 못합니다.

>> 그래서 옵션을 조정하면 전부다 문자열로 되서 마우스로 긁어서 합계나 덧셈이 안되게 되거나, 아니면 숫자처럼 생긴 것(예: 000012113 ->형식이 맞아야 함, 또는 주민번호->날짜나 숫자로 바껴버림)들까지 모두 숫자로 바꿔서 어떻게 보면 내가 원하는대로 출력이 안되는거죠.

>>  

>> CellType도 바꿔보고 했는데 잘 안되더라구요.

>>  

>> 혹시 방법이 있을까요? 이 컬럼은 숫자다! 문자다! 엑셀전환시 타입을 그대로 따라가라! 뭐 이런식으로요.

>> 현재 TMS 버전이 낮아서 그런건지.. 즉 버전업, 신규구매하면 해결되는지가 궁금합니다.

>>  

>> 지금 사용중인 TMS Grid버전은 3.1.0.7 입니다.