主题：请教高手EXCEL报表的行高及居中代码不起作用

Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Navy '设置样式的字体颜色
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
Sheet.DefaultColumnWidth = 100   '列宽
Sheet.DefaultRowHeight = 30         '行高
Style.BackColor = Color.Red '样式的背景颜色设为红色
For c As Integer = 0 To dt.Cols.Count -2 '添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
    Sheet(0, c).Style= Style
Next
For r As Integer = 0 To dt.Rows.Count - 2 '填入数据
    For c As Integer = 0 To dt.Cols.Count -2
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next

你前面设置了列标题垂直居中，结果后面又有：

For r As Integer = 0 to dt.rows.Count -1
    For c As Integer =0 To dt.Cols.Count -2
        Sheet(r,c).Style = Style1
    Next
Next

等于所有单元格重新按照Style1的设置排列，而Style1设置了水平和垂直居中吗？

呵呵，这是正常的，因为行高等于模板中的实际行高。

可以这样：

For r As Integer = 0 to Sheet.rows.Count -1
   sheet.rows(r).height = 80

next