如何编程设置excel 中A1和A4合并后使汉字竖排

Question

eapp:=createoleobject('excel.application');
    eworkbook:=eapp.workbooks.add;eworkbook.worksheets[1].Range['A1:A4'].MergeCells:=True; //清花
如何使清花2字竖排。
清
花

Answer 1

eworkbook.worksheets[1].Range('A1:A4').Select;
eapp.Selection.Orientation := xlVertical;

Answer 2

编译时就提示 Undeclared identifier: 'xlVertical'

Answer 3

没有具体试过，建议：不要用xlVertical这样的值，直接写1、2、3、4试。

Answer 4

xlapp.Range('A1:A4').Select;
xlapp.Selection.Orientation := xlVertical;
xlapp.Selection..MergeCells = True

Answer 5

回复人： zhudongpo(phil) ( ) 信誉：100  2003-08-05 14:16:00  得分:0 
 
 
  编译时就提示 Undeclared identifier: 'xlVertical'  
 
//加引号就可以解决了

Answer 6

我自己解决了  谢谢各位的帮忙user excel 2000 编译时就不会在提示  Undeclared identifier: 'xlVertical'