主题：如何导出EXCEL文件保留百分比格式？

 如何导出的？用SaveExcel

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

 那这样做

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

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()