Question

请问VB如何从ACCESS数据库里选择数据并写到EXCEL里?

执行完语句后，在EXCEL表格里显示的是 SELECT 语句，这是哪里错了？谢谢！
Dim strSQL As String
strSQL = "SELECT WGYDX.SZ FROM WGYDX WHERE (WGYDX.BZW = 5)" & ""
Cn.Execute strSQL
xlSheet.Cells(5, 3) = strSQL

Answer 1

你写的就是将变量字符写到EXECL里啊。。。

Dim strSQL As String ‘定义一个strSQL变量，类型为字符
strSQL = "SELECT WGYDX.SZ FROM WGYDX WHERE (WGYDX.BZW = 5)" & ""
Cn.Execute strSQL ‘为变量设置内容
xlSheet.Cells(5, 3) = strSQL ’将变量放到EXECL指定位置上

追问

我想要实现的是将Select选出的数据，写的EXCEL表格里，该怎么做呢？

追答

你要取出字段的内容再写啊。。、
Dim rs As ADODB.Recordset
Dim fld1 As ADODB.Field
Dim strSQL As String ‘定义一个strSQL变量，类型为字符
strSQL = "SELECT WGYDX.SZ FROM WGYDX WHERE (WGYDX.BZW = 5)" & ""
set rs=Cn.Execute(strSQL)
Set fld1 = rs.Fields(“id”) 'id为数据表的字段

xlSheet.Cells(5, 3) = fld1.Value ’找到的字段值写入...

追问

Set fld1 = rs.Fields(“id”) 'id为数据表的字段
意思是id可以用任何一个字段名代替了？

追答

是的，你找你想写入的字段，这个只是第一条记录，写所有的，还要用循环，不断移动指针，这个就是SQL操作了，你网上百度下就知道了。

追问

外行，木有学过数据库，对VB也不熟，呵呵，谢谢！

追答

不客气，建议要用的话，还是买本VB和SQL的书看看吧。