主题：导出EXCEL表文件增加标题字网络线

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