Excel vba 数字分列成日期代码如何转换为foxtable代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Excel vba 数字分列成日期代码如何转换为foxtable代码

共有3078人关注过本帖树形打印复制链接主题：Excel vba 数字分列成日期代码如何转换为foxtable代码

lds

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

加好友

发短信

等级：幼狐帖子：109 积分：1741 威望：0 精华：0 注册：2019/10/21 21:57:00

Excel vba 数字分列成日期代码如何转换为foxtable代码 发帖心情

Post By：2021/10/12 13:31:00 [只看该作者]

此主题相关图片如下：1634016387(1).png

导出为Excel表格

下载信息 [文件大小：下载次数： ]
点击浏览该文件:证照整理.xls

Dim Book As New XLS.Book(ProjectPath & "muban\证照整理.xls")

Dim fl As String = "d:\证照整理.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

导出为Excel表格后想格式化一下 E列将数字20210826 转换成2021/8/26

打开后用vba转的代码是

Sub 数字转日期()

Columns("E:E").Select

Selection.TextToColumns , DataType:=xlDelimited, FieldInfo _

:=Array(1, 5), TrailingMinusNumbers:=True

End Sub

如何用狐表导出时直接转成日期，或者这个VBA代码怎么转成狐表代码。谢谢了！

有点蓝

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

加好友

发短信

等级：超级版主帖子：106418 积分：541237 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/10/12 13:40:00 [只看该作者]

方法1、foxtable里的结束日期列改为日期型

2、如果是字符串，模板这样设置

<Left([结束日期],4) & "/" & Mid([结束日期],5,2) & "/" & Right([结束日期],2)>

lds

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

加好友

发短信

等级：幼狐帖子：109 积分：1741 威望：0 精华：0 注册：2019/10/21 21:57:00

Post By：2021/10/12 14:43:00 [只看该作者]

模板后面还有一个组合，把日期连接起来日期是按天数显示的，<Left([结束日期],4) & "/" & Mid([结束日期],5,2) & "/" & Right([结束日期],2)> 模板这样转换后就成文本格式了，分列只是改变了视觉效果，没有改变实际数据。想在导出数据后用VBA代码将表格的d列和E列分列成ymd日期列，这样就能正常连接了.
图片点击可在新窗口打开查看

此主题相关图片如下：1634020449(1).png