VBA调用SQL语句问题请教，麻烦大神们指导下，谢谢！

cscnnn

Set Sht7 = Sheets("产品1")
Set Sht8 = Sheets("ls")
在源数据表跑如下指脚本，只能跑出第1条数据：
sht7.Activate

cnn.Open Str_cnn
     Sql = "SELECT a.*,b.材料 as cisig FROM [产品1$] as a left outer join [产品2$] as b on b.产品=a.产品 "
     Set rst = cnn.Execute(Sql)

    With sht7
    Cells.Clear
    For i = 0 To rst.Fields.Count - 1
    Cells(1, i + 1) = rst.Fields(i).Name
    Next i
    [a2].CopyFromRecordset rst
    End With



如果不在源数据表跑如下指脚本，能跑出所有的数据：

sht8.Activate
cnn.Open Str_cnn
     Sql = "SELECT a.*,b.材料 as cisig FROM [产品1$] as a left outer join [产品2$] as b on b.产品=a.产品 "
     Set rst = cnn.Execute(Sql)

    With sht7
    Cells.Clear
    For i = 0 To rst.Fields.Count - 1
    Cells(1, i + 1) = rst.Fields(i).Name
    Next i
    [a2].CopyFromRecordset rst
    End With


为什么在源数据表只能跑出第一条数据，而在另外的表则能跑出所有的数据，这个怎么理解？
有没办法在源数据表跑出所有数据，语句怎么写？
麻烦大神指导下，谢谢！

zpy2

建议上传数据

shiruiqiang

1、读取 FROM [产品1$a:f]，写到h列；

2、写到别的表
3、先写到数组 brr=xxx.getrows

魂断蓝桥

dim rs
Set rs = CreateObject("adodb.Recordset")
rs.Open Sql, cnn, 1, 1
[a2].CopyFromRecordset rs

这样试一试