如何控制Excel里的对齐方式

Question

  Select Case ListView1.ColumnHeaders(C).Alignment
  Case lvwColumnLeft
    oS.Columns(C).HorizontalAlignment = -4131 ' xlLeft
  Case lvwColumnRight
    oS.Columns(C).HorizontalAlignment = -4152 ' xlRight
  Case lvwColumnCenter
    oS.Columns(C).HorizontalAlignment = -4108 ' xlCenter
  End Select

Answer 1

当然有:
'//把Excel表作为数据源打开。
set db=opendatabase(app.path & ".\123.xls",false,false,"Excel8.0;HDR=NO;")
worksheetname="sheet1"
set rs=dt.openrecordset(worksheetname & "$",dbopentable)
Dim nFieldAlign as Integer
'//读取对齐方式，这只是个例子
nFieldAlign=IIf((rs.Fields(0).type=dbCurrency),vbRightJustify,vbLeftJustify)