Question

急！ VBA 操作Excel 报错：不能设置类 Range 的 HorizontalAlignment 属性。在线等! 问题解决追加给分

新建一个Excel，然后将指定的单元格中的内容居中，可是一直报错
代码如下：

如果使用下面代码：
1 Range("A1:H1").Select
2 With Selection
3 .HorizontalAlignment = xlCenter
4 End With
则提示第3行缺少对象。
郁闷中.....求各位大牛帮忙。问题解决追加给分。

Answer 1

代码应该没问题啊，如果非要找问题的话，如果你的图片是截图的话，为什么你的Range和Cells函数的第一个字母不是大写，难道是怎么设置的？如果不是的话改成大写试试？

追问

谢谢回答，VBA不区分大小写。楼上的已经解决了。。Thanks!

追答

晕，原来是ACCESS里面啊

Answer 2

看你追多少分吧。。折腾我这么久。。
xlSheetNew.Range("A1:H1").HorizontalAlignment = -4108

xlcenter不是access的属性值，导致access不认识。。赋值不成功。。
出现1004错误。

追问

OK。非常完美。
还想问问 ， 后面的 ‘-4108’ 这个值是怎么来的。。如果我还想设置其他属性如：VerticalAlignment，后面的值该怎么设置呢？

追答

这个值你到对应的程序中的VBA帮助中去查。。
一般的设置是xlcenter在excel中都会是固定的一个值。。
其余的你到帮助中去查，

Answer 3

xlSheetNew.range("A1:H1").select
With Selection
.HorizontalAlignment = xlCenter
End With
这样呢，一般，你已经在前面用了xlSheetNew.activate不会出现这种情况的

追问

如果把
xlSheetNew.range("A1:H1").HorizontalAlignment = xlCenter
去掉。
都是可以正常的
证明 xlSheetNew 是可用的。
还有什么出错原因吗？