我將DATABASE輸出到EXCEL，以下是其中一段語法 MsExcelWorkSheet.Range[chr(64 k) '1'].Value:=s 其中64 k是我填入欄位值，但是若k>26時（A-Z） 又回到AA開始，以致於資料寫不進去而錯誤 請問這段要如何修正呢？

若改用如下對照表的方式呢？

  WS.Range['AA1'].Value := s;

引言: 若改用如下對照表的方式呢？

  WS.Range['AA1'].Value := s;

當然呀！可是有點死板 只是說這樣好像太死板了 我現在適用一個條件句去判斷 是否>26再決定欄位 是否有活一點的演算法？

// i:0...n
function to26(i:integer):string;
var s:string;
begin
  s:='';
  repeat
     s:=chr(ord('A') ((i-1) mod 26)) s;
     i:=(i-1) div 26;
  until i<=0 ;
  result:=s;
end;

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

引言:

// i:0...n
function to26(i:integer):string;
var s:string;
begin
  s:='';
  repeat
     s:=chr(ord('A') ((i-1) mod 26)) s;
     i:=(i-1) div 26;
  until i<=0 ;
  result:=s;
end;

～～～Delphi K.Top討論區站長～～～

哈哈！ 又學一招嘍 謝謝站長～！

可直接用 for j:= 0 to 100 do sheet.cell[j,k].value := 123 Kadee_BigRed

------
Kadee/BigRed Ent.
www.tw165.com