- 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=44943)
-- 发布时间：2014/1/12 11:28:00
-- excel导出如何保留合并格式
用这段代码导出到excel
Dim dt As Table = Tables("统计表1")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle \'新建一个样式
Style.BackColor = Color.Red \'样式的背景颜色设为红色
For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
Sheet(0, c).Value = dt.Cols(c).Caption
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:\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\test.xls"
Proc.Start()
这是FT中的格式
此主题相关图片如下：a.jpg
导出到excel后，格式变成了这样：
此主题相关图片如下：b.png
如何才能使导出后的excel表头格式保持在FT中的样式？
-- 发布时间：2014/1/12 11:39:00
--
Dim dlg As New SaveFileDialog
Dim filename As String
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
filename=dlg.FileName
End If
If(filename=Nothing) Then
Return
End If
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("辅料库存_Table1").SaveExcel(filename,"辅料库存",flg)
If Functions.Execute("MultiMess","导出完毕,是否现在打开该档案!","提示",True)=True Then
Dim prc As New Process
prc.File=filename
prc.Start()
End If
-- 发布时间：2014/1/12 11:50:00
--
多谢，问题解决！