导出的EXCEL文挡中,如何让某以单元格居中(垂直和水平都要居中的),谢谢!

[kaicat]

RT

[lxcc]

'以下是VB6的代码,在VB.NET中升级以下得到升级后的VB.NET的代码,有很多UPGRADE_WARNING不需理会,直接运行即可
'要添加Excel的引用
Private Sub Command1_Click()
Dim exl As New Excel.Application

exl.Visible = True

Workbooks.Open "C:\Test.xls", Editable:=True

Columns("A:A").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

ActiveWorkbook.Save
Workbooks.Close
exl.Application.Quit
Set exl = Nothing

End Sub

[dofly]

拿来主义不太好吧

自己去录制一个宏，你就马上会明白了。