以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出为EXCEL后的格式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124242)
--  作者：Hareen时代
--  发布时间：2018/9/3 9:37:00
--  导出为EXCEL后的格式问题
各位老师好，我用saveexcel  把狐表里面做好的表导出为excel  ,但是导出来，格式完全变了，没有线框，单元格的格式也变了，我把保存设置设为true 也不行，麻烦各位老师给个解决方案，多谢了


Dim flg As New SaveExcelFlags \'保存设置
    flg.RowNumber = False \'保存行号列
    flg.CellStyle = True \'保存单元格样式
--  作者：有点甜
--  发布时间：2018/9/3 9:48:00
--  

试试这样

 

http://www.foxtable.com/webhelp/scr/1163.htm

 

Dim dt As Table = Tables("表A")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表


For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
    If dt.grid.Cols(c+1).Format > "" Then
        Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
        Style.Format = dt.grid.Cols(c+1).Format
        sheet.Cols(c).style = style
    End If
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
Next
\'打开工作簿
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
--  作者：Hareen时代
--  发布时间：2018/9/3 10:10:00
--  
这个表格的汇总模式的合计行没有导出来
--  作者：有点甜
--  发布时间：2018/9/3 11:06:00
--  
以下是引用Hareen时代在2018/9/3 10:10:00的发言：
这个表格的汇总模式的合计行没有导出来

 

1、你可以先用saveexcel把表格弄出来；再打开这个xls文件，设置2楼的样式。

 

2、你可以在2楼的代码基础上，把汇总行也弄出去 http://www.foxtable.com/webhelp/scr/1594.htm