我一直在尝试对齐Excel单元格文本值。我尝试了更常见的xlLeftxlRight,但这似乎不起作用。错误是未声明xlLeft。我正在使用Visual Studios,并使用VB创建一个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

关于asp.net - Excel单元格对齐: Numerical values for e. g。 xlLeft,xlRight或xlCenter?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/6952084/

10-09 05:23