......
Sheet(4,5).Value = "制单人:" & User.Name '修改模板,加入制单人信息
Dim Style As XLS.Style = Book.NewStyle() '定义新样式Style.AlignHorz = XLS.AlignHorzEnum.CenterStyle.Font = Sheet(4,5).Style.FontSheet(4,5).Style= StyleBook.Build()