Foxtable(狐表)用户栏目专家坐堂 → [求助]导出excel之后是否可以将某列设置为日期显示格式。


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

主题:[求助]导出excel之后是否可以将某列设置为日期显示格式。

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


加好友 发短信
等级:六尾狐 帖子:1287 积分:10368 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助]导出excel之后是否可以将某列设置为日期显示格式。  发帖心情 Post By:2023/4/20 18:05:00 [只看该作者]

我看到有   Style.Format   的设置方式,但是好像没有案例说明如何设置。、

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


加好友 发短信
等级:六尾狐 帖子:1287 积分:10368 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2023/4/20 18:20:00 [只看该作者]

Sheet.Cols(i).Style.Format = "yyyy-MM-dd"   这样好像不行

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


加好友 发短信
等级:六尾狐 帖子:1287 积分:10368 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2023/4/20 18:33:00 [只看该作者]

If t.Cols(lms(i)).IsDate Then
'Output.Show(t.Cols(lms(i)).Name )
            Style.Format = "yyyy-MM-dd"
        Else
            Style.Format=""
        End If

这样也不行

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


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

Dim Book As New XLS.Book
Dim
 Sheet As XLS.Sheet = Book.Sheets(0)
Dim
 Style As XLS.Style = Book.NewStyle() '定义新样式
Style.Format = "yyyy-MM-dd"
Sheet.Cols(0).Style = Style '设置第1列的样式


 回到顶部