关于TXLSReadWriteII控件如何设置EXCEL单元格

TXLSReadWriteII.Sheets[0].AsString[1,1].HorizontalAlignment
TXLSReadWriteII.Sheets[0].AsString[1,1].VerticalAlignment

以上是两句复制单元格对齐的语句但是不知道如何赋值！请求高手指点！

还有以个问题就是TXLSReadWriteII控件如何设置EXCEL单元格的边框啊！太难了

6 个解决方案

#1

录一个excel的宏看一下就知道了

#2

录一个宏我会，但复制并不是TXLSReadWriteII.Sheets[0].AsString[1,1].HorizontalAlignment.HorizontalAlignment = xlCenter；编译就会出错！

#3

设置单元对齐：

  With XLS.Sheet[0].Range.ItemsRef['A'+intToStr(Top+3)+':'+LastS+IntToStr(Top+3)] do
  begin
    HorizAlignment:=chaLeft;
    VertAlignment:=cvaCenter;
  end;

#4

引用 3 楼 lyhoo163 的回复:

设置单元对齐：

  With XLS.Sheet[0].Range.ItemsRef['A'+intToStr(Top+3)+':'+LastS+IntToStr(Top+3)] do
  begin
    HorizAlignment:=chaLeft;
    VertAlignment:=cvaCenter;
  end;

lyhoo163 的方法我已经测试过了 ，不行啊！我用的是TXLSReadWriteII控件，不是DELPHI 7 自带的OLE控件

#5

这代码就是TXLSReadWritell控件，写的代码。

#6

引用 4 楼 asion527 的回复:

Quote: 引用 3 楼 lyhoo163 的回复:

设置单元对齐：

  With XLS.Sheet[0].Range.ItemsRef['A'+intToStr(Top+3)+':'+LastS+IntToStr(Top+3)] do
  begin
    HorizAlignment:=chaLeft;
    VertAlignment:=cvaCenter;
  end;

lyhoo163 的方法我已经测试过了 ，不行啊！我用的是TXLSReadWriteII控件，不是DELPHI 7 自带的OLE控件

你这里有报错，【Undeclared identifier:'chaLeft' 】需要引用一下Xc12DataStylesheet5，你试试看是否OK