謝謝各位的心得分享。 也提出小弟的小小心得： １.因為 Integer 寫出是以 Word 的型態寫出，所以當值的大小大於65535時會產生溢位的問題，所以建議用 Double 的型態寫出。 ２.當為字串型態時，常會用A.B.C.D...代表某些意義，是故會在TField.OnGetText去設定所代表的意義，若用TField.AsString則不會顯示所設定值，所以建議用TField.DisplayText來取代。

關於 Excel 格式的相關資料可以由以下的網頁取得： http://chicago.sourceforge.net/devel/docs/excel/    看過該網頁後，發現，現有的版本中，只有限制最大 row 數為 65535，但此格式最大的 col 數也只能 255，但因為在修改時不知道，所以沒有判斷，如果您的資料欄位數大於 255 那這個版本就不能用了。 這個限制好像也是 Excel 本身的限制。    另外，ccchen 所說的並不正確喔，DELPHI 真的是可以讓別人存取 private 只要是同一個 unit ，因為我已實驗過（在 BCB5），您可以試試本範例，將 TXLSWriter 物件改宣告如下：(即所有都是 private 只有 create/destroy 是 public)

  TXLSWriter = class(Tobject)
  private
    fStream:TMemoryStream;
    FileName:String;
    maxCols,maxRows:Word;
    procedure WriteWord(w:word);
    procedure WriteBOF;
    procedure WriteEOF;
    procedure WriteDimension;
    procedure CellWord(vCol,vRow:word;aValue:word;vAtribut:TSetOfAtribut=[]);
    procedure CellDouble(vCol,vRow:word;aValue:double;vAtribut:TSetOfAtribut=[]);
    procedure CellStr(vCol,vRow:word;aValue:String;vAtribut:TSetOfAtribut=[]);
    procedure WriteField(vCol,vRow:word;Field:TField);
  public    
    constructor create(vFileName:string);
    destructor destroy;override;
  end;

用 BCB5 compile 照過，也正常執行沒有問題！ 我之前會說「Delphi 在單一 Unit 內可以任意使用別人的 private 及 protected 屬性」，是因為曾經試著轉過本例及其他 DELPHI code 所得到的教訓，如果 Delphi/BCB 共同開發，Delphi 的開發成員如果將屬性都設成了 private ，那他自己用的很爽，用 BCB 的就會很Ｘ，因為連繼承都無法使用！！ 現在看到許多的 Delphi Code(Delphi Open Source 的比 BCB Open Source 的多蠻多的) 似乎很好用，但想轉 BCB 或修改(有時真的是看不太懂 )，就會遇到許多問題。 沒空更新的網頁...<><>>介紹>

------
http://www.ViewMove.com

可否加入自動調整欄寬功能,因為字串太大使用者要去調整較麻煩

請教先進們： run 這支程式時，是不是超過1000筆record，資料就無法轉至excel， 我測試過超過1000筆，excel打開時就完全是空白的， 是我錯亂了嗎???

哈哈~~對不起～的確是我錯亂了，我看到預設值那行程式了....

請問一下,我有各問題,當我的欄位值大於64938時,轉出到excel的數字都不對,但是欄位只有三各,資料筆數也才不到一百筆,請問是為什麼???

小弟用D7轉出沒問題，但是要開EXCEL時卻打不開，會出現記憶體不足的錯誤訊息。 DataSetToXLS沒問題 但StringGridToXLS卻發生上述的情形 ~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/04/28 14:03:51