我一直在尝试对齐Excel单元格文本值.我尝试过更常见的xlLeft,xlRight,但这似乎不起作用.错误是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
