主题：字体控制问题

Book.Save("c:\reports\职工情况表.xls")

Dim Proc As New Process

Proc.File = "c:\reports\职工情况表.xls"

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