水平对齐细胞excel vb6？

Question

我在vb6工作，我需要将一个excel单元格对齐到中心。之后（或在任何工作之前）我需要合并一系列单元格，包括居中的单元格。 我现在想要使用的是这段代码，

oSheet.range("A1:N1").Merge
oSheet.range("A1").HorizontalAlignment = xlCenter

其中oSheet是excel表，xlCenter应该是excel的常量。我面临的问题是，当我运行此代码时，它给出了一个错误，说它无法设置Range类的Horizo​​ntalAlignment属性。这是错误1004.当我去调试程序并将鼠标放在xlCenter上时，它显示xlCenter = empty。

Answer 1

除非你的VB项目引用了Excel对象库，否则它不会知道xlCenter是什么，所以你需要：

• 在VB代码中将其定义为常量

或

• 将其替换为实际值

您可以从Excel VB编辑器中的对象浏览器获取xlCenter的值。