Acess导出的Excel文件的重置代码

jiek

请教高手,急!!!
比如从Acess中,表的结构为:日期,数据1,数据2,数据3,...,将该表的数据导出到Excel文件中进行数据处理.
想将表的结构改为竖向的代码怎么开发????要的Excel表的结构为:
日期
数据1
数据2
数据3

在Acess或Excel中的VBA代码如何操作??

[此贴子已经被作者于2002-11-8 23:02:18编辑过]

teddibear

可以先正常导出到EXCEL以后再用EXCEL的COPY-PASTE TRANSPOSE.
用代码的话,
j=1 'column
do until rs.EOF
for i=1 to rs.fields.count
  activesheet.cells(i,j)=rs.fields(i)
next i
j=j+1
rs.movenext
loop