Excel 合併等問題 |
答題得分者是:a6475
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
請問各位! 我用下列方法動態create excel ole物件
msexcel:= CreateOleObject('Excel.Application'); 1.我要把 A1..Z1 CELL合併, 該下何指令?
我嘗試了
sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:Z1'];
sheetrange.Columns.MergeCells;
結果出現合併失敗
上網搜尋Excel討論, 找不到談論這段功能的內文, 雖然幾位版主建議用
excel的巨集錄製再查看程式碼, 不過該段程式碼並不能適用於delphi
我猜了幾個方法也都不通
sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:Z1'];
sheetrange.selection.mergcells,
或
msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:Z1'].MergeCells; ps:
sheetrange:= msexcel.Workbooks[1].Worksheets['Sheet1'].Range['A1:V65536'];
sheetrange.Columns.AutoFit;
這個動作可以通過! 2.我如何知道 cell[2,3]= B3, cell[1,1]=A1
以往我們都是指定 cell[2,3]內的值, 但如果想知道是那一個格址呢?
(除了用計算公式去算出來外, 有沒有指令馬上知道) 謝謝!
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
我用
MyExcel.Range['C1','D8'].Select;
MyExcel.Selection.Merge; //合拼儲存格
在Delphi 6可以使用。試試看吧。 第二個問題我就看不懂了>_<
能不能在說明一下。 ..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎ 藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁 |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
引言: 我用 MyExcel.Range['C1','D8'].Select; MyExcel.Selection.Merge; //合拼儲存格 感謝, 按您提供的方式來做, 的確可以達成! 在Delphi 6可以使用。試試看吧。 第二個問題我就看不懂了>_< 能不能在說明一下。 例如, 上面 MyExcel.Range['C1','C8'].Select 其他 C1, C8 是由cell內容值判斷公式來決定的, 所以要Merge的區域是不確定的, 也有可能是 D2..E2 我的寫法是 if cell[1,3].... 則 Range 就由 C1開始, 但我並不知道 cell[1,3]是代表'C1', 我又不能下 Range[cell[1,3],cell[8,3]) 因此, 我想知道, 有沒有指令可以換算 cell[1,3] 換成 'C1' 我現在是用一支function來分析計算, 一樣可以做到該功能! |
yubad
一般會員 發表:0 回覆:15 積分:3 註冊:2003-11-26 發送簡訊給我 |
引言:cell[1,3].address or cell[1,3].address(xlA1)引言: 我用 MyExcel.Range['C1','D8'].Select; MyExcel.Selection.Merge; //合拼儲存格 感謝, 按您提供的方式來做, 的確可以達成! 在Delphi 6可以使用。試試看吧。 第二個問題我就看不懂了>_< 能不能在說明一下。 例如, 上面 MyExcel.Range['C1','C8'].Select 其他 C1, C8 是由cell內容值判斷公式來決定的, 所以要Merge的區域是不確定的, 也有可能是 D2..E2 我的寫法是 if cell[1,3].... 則 Range 就由 C1開始, 但我並不知道 cell[1,3]是代表'C1', 我又不能下 Range[cell[1,3],cell[8,3]) 因此, 我想知道, 有沒有指令可以換算 cell[1,3] 換成 'C1' 我現在是用一支function來分析計算, 一樣可以做到該功能! |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
|
axsoft
版主 發表:681 回覆:1056 積分:969 註冊:2002-03-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |