以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出EXCEL表文件增加标题字网络线  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161585)
--  作者：hopestarxia
--  发布时间：2021/3/23 15:05:00
--  导出EXCEL表文件增加标题字网络线
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("xsmx_Table1").SaveExcel(dlg.FileName, "销售明细表")  \'保存文件
    MessageBox.show("导出成功") 
End If

老师，我当前将窗口中的 Table表数据导出使用的代码如上，我想实现导出时能增加一行标题例，（等于窗口中某个增件值内容如：TextBox1），
另外导出的窗口表内容增加网络线，请问该如何实现？
--  作者：有点蓝
--  发布时间：2021/3/23 15:19:00
--  
参考：http://www.foxtable.com/webhelp/topics/1146.htm



Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("出入库明细").SaveExcel(dlg.FileName, "销售明细表")  \'保存文件
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
    Style.font = New Font("宋体",12,FontStyle.Bold Or FontStyle.Underline)
    Sheet.Rows.Insert(0)
    Sheet(0,2).value = "某标题"
    Sheet(0,2).style = Style
    Book.Save(dlg.FileName)
    MessageBox.show("导出成功")
End If
--  作者：hopestarxia
--  发布时间：2021/3/23 22:44:00
--  
谢谢老师！
--  作者：hopestarxia
--  发布时间：2021/3/24 0:31:00
--  
老师，我插入的标题想要放在表的（1-5列合并居中）的位置，即插入的行是表的名称，下面是表的内容，内容有多列，名称在这些列标题的上面位置合并居中显示。合并居中这个怎么处理，这个没有找到参考说明。
--  作者：有点蓝
--  发布时间：2021/3/24 8:17:00
--  
参考：http://www.foxtable.com/webhelp/topics/1153.htm