以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]SaveExcel 保留行颜色 (http://foxtable.net/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事件的代码设置的颜色可以输出 |