我用如下代码:
Tables("Main_tj ").SaveExcel(dlg.FileName, "Main",flg) '保存文件
生成了一个execl文件,如何在后续操作中,向该execl文件中插入几行标题,并添加制表人信息?
因为Main_tj是一个具有合并和统计的结果表,所以采用类似以下代码:
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表的内容,不知是啥原因,该如何处理,请高手指教!