主题：动态列名出错

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:\文本数据\下按“日期”列的日期建立目录名，

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

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

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

 

在e:\文本数据\下按“日期”列的日期建立目录名怎样做?

ex.FilePath = "e:\文本数据\" & tables("表A").current("日期") & "\"                 获取当前行的日期列的值

新手建议先按部就班学习一下帮助.

 

楼主，心急吃不得热豆腐，务必按《使用指南》《编程基础》《基本类型》《事件编程》这样的顺序看帮助和视频，千万从不要从中间开始，否则只会打击自己的信心，很容易越学越糊涂。

 

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\'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

 

 

 

e:\文本数据\2015\ 只是一个路径，没有文件名，你还得将文件名合并进去

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

 

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

导出的数据

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

 

如何去除输出:

                 代码列的"SH600000",的引号

                 日期列的2015-01-05 0:00:00的时间

那只有编码导出