Foxtable(狐表)用户栏目专家坐堂 → [求助]SaveExcel 保留行颜色


  共有3586人关注过本帖树形打印复制链接

主题:[求助]SaveExcel 保留行颜色

帅哥,在线噢!
zhutangxin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3902 威望:0 精华:0 注册:2016/10/14 13:40:00
[求助]SaveExcel 保留行颜色  发帖心情 Post By:2022/3/15 11:38:00 [显示全部帖子]

老师您好,我用下面的代码保存一个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()

 回到顶部