以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何导出EXCEL文件保留百分比格式？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72104)
--  作者：一笑
--  发布时间：2015/7/23 15:08:00
--  如何导出EXCEL文件保留百分比格式？
在统计表中设置了成品率列以百分比显示，但导出EXCEL文件后则不能：

DataTables("统计表1").DataCols.Add("成品率",Gettype(Double),"成品数/生产数"

有没有方法使导出的EXCEL文件保留百分比格式？
--  作者：狐狸爸爸
--  发布时间：2015/7/23 15:41:00
--  
直接用SaveExcel看看：
http://www.foxtable.com/help/topics/0559.htm
--  作者：大红袍
--  发布时间：2015/7/23 15:42:00
--  

 如何导出的？用SaveExcel

 

http://www.foxtable.com/help/topics/0559.htm

 
--  作者：一笑
--  发布时间：2015/7/23 15:47:00
--  
用的代码导出不行：
Dim flg As New SaveExcelFlags
flg.CellStyle = True
Dim t As Table = Tables("事件统计_Table1")
Dim fl As String = ProjectPath & "事件.xls"
t.SaveExcel(fl, n, flg)

用狐表杂项-高速导出，也不行
--  作者：大红袍
--  发布时间：2015/7/23 15:48:00
--  

 那这样做

 

http://www.foxtable.com/help/topics/1148.htm

 
--  作者：一笑
--  发布时间：2015/7/24 10:48:00
--  
按照帮助写如下代码，不起作用，求解，谢谢：

Dim flg As New SaveExcelFlags
    flg.CellStyle = True
    Dim t As Table = Tables("统计表1")
    Dim n As String = "统计表1"
    Dim fl As String = ProjectPath & n & ".xls"
    t.SaveExcel(fl, n, flg)

Dim Book As New XLS.Book(fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "#0.00%"
Sheet.Cols(7).Style = st2
 Book.Save("c:\\reports\\test.xls")
    Dim Proc As New Process
    Proc.File = "c:\\reports\\test.xls"
    Proc.Start()
--  作者：大红袍
--  发布时间：2015/7/24 11:03:00
--  

Dim flg As New SaveExcelFlags
flg.CellStyle = True
Dim t As Table = Tables("表A")
Dim n As String = "表A"
Dim fl As String = ProjectPath & n & ".xls"
t.SaveExcel(fl, n, flg)


Dim Book As New XLS.Book(fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "0.00%"
For i As Integer = 1 To sheet.Rows.Count -1
    Sheet(i,2).Formula = "=" & Sheet(i,2).Value
    Sheet(i,2).Style = st2
Next
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()