主题：如何在SaveExcel生成的excel表中输出报表标题,并添加制表人信息？

    Tables("Main_tj").SaveExcel(dlg.FileName, "难度进度",flg)  '保存文件
    Dim b As New XLS.Book(dlg.FileName) '定义一个Excel工作簿
    Dim s As XLS.Sheet = b.Sheets(0)
    Dim Style As XLS.Style = b.NewStyle() '定义新样式
     s.Rows.Insert(0)
     s(0, 0).Value = "统计表标题"
   
     b.save(ProjectPath & "reports\难度进度888.xls")

     Dim Proc As New Process
     Proc.File = ProjectPath & "reports\难度进度888.xls"

但是后添加的一行，会打乱原先Tables("Main_tj ").SaveExcel表的内容，不知是啥原因，该如何处理，请高手指教！