請教館長,開啟 Excel 後 , 讀取/設定 問題 --- water |
尚未結案
|
water
初階會員 發表:90 回覆:89 積分:35 註冊:2003-07-07 發送簡訊給我 |
我開啟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
初階會員 發表:90 回覆:89 積分:35 註冊:2003-07-07 發送簡訊給我 |
|
andychang1690
資深會員 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
|
water
初階會員 發表:90 回覆:89 積分:35 註冊:2003-07-07 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
第 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 |
water
初階會員 發表:90 回覆:89 積分:35 註冊:2003-07-07 發送簡訊給我 |
我在其他電腦找到的資料,借我存一下
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
------
一切無為法.如虛亦如空.如如心不動.萬法在其中 |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
water
初階會員 發表:90 回覆:89 積分:35 註冊:2003-07-07 發送簡訊給我 |
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; // 圖二錯誤圖一錯誤畫面 圖二錯誤畫面 一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |