Foxtable(狐表)用户栏目专家坐堂 → 导出EXCE;L设置边框


  共有3139人关注过本帖平板打印复制链接

主题:导出EXCE;L设置边框

帅哥哟,离线,有人找我吗?
hopestarxia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
导出EXCE;L设置边框  发帖心情 Post By:2021/5/10 11:28:00 [只看该作者]

老师,我导出EXCEL表文件后,加了一个增加上表格边框的样式,但是增加样式后把原来的对齐方式改了(增加的样式不涉及对齐),请问如何才能实现加上边框又不影响原对齐格式。

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Tables("出库序时账_Table1").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.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
For r As Integer = 0 To str2
    For c As Integer =0 To 11
        Sheet(r,c).Style = Style
    Next
Next

    Book.Save(dlg.FileName)
    MessageBox.show("导出成功")


End If

 回到顶部