Excel单元格对齐： xlLeft，xlRight或xlCenter？ [英] Excel Cell Alignments: Numerical values for e.g. xlLeft, xlRight or xlCenter?

问题描述

我一直在尝试调整Excel单元格文本值。我尝试了更常见的 xlLeft ， xlRight 但这似乎不起作用。错误是 xlLeft 未声明。我正在使用Visual Studios并使用VB创建一个aspx页面。

以下是我的代码示例：

  Dim oExcel As Object 
 Dim oBook As Object 
 Dim oSheet As Object 
 
'在Excel中启动一个新的工作簿
 oExcel = CreateObject（Excel.Application）
 oBook = oExcel.Workbooks.Add 
 
'将数据添加到新工作簿中第一个工作表的单元格
 oSheet = oBook.Worksheets （1）
 
 oSheet.Range（A1：E1）。Merge（）
 oSheet.Range（A1）。Value =Hello
 oSheet.Range （A2：E2）。合并（）
 oSheet.Range（A2）。Value =There
 oSheet.Range（A1：A4）。Font.Bold = True 
 oSheet.Range（A1）。Horizo​​ntalAlignment = -4131 
  

解决方案

对于 VerticalAlignment ：

 顶部：-4160 
中心：-4108 
底部：-4107 
  

和的Horizo​​ntalAlignment ：

 左：-4131 
中心：-4108 
权利：-4152 
  

I've been trying to align Excel cell text values. I've tried the more common xlLeft, xlRight but this doesn't seem to work. The error was xlLeft wasn't declared. I am using Visual Studios and creating a aspx page with VB.

Here is a sample of my code:

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    'Start a new workbook in Excel
    oExcel = CreateObject("Excel.Application")
    oBook = oExcel.Workbooks.Add

    'Add data to cells of the first worksheet in the new workbook
    oSheet = oBook.Worksheets(1)

    oSheet.Range("A1:E1").Merge()
    oSheet.Range("A1").Value = "Hello"
    oSheet.Range("A2:E2").Merge()
    oSheet.Range("A2").Value = "There "
    oSheet.Range("A1:A4").Font.Bold = True
    oSheet.Range("A1").HorizontalAlignment = -4131

解决方案

For VerticalAlignment:

Top:    -4160
Center: -4108
Bottom: -4107

And HorizontalAlignment:

Left:    -4131
Center:  -4108
Right:   -4152

这篇关于Excel单元格对齐： xlLeft，xlRight或xlCenter？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！