怎样将ACCESS查询中的内容反馈到EXCEL的工作表中！

shinying

怎样将ACCESS查询中的内容反馈到EXCEL的工作表中！

在ACCESS 的查询中建立了一个查询“即时库存扩展” ，使用如下代码将查询“即时库存扩展”中的所有内容显示在"TEMP“的工作表中：
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim spath, SQL As String
Private Sub CommandButton1_Click()
On Error Resume Next
spath = ThisWorkbook.Path & "\TEST.mdb"
CNN.Open "provider=microsoft.jet.oledb.4.0;data source=" & spath & ";jet oledb:database"

SQL = "select ID,物料代码,物料名称,单位,存放位置,期初数量,领料入库量,补损入库量,余料退库量,调拨出库量,损耗出库量,生产出库量,即时库存 from 即时库存扩展 order by 物料代码,物料名称"
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic

Sheets("Temp").Range("A1").CopyFromRecordset RST
RST.Close

On Error Resume Next
CNN.Close
Set RST = Nothing
Set CNN = Nothing
End Sub

运行后不能实现该功能！
请问下，如何写代码才能将该功能实现，谢谢！

shinying

不好意思，找到原因了！查询表的设计有问题！谢谢