Excel单元格alignment:例如xlLeft,xlRight或xlCenter的数值?

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

这是我的代码示例:

  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 

对于VerticalAlignment

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

HorizontalAlignment

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

你可以使用xlLeft:

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