开发者

Excel Cell Alignments: Numerical values for e.g. xlLeft, xlRight or xlCenter?

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 = "Th开发者_开发技巧ere "
    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


You can use xlLeft:

Imports Microsoft.Office.Interop.Excel

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


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

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜