我開啟1個已經存在的Excel檔,如果我想知道一些訊息/設定要如何下指令? 1.此檔最大使用的 Row , Col 數值 因為我要做Loop控制,必須知道總資料筆數 又不能使用'null',or '空白字串'當判斷,會誤判 2.變數資料型態,如何從Variant 轉成 Integer ? M_TMP : Variant ; // Cell data M_Row : integer ; // 產線判斷 .. .. M_Row := M_TMP ; => 如何修正 ?? 3.第5列 到第10列,如何copy到第25列到第30列? 4.如何設定每30列,列印成 1 Page ? ---- water 一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

我問的問題有那麼難嗎??是做不到還是問的不清楚??    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

water： 不好意思！請問你如何開啟Excel，Com或ADO， 不同開檔方式處理不同！ 更何況本園地有關Excel問題一堆！ 你可用KTop搜尋一下保證很多！ Andy Chang

------
Andy Chang

我使用 ADO 方式:因為其他電腦不用在裝其他驅動程式    2.3 還找的到答案 1.4 找了好久.根本找不到,連 DELPHIWWW 教的招式 紀錄都用上, 1.excle 可以設定成 一頁長一頁寬 so 一定有方法,可以取得最大Col and Row 數值 4.excel 列印內定值就是,只是不知道如何調整?? 一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

第 1. 點參考這篇連結: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=802a36222929253a&rnum=9

begin
  //If you've got a WS variable,
  WS := Excel.Activesheet as _Worksheet;
  //the simplest way is
  WS.UsedRange[lcid].Rows.Count;      // 另一種做法
  LastRow := WS.Range("A65536").End(xlUp).Row;
end;

第 4. 點看這篇試試: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=e9f44ff618938a37&rnum=1

begin
  Sheets := XLApp.Sheets;
  Sheet  := XLApp.Workbooks[1].WorkSheets[Title];
  Sheets.HPageBreaks.Add( Sheet.Range['A25'] );
end;

發表人 - hagar 於 2004/09/14 20:46:49

我在其他電腦找到的資料,借我存一下 http://www.aspose.com/Products/Aspose.Excel/Guide/    有些我要的資訊,請高手指點一下,如何轉換成Delphi語法    Dear Hagar:      有錯誤訊息,請教一下,使用 EXCEL97 函數庫 可以嗎??     一切無為法.如虛亦如空.如如心不動.萬法在其中 發表人 - water 於 2004/09/15 22:28:56 發表人 - water 於 2004/09/15 22:49:52 發表人 - water 於 2004/09/15 22:55:04

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

什麼地方有錯？錯誤訊息是？

procedure TForm3.FormCreate(Sender: TObject);
begin
  Ms_dir :=GetCurrentDir();                  // 取得目前程式位置
  Ms_ExcelW4:=Ms_Dir + '\'+'Setup.xls' ;     // 開啟設定檔      // 開啟設定檔      Ms_ExcelAP4 := CreateOleObject('Excel.Application');
  Ms_ExcelWB4 := Ms_ExcelAP4.WorkBooks.OPEN(Ms_ExcelW4);      M_AA_File:=Ms_ExcelAP4.cells[2,2].value;    // 資料來源檔
  M_BB_File:=Ms_ExcelAP4.cells[3,2].value;    // 基本格式檔
  M_CC_File:=Ms_ExcelAP4.cells[4,2].value;    // 轉出資料檔      Ms_ExcelAP4.ActiveWorkBook.Saved := True;   // 不存檔
  Ms_ExcelAP4.Application.Quit;               // 離開      Ms_ExcelR1 :=Ms_Dir + '\'+M_AA_File;  // 資料來源檔 唯讀
  Ms_ExcelAP1 := CreateOleObject('Excel.Application');
  Ms_ExcelWB1 := Ms_ExcelAP1.WorkBooks.OPEN(Ms_ExcelR1,ReadOnly := True);
  Ms_ExcelAP1.Worksheets[1].select;     // M_LastRow := Ms_ExcelAP1.Range('A65535').End(xlUp).Row;  // 圖一錯誤
 // M_LastRow := Ms_ExcelWB1.Range('A65535').End(xlUp).Row;  // 圖二錯誤    

圖一錯誤畫面 圖二錯誤畫面 一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中