如何在SaveExcel生成的excel表中输出报表标题,并添加制表人信息？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在SaveExcel生成的excel表中输出报表标题,并添加制表人信息？

共有9409人关注过本帖树形打印复制链接主题：如何在SaveExcel生成的excel表中输出报表标题,并添加制表人信息？

silyangel

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：86 积分：631 威望：0 精华：0 注册：2013/5/18 17:14:00

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

Post By：2013/7/3 21:59:00 [显示全部帖子]

如何在SaveExcel生成的excel表中输出报表标题？ 发帖心情

我用如下代码：

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表的内容，不知是啥原因，该如何处理，请高手指教！