主题：excel报表，模板中单位上标在生成报表后又恢复成一般字体了

 生成以后，重新用代码对单元格进行设置

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Cells(1,1).font.Superscript = True
app.visible = True

单元格里面一样可以，如果不多，效率没什么问题。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Cells(1,1).Characters(Start:=1, Length:=3).font.Superscript = True
app.visible = True