Question

VBA中 不能设置类 Range 的 HorizontalAlignment 属性

xlApp.ActiveSheet.range("A1：H1").HorizontalAlignment = xlCenter

我这样设置单元格的内容居中显示结果提示错误：“不能设置类 Range 的 HorizontalAlignment 属性”

大牛们，
求help！
代码如下：

Answer 1

xlApp.ActiveSheet.range("A1：H1").HorizontalAlignment = xlCenter

不要使用activesheet。
试试改成：
xlApp.Sheets("sheet1").range("A1：H1").HorizontalAlignment = xlCenter

我怀疑你的xlapp根本就没有激活。
怎么会有activesheet，导致range为空，当然就设置不了。。

你改成这个，同样是因为前面没有工作表
Range("A1:H1").Select
With Selection
.HorizontalAlignment = xlCenter
End With

它不知道去哪里选择

追问

谢谢你的回答，不过还是提示错误：不能设置类 Range 的 HorizontalAlignment 属性。

追答

发你的文件到evilfarmer@126.com
不然把代码贴全

追问

谢谢你，代码如下

追答

你定义的function gethead1.
而函数是不能对Excel的队形进行操作的。
所以你要改成：
public sub getHead1()

应该就没有问题了。

追问

应该不是函数问题，我把function getHead1   去掉，直接在Sub中写也是同样的错误。

困扰呀...  help！

追答

晕死，折腾了很久，我也没想出是哪里出现问题。
直到打开你给我压缩包，发现是在Access里面写的。
原因到此大白。
因为xlcenter不是access中的属性值。导致赋值不成功。
改成：
xlSheetNew.Range("A1:H1").HorizontalAlignment = -4108

就ok了。。。
折腾了这么久，一直以为是在Excel中写的程序。。

Answer 2

首先中间的冒号应该是英文的，你用了中文的

追问

谢谢提醒，但不是这个问题，还有其他原因吗？

追答

Range("A1:H1").Select
Selection.HorizontalAlignment = xlCenter