VB设置excel单元格使字体居中DimexAsObjectDimexwbookAsObjectDimexsheetAs

---

Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object

Set ex = CreateObject("Excel.Application")
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1"棚好燃)

exsheet.Cells.HorizontalAlignment = xlCenter //居中问题
exsheet.Cells.VerticalAlignment = xlCenter

这袜蚂个链虚问题我也遇到过
我从Excel的宏中得到了启发
最后搞定了

---

字体在单元格中居拆态中，录制宏。

你可以在excel中录制宏，然后把代旅携源码粘贴过去稍微修改一下就可以了隐袜。

---