Ms access 水平对齐不'；不能使用xlFill

我试图使excel中的列适合我给定的列大小，我试图使用属性horizontalAlignment来实现这一点

我可以让它与xlCenter一起工作，但我需要执行xlFill，但xlFill没有值

With objExcelAssist.worksheet.columns("N:N")
    .horizontalAlignment = xlCenter
End With

我所尝试的：

With objExcelAssist.worksheet.columns("N:N")
    .horizontalAlignment = xlFill
End With

With objExcelAssist.worksheet.columns("N:N")
    .horizontalAlignment = xlFillDefault
End With

到目前为止还没有成功，我用错名字了吗

--------------编辑------------------

---

它所做的只是把我的文字缩小

---

我需要它只是为了在不影响文本大小的情况下不会与下一行重叠

这就是您要尝试的吗

With objExcelAssist.Worksheet.Columns("N:N")
    .HorizontalAlignment = xlFill
    .ShrinkToFit = True
End With

供参考：您可以使用的其他物品包括

    .HorizontalAlignment
    .VerticalAlignment 
    .WrapText
    .Orientation 
    .AddIndent
    .IndentLevel
    .ShrinkToFit 
    .ReadingOrder
    .MergeCells

编辑

评论的后续行动

最后，我能确定的问题是，您正在使用MS-Excel进行后期绑定，因此MS-Access无法识别这些常量。在这种情况下，您有两种选择

A.在代码顶部声明常量。比如说

Const xlFill As Integer = 5
'~~> Other COnstants You can check their values in Excel Object Browser
Const xlBottom As Integer = -4107
Const xlContext As Integer = -5002
Const xlCenter As Integer = -4108

等等。或

B.用常量值替换常量。。比如说

With objExcelAssist.Worksheet.Columns("N:N")
    .HorizontalAlignment = 5
    .VerticalAlignment = -4107
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = -5002
    .MergeCells = False
End With

---

您是使用excel进行后期绑定还是早期绑定？

使excel中的列与我指定的列大小相适应，

这是什么意思？@SiddharthRout我不确定抱歉，我给了单元格一个高度和宽度，但是我放进去的文本overlaps@Sythnet如果您试图压缩文本以适应单元格，请尝试

.ShrinkToFit=True

。+1@mehow:刚刚看到您的评论。如果你愿意，你可以发布它作为答案，我会删除我所有的shrinkToFit做的是使我的文本变小，我需要文本保持相同的大小，但不要重叠然后我猜你在寻找

。WrapText=True

WrapText会使它在多行上运行，对吗？我需要它采取在一行，这是我的问题，在正常的excel我可以设置一个单元格填充，为什么它不可能在VBA？这里，它与“通话里程”和“回家里程”列重叠，我需要单独呆在这一行，重叠请参见我帖子中的编辑。您可能需要刷新页面。