以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]SaveExcel 保留行颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175677)

--  作者:zhutangxin
--  发布时间:2022/3/15 11:38:00
--  [求助]SaveExcel 保留行颜色
老师您好,我用下面的代码保存一个Table至Excel,对Drawcell中用AddUserStyle高定的单元格的颜色是可以保留在Excel中的,但用e.Style = e.Row.DataRow("Cyan")设置的行的颜色在Excel中不见了。有什么办法保留行的颜色吗?

\'示例 Functions.Execute("outputToExcel", Tables(e.Form.Name & "_Table1"))

Dim tb As Table = Args(0)

Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = True
flg.MergedRanges = True
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xlsx; *.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     tb.SaveExcel(dlg.FileName, "sheet1", flg)  \'保存文件
End If
Dim Proc As new Process
proc.File=dlg.FileName
proc.Verb = "open"
proc.Start()

--  作者:有点蓝
--  发布时间:2022/3/15 12:06:00
--  
只有Drawcell事件的代码设置的颜色可以输出