[求助]绘制单元格颜色导出exlce - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]绘制单元格颜色导出exlce

共有2220人关注过本帖树形打印复制链接主题：[求助]绘制单元格颜色导出exlce

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 10:34:00 [显示全部帖子]

1、单独执行这个代码，能否导出？

Dim tt As Table = Tables("员工资料")
Dim file As String = "d:\内部通讯录.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
tt.SaveExcel(file ,tt.name,flg)

2、是不是这个问题？

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125505&authorid=0&page=0&star=2

3、实例发上来测试

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 12:21:00 [显示全部帖子]

更换颜色即可。换一种可以正常的颜色

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125505&authorid=0&page=0&star=2

[此贴子已经被作者于2018/12/14 12:22:43编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 12:24:00 [显示全部帖子]

我测试例子，没问题，导出的数据有颜色的。

Dim tt As Table = Tables("室内设计项目")
Dim file As String = "d:\内部通讯录.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
tt.SaveExcel(file ,tt.name,flg)