怎么样控制Excel的单元格有自动换行的功能(这么多富翁怎么就不回答呢，难道嫌我的分数太少？我可以加啊！拜托富翁们！)(200分)

冷

冷影月清

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #1

怎么样控制Excel的单元格有自动换行的功能(这么多富翁怎么就不回答呢，难道嫌我的分数太少？我可以加啊！拜托富翁们！)

 

R

renyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #2

我也想知道啊，提前先。

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #3

excel: Variant;
WBk, WS, RG: OleVariant;


try
Excel := GetActiveOleObject('Excel.Application');
except
Excel := CreateOleObject('Excel.Application');
end;
wbk:=Excel.ActiveWorkbook;

RG:=WS.Range[WS.Cells[3,1],WS.Cells[9,9]];
RG.HorizontalAlignment := xlHAlignCenter;
RG.VerticalAlignment := xlHAlignCenter;
RG.WrapText := True;

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #4

详细一点，怎么自动换行？

 

R

reflect

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #5

无效用户，或者 LID

打开Excel，录制宏，然后设置单元格为自动换行，停止宏，然后你可以看到Excel到底做了什么：Selection.WrapText = True；将此代码用到你用VBA控制Excel的代码中就可以了。

或者，你用Server组件，Excel好像有个Column对象，它可能有个属性就是对应这个WrapText的。

 

R

redleaf_wgm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #6

Excel := CreateOleObject('Excel.Application');
Excel.Selection.WrapText := True;

其实具体的代码使用EXCEL录制一个宏，然后编辑宏，一切就搞定了

 

冷

冷影月清

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-09

• #7

谢谢！