Office中国论坛/Access中国论坛

标题: Acess导出的Excel文件的重置代码 [打印本页]

作者: jiek 时间: 2002-11-9 07:02
标题: Acess导出的Excel文件的重置代码
请教高手,急!!!
比如从Acess中,表的结构为:日期,数据1,数据2,数据3,...,将该表的数据导出到Excel文件中进行数据处理.
想将表的结构改为竖向的代码怎么开发????要的Excel表的结构为:
日期
数据1
数据2
数据3

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

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

作者: teddibear 时间: 2002-11-9 13:27
可以先正常导出到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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)