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


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

主题:[求助]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()

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/15 12:06:00 [只看该作者]

只有Drawcell事件的代码设置的颜色可以输出

 回到顶部