Excel单元格alignment:例如xlLeft,xlRight或xlCenter的数值?
我一直在尝试调整Excel单元格的文本值。 我已经尝试了更常见的xlLeft
, xlRight
但是这似乎不起作用。 错误是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