Foxtable(狐表)用户栏目专家坐堂 → saveExcel的逻辑字段


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

主题:saveExcel的逻辑字段

帅哥哟,离线,有人找我吗?
rogen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:4817 威望:0 精华:0 注册:2015/11/22 10:28:00
saveExcel的逻辑字段  发帖心情 Post By:2019/11/3 7:17:00 [只看该作者]

用saveExcel代码将一个table导出为excel,逻辑字段“已付款”显示为True/False
请教如何能将True/False改为 已付款/未付款 ?
试过drawcell,无效。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/3 20:34:00 [只看该作者]

试了一下,直接导出是没有办法的。导出后通过代码处理:

Tables("表A").SaveExcel("D:\问题\12.xls") 
Dim Book As New XLS.Book("D:\问题\12.xls") 
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1 
    Sheet(n,2).Value = IIF(Sheet(n,2).Value = 1,"已付款","未付款")
Next
Book.Save("d:\问题\12.xls")

 回到顶部