| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 导出EXCE;L设置边框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165000) |
||
| -- 作者：hopestarxia -- 发布时间：2021/5/10 11:28:00 -- 导出EXCE;L设置边框 老师，我导出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 |
||
| -- 作者：有点蓝 -- 发布时间：2021/5/10 12:19:00 -- 在样式里统计对齐的用法：http://www.foxtable.com/webhelp/topics/1161.htm |
||
| -- 作者：hopestarxia -- 发布时间：2021/5/10 18:47:00 -- 老师，加了不管用，如下，老师请看看问题出在哪里？ 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 Dim StyleN As XLS.Style = Book.NewStyle() \'定义新样式 StyleN.AlignHorz = XLS.AlignHorzEnum.Center StyleN.AlignVert = XLS.AlignVertEnum.Center Sheet.Rows(0).Style = StyleN Book.Save(dlg.FileName) MessageBox.show("导出成功") End If |
||
| -- 作者：有点蓝 -- 发布时间：2021/5/10 20:29:00 --
因为设置了单元格样式 Dim Book As New XLS.Book("D:\\问题\\12.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim Style As XLS.Style = Book.NewStyle() \'定义新样式 Style.AlignHorz = XLS.AlignHorzEnum.Center Style.AlignVert = XLS.AlignVertEnum.Center 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 c1 As Integer =0 To 11 Sheet(0,c1).Style = Style Next 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 = 1 To str2 For c As Integer =0 To 11 Sheet(r,c).Style = Style Next Next |
||
| -- 作者：hopestarxia -- 发布时间：2021/5/10 21:00:00 -- 谢谢老师！ |