| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 动态列名出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66761) |
| -- 作者：好学生 -- 发布时间：2015/4/13 14:24:00 -- 动态列名出错 Dim i As Integer 提示：Names(i)列名错误 要求：1，每一个列输出一个文件，列名=文件名， 2，在e:\\文本数据\\下按“日期”列的日期建立目录名， 不知怎样做，请版主指点！ [此贴子已经被作者于2015/4/14 14:23:11编辑过]
|
| -- 作者：Bin -- 发布时间：2015/4/13 14:26:00 -- ex.Fields = "日期,代码," & Names(i) ex.FilePath = "e:\\文本数据\\"
ex.Format = "Fixed" ex.NewTableName = Names(i) |
| -- 作者：好学生 -- 发布时间：2015/4/13 15:11:00 -- ex.FilePath = "e:\\文本数据\\" “日期”列的值\\
在e:\\文本数据\\下按“日期”列的日期建立目录名怎样做? |
| -- 作者：Bin -- 发布时间：2015/4/13 15:14:00 -- ex.FilePath = "e:\\文本数据\\" & tables("表A").current("日期") & "\\" 获取当前行的日期列的值 新手建议先按部就班学习一下帮助.
|
| -- 作者：狐狸爸爸 -- 发布时间：2015/4/13 15:37:00 -- 楼主，心急吃不得热豆腐，务必按《使用指南》《编程基础》《基本类型》《事件编程》这样的顺序看帮助和视频，千万从不要从中间开始，否则只会打击自己的信心，很容易越学越糊涂。 [此贴子已经被作者于2015/4/13 15:38:17编辑过]
|
| -- 作者：好学生 -- 发布时间：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编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2015/4/14 11:34:00 -- e:\\文本数据\\2015\\ 只是一个路径，没有文件名，你还得将文件名合并进去 |
| -- 作者：好学生 -- 发布时间：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的时间 |
| -- 作者：Bin -- 发布时间：2015/4/14 14:03:00 -- 那只有编码导出 |