vb导出的excel如何在每个格子中居中阿
Set oExcel = CreateObject("Excel.Application")
Set obook = oExcel.Workbooks.Add
Set osheet = obook.Worksheets(1)
Set osheet = oExcel.Application.Workbooks(1).Worksheets("Sheet1")
osheet.Range("A1:L1").Select '设置单元个
oExcel.Selection.Merge '设置标题
osheet.Range("A1:L1").Select
With oExcel.ActiveCell.Characters(Start:=1, Length:=26).Font
.Name = "宋体"
.fontstyle = "加粗"
.Size = 18
'.Height = 22
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = True
'.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Set osheet = oExcel.Application.Workbooks(1).Worksheets("Sheet1") '设置表格
osheet.cells(1, 1).Value = "xx"
前面一行的xx如何居中呢?