Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态列名出错


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

主题：动态列名出错
帅哥哟，离线，有人找我吗？
好学生
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：186 威望：0 精华：0 注册：2015/4/3 11:33:00 		动态列名出错  发帖心情 Post By：2015/4/13 14:24:00 [显示全部帖子]

Dim i As Integer
For i = 0 To 7 Step 1
Dim ex As New Exporter
ex.SourceTableName = "导出文本"
ex.Fields = "日期,代码,& Names(i) " ‘动态列名
ex.FilePath = "e:\文本数据\"
ex.Format = "Fixed"
ex.NewTableName = "& Names(i) " ’动态文件名 
ex.Export()
Next

提示：Names(i)列名错误

要求：1，每一个列输出一个文件，列名=文件名，

        2，在e:\文本数据\下按“日期”列的日期建立目录名，

不知怎样做，请版主指点！

[此贴子已经被作者于2015/4/14 14:23:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
好学生
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：186 威望：0 精华：0 注册：2015/4/3 11:33:00 		  发帖心情 Post By：2015/4/13 15:11:00 [显示全部帖子]

ex.FilePath = "e:\文本数据\" “日期”列的值\

 

在e:\文本数据\下按“日期”列的日期建立目录名怎样做?
 回到顶部
帅哥哟，离线，有人找我吗？
好学生
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：186 威望：0 精华：0 注册：2015/4/3 11:33:00 		  发帖心情 Post By：2015/4/14 11:29:00 [显示全部帖子]

 

Dim i As Integer

Dim s As String

s = CStr( Tables("导出文本" ).current("日期"))

For i = 0 To 7 Step 1

Dim ex As New Exporter

ex.SourceTableName = "导出文本"

ex.Fields = "日期,代码," & Names(i)

ex.FilePath = "e:\文本数据\"  & s.SubString(0,4)  & "\"   

ex.Format = "Fixed"

ex.NewTableName = Names(i) 

ex.Export()

Next

 

运行过程提示： 

'e:\文本数据\2015\'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

 

 

 

[此贴子已经被作者于2015/4/14 11:30:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
好学生
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：15 积分：186 威望：0 精华：0 注册：2015/4/3 11:33:00 		  发帖心情 Post By：2015/4/14 14:00:00 [显示全部帖子]

先在文件夹设好e:\文本数据\2015\ ，就通过了不太方便但能用

 

ex.Fields = "代码,日期," & Names(i)

导出的数据

"SH600000",2015-01-05 0:00:00,88863795

 

如何去除输出:

                 代码列的"SH600000",的引号

                 日期列的2015-01-05 0:00:00的时间
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询