線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:4748
推到 Plurk!
推到 Facebook!

匯出Excel時儲存格要水平置中

答題得分者是:christie
travelclub
一般會員


發表:1
回覆:2
積分:0
註冊:2009-03-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-03-22 21:04:39 IP:59.120.xxx.xxx 訂閱
寫了很多匯出Excel的File , 這次被儲存格要水平置中打敗了 !

[code delphi]
xlsSheet.Columns[j].Font.Name := 'Arial';
xlsSheet.Columns[j].Font.Size := 9;
xlsSheet.Columns[j].ColumnWidth := 3;
xlsSheet.Columns[j].WrapText := True;
xlsSheet.Columns[j].HorizontalAlignment := 'xlCenter';
[/code]

錄製巨集中儲存格要水平置中的指令明明白白是
HorizontalAlignment := xlCenter

可是 xlsSheet.Columns[j].HorizontalAlignment := 'xlCenter'; run起來確有Error ?!

請問正解 , TKS !
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-03-23 08:47:22 IP:59.125.xxx.xxx 訂閱
const
// Text Alignment
xlHAlignCenter = -4108;
xlVAlignCenter = -4108;

...
// horizontal-aligned text,
ExcelApp.Range['B14:M26'].HorizontalAlignment := xlHAlignCenter;


------
What do we live for if not to make life less difficult for each other?
編輯記錄
christie 重新編輯於 2009-03-23 08:48:54, 註解 無‧
travelclub
一般會員


發表:1
回覆:2
積分:0
註冊:2009-03-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-03-23 09:18:34 IP:59.127.xxx.xxx 訂閱
  試過

xlssheet.Rows[1].HorizontalAlignment:='xlHAlignCenter';
xlssheet.Range['A1:Z1'].HorizontalAlignment:='xlHAlignCenter';
...

還是不行, ( 無法設定種類Range的HorizontalAlignment屬性 )

我用的是 Delphi 5 Excel2003
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-03-23 09:36:48 IP:59.125.xxx.xxx 訂閱
 xlsSheet.Columns[j].HorizontalAlignment := -4108;
===================引 用 travelclub 文 章===================
試過

xlssheet.Rows[1].HorizontalAlignment:='xlHAlignCenter';
xlssheet.Range['A1:Z1'].HorizontalAlignment:='xlHAlignCenter';
...

還是不行, ( 無法設定種類Range的HorizontalAlignment屬性 )

我用的是 Delphi 5 Excel2003
------
What do we live for if not to make life less difficult for each other?
travelclub
一般會員


發表:1
回覆:2
積分:0
註冊:2009-03-22

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-03-23 10:18:35 IP:59.127.xxx.xxx 訂閱
christie兄 ,

OK了 , 除了感恩還是感恩 !
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-03-23 10:44:47 IP:59.125.xxx.xxx 訂閱
const // 參考 參考!
// SheetType
xlChart = -4109;
xlWorksheet = -4167;
// WBATemplate
xlWBATWorksheet = -4167;
xlWBATChart = -4109;
// Page Setup
xlPortrait = 1;
xlLandscape = 2;

// Format Cells
xlBottom = -4107;
xlLeft = -4131;
xlRight = -4152;
xlTop = -4160;
// Text Alignment
xlHAlignCenter = -4108;
xlVAlignCenter = -4108;
// Cell Borders
xlThick = 4;
xlThin = 2;


===================引 用 travelclub 文 章===================
christie兄 ,

OK了 , 除了感恩還是感恩 !
------
What do we live for if not to make life less difficult for each other?
系統時間:2024-04-20 2:24:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!