excel 对单元格自动分行

标签：creat   variant   cti   horizon   object   cep   app   分行   leo   

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


try
Excel := GetActiveOleObject(‘Excel.Application‘);
except
Excel := CreateOleObject(‘Excel.Application‘);
end;
wbk:=Excel.ActiveWorkbook;
WS:=Excel.Worksheets[1]

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

excel 对单元格自动分行

标签：creat   variant   cti   horizon   object   cep   app   分行   leo   

原文地址：https://www.cnblogs.com/liguang/p/12791719.html