如何在ACCESS中用Excel做报表

裘得

各位版主： 请问在Access中如何将-- 用SQL语句查询的结果输入到Excel表中？做个例子最好，我看了几天联机帮助没找到解决办法，麻烦你们了。谢谢!!!

裘得

Cgl版主： 我要的是把ACC表中我需要的数据输入Excel，你介绍的方法反了。麻烦你再指导指导。

wuxiaofeng

方法一。文件---导出 方法二。工具--office链接---用excel分析

裘得

cgl版主： 我说的也是Access主导，我做出来了，不过现在还是草稿先把代码贴上，回来做成后再例子传上请大家指导。 Public Sub Openlink()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Set cnn = New ADODB.Connection
cnn.Open CurrentProject.Connection Set rst = New ADODB.Recordset
rst.Open strsql, cnn, adOpenForwardOnly Set xlbook = xlapp.Workbooks.Open(CurrentProject.Path & "\zgkbk.xls")
xlbook.Sheets(1).Range("a1").CopyFromRecordset rst
xlapp.Visible = True
End Sub

cg1

倒，我看了才知道，链接贴错了 关于此主题请参考：
如何制作复杂报表——利用Excel输出复杂报表《报表》
http://access911.net/index.asp?u1=a&u2=73FAB41E14DC

cg1

嘿嘿，我当然是以 ACCESS 为主导啊，EXCEL 高手正好相反

cg1

关于此主题请参考：http://access911.net/index.asp?u1=a&u2=71FAB21E17DC