Выравнивание ячеек Excel: числовые значения, например, для xlLeft, xlRight или xlCenter?

Question

Я пытался выровнять текстовые значения ячейки Excel. Я пробовал более распространенные xlLeft, xlRight, но это не похоже на работу. Ошибка была xlLeft не была объявлена. Я использую Visual Studios и создаю страницу aspx с VB.

Вот пример моего кода:

    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

Answer 1

Для VerticalAlignment:

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

И HorizontalAlignment:

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

Answer 2

Вы можете использовать xlLeft:

Imports Microsoft.Office.Interop.Excel

...
oSheet.Range("A1").HorizontalAlignment = Constants.xlLeft

Answer 3

xcl.Range("J:J").EntireColumn.HorizontalAlignment = _
Microsoft.Office.Interop.Excel.Constants.xlCenter