如何动态把数据添加到excel

怎么动态把数据添加到excel
我从数据库里读出10条数据,想添加到excel中(A1:A10),怎么做啊


------解决方案--------------------
lz是把读出的结果存储在Recordset里面么, 如果是,可以用CopyFromRecordset来把结果复制到celll里面.
Cell(1,1).CopyFromRecordset Rset01
------解决方案--------------------
With sheets(1)
.range( "A1 ")=Recordset1.( "value ")
.range( "A2 ")=Recordset1.( "value ")
.
.
.
End With